پاسخ : سوالات مربوط به 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
دیدگاه