ايران ويج

سلام
من یه مشکل داشتم ممنون میشم از دوستان کسی راهنمایی کنه و بگه خطهای زیر به ترتیب چه کاری انجام

کد: 
#pragma optsize-

WDTCR=0x18;

WDTCR=0x08;

#ifdef _OPTIMIZE_SIZE_

#pragma optsize+

#endif

کد: 
#asm("wdr")

سلام
من میخوام پیغام "welcome to Esfahan" را روی lcd به صورت تابلو روان بنویسم (از راست بیاد بره به چپ و مرتب در گردش باشه )
اما درست در نمیاد Sad

از دستور shift هم که استفاده میکنم این جوری که میخوام (مثل تابلو روان ) نمیشه
من این برنامه را نوشتم اما an آخر را نشون نمیده هر دستوری هم که برای نوشتن آخرش اضافه میکنم error میگیره Angry

کد: 
$regfile = "m32def.dat"

$crystal = 8000000

Config Portc = Output

Config Lcd = 16 * 2

Config Lcdbus = 4

Config Lcdpin = Pin , Rs = Portc.0 , E = Pinc.2 , Db4 = Pinc.4 , Db5 = Pinc.5 , Db6 = Pinc.6 , Db7 = Pinc.7

Cursor Off

Dim A As String * 20

Dim I As Byte

Do

A = "welcome to Esfahan"

I = 16

For I = 16 To 0 Step -1

Cls

Home

Locate 1 , I

Lcd A

Waitms 100

Next I

Waitms 100

Loop

End

مهندس به تایپیک زیر مراجعه کن :
http://www.iranled.com/forum/Thread-تابل...ا-LCD-16-2

welcome to Esfahan چون 18 کاراکتر هستش پس دو کارکتر آخرش نشون داده نمیشه چون شما تعیین کردی 16 کارکتر رو نشون بده !!! ( ال سی دیت هم همینقدر رو می تونه نمایش بده )
واسه سادگی کار می تونی در 1,17 متنت رو نشون بدی و بعدش با دستورات شیفت خود ال سی دی اون به چپ شیفت بدی تا تموم بشه !
اینجوری تا 24 کارکتر رو می تونی نشون بدی !!! ( رو همون ال سی دی 2*16 )

اینم به عنوان ساده ترین برنامه :

کد php: 
$regfile = "m32def.dat" : $crystal = 8000000

Config Lcdpin = Pin , Rs = Portc.0 , E = Pinc.2 , Db4 = Pinc.4 , Db5 = Pinc.5 , Db6 = Pinc.6 , Db7 = Pinc.7
Cursor Off : Config Lcd = 16 * 2 : Cls

Dim A As String * 20 , Dim I As Byte , B As Byte

A = "welcome to Esfahan"

B = Len(a) : B = B + 17

Do
      Cls : Locate 1 , 17 , Lcd A
      For I = 0 To B
            Shiftlcd Left : Waitms 200
      Next

Loop 

البته شما یه کارهای اضافه ای کردین که تو بسکام لازم نیست !!!

بازم خوبه که همه دارن بسکامی میشن !!

در ضمن دستور Shiftlcd تو پروتئوس خوب عمل نمی کنه و باید حتما عملی تست بشه !

erfanpj

sheitunak

t3r!p3000