پاسخ : سوالات مربوط به LCD های کاراکتری و گرافیکی
سلام.بعدازاجرای خطونوشته دستور تاخیر وپاک کردن ال سی دی بنویس.
سلام.بعدازاجرای خطونوشته دستور تاخیر وپاک کردن ال سی دی بنویس.

$crystal=16000000
$regfile = "m161def.dat"
$crystal = 8000000
Config Portb = Output
Dim Nu1 As Byte
Dim Nu2 As Byte
Dim Nubat As Byte
Config Lcdpin = Pin , E = Portb.5 , Rs = Portb.4 , Db7 = Portb.0 , _
Db4 = Portb.3 , Db5 = Portb.2 , Db6 = Portb.1
Config Lcd = 16 * 2
Cheraghaval:
Nu1 = 25
Do
Decr Nu1
Cls
Lcd Nu1
If Nu1 = 0 Then Goto Cheraghdovom
If Nu1 = 5 Then Goto Cheraghzard
Waitms 20
Loop
Cheraghdovom:
Nu2 = 25
Do
Decr Nu2
Cls
Lcd Nu2
If Nu2 = 0 Then Goto Cheraghaval
If Nu2 = 5 Then Goto Cheraghzard
Waitms 20
Loop
Cheraghzard:
If Nu1 = 5 Then Goto Cheraghzard1
If Nu2 = 5 Then Goto Cheraghzard2
Cheraghzard1:
Do
Decr Nu1
Cls
Lcd Nu1
If Nu1 = 0 Then Goto Cheraghdovom
Waitms 25
Loop
Cheraghzard2:
Do
Decr Nu2
Cls
Lcd Nu2
If Nu2 = 0 Then Goto Cheraghdovom
Waitms 25
Loop
End
$regfile = "m161def.dat"
$crystal = 8000000
Config Portb = Output
Dim Nu1 As Byte
Dim Nu2 As Byte
Dim Nubat As Byte
Config Lcdpin = Pin , E = Portb.5 , Rs = Portb.4 , Db7 = Portb.0 , _
Db4 = Portb.3 , Db5 = Portb.2 , Db6 = Portb.1
Config Lcd = 16 * 2
Cheraghaval:
Nu1 = 25
Do
Decr Nu1
Cls
Lcd Nu1
If Nu1 = 0 Then Goto Cheraghdovom
If Nu1 = 5 Then Goto Cheraghzard
Waitms 20
Loop
Cheraghdovom:
Nu2 = 25
Do
Decr Nu2
Cls
Lcd Nu2
If Nu2 = 0 Then Goto Cheraghaval
If Nu2 = 5 Then Goto Cheraghzard
Waitms 20
Loop
Cheraghzard:
If Nu1 = 5 Then Goto Cheraghzard1
If Nu2 = 5 Then Goto Cheraghzard2
Cheraghzard1:
Do
Decr Nu1
Cls
Lcd Nu1
If Nu1 = 0 Then Goto Cheraghdovom
Waitms 25
Loop
Cheraghzard2:
Do
Decr Nu2
Cls
Lcd Nu2
If Nu2 = 0 Then Goto Cheraghdovom
Waitms 25
Loop
End


دیدگاه