یک نمونه افکت رویLCD

[nesarian]

با سلام خدمت دوستان عزیز من اولین بار هست که یک موضوعی را برای شما مطرح می کنم
یک نمونه افکت روی LCD که کراسر آن چشمک بزنه و به جلوحرکت کنه
با تشکر سعید نثاریان

[mypalex]

پاسخ : یک نمونه افکت رویLCD

آقا این برنامه رو ببین به دردت میخوره:
$regfile = "m16def.dat"
$crystal = 1000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db7 = Portd.0 , Db6 = Portd.1 , Db5 = Portd.2 , Db4 = Portd.3 , Rs = Portd.5 , E = Portd.6
Dim I As Byte
Cursor Off
Do
For I = 1 To 15
Cls
Locate 1 , I
Lcd "_"
Waitms 250
Locate 1 , I
Lcd " "
Waitms 500
Next
Locate 2 , 1
For I = 1 To 15
Cls
Locate 2 , I
Lcd "_"
Waitms 250
Locate 2 , I
Lcd " "
Waitms 500
Next
Loop
End 'end program

[nesarian]

پاسخ : یک نمونه افکت رویLCD

آقا خیلی ممنون :biggrin:
با تشکر فراوان

[mypalex]

پاسخ : یک نمونه افکت رویLCD

خواهش میکنم.
اینجا همه خوشحال میشن بتونن به هم کمک کنن