سلام دوستان.
من دیروز دو تا LCD 16 * 1 گرفتم و طبق دیتاشیتش سخت افزارش رو متصل کردم.
ولی اصلا هیچ چیزی رو نمایش نمیده!
میشه درباره ی این نوع LCD منو راهنمایی کنید؟
اینم کد بیسیک:
$regfile = "m8adef.dat"
$crystal = 2000000
Dim F As Byte
Config Lcd = 16 * 1a
Config Lcdpin = Pin , Db4 = Pinb.0 , Db5 = Pinb.1 , Db6 = Pinb.2 , Db7 = Pinb.3 , E = Pinb.4 , Rs = Pinb.5
Cls
Locate 1 , 1
Lcd "Wellcome"
Waitms 500
For F = 1 To 8
Shiftlcd Right
Waitms 200
Next
Cls
Locate 1 , 1
Lcd "No data"
Waitms 300
Display Off
Wait 1
Display On
Wait 1
Display Off
Do
Waitms 70
Loop
End
من دیروز دو تا LCD 16 * 1 گرفتم و طبق دیتاشیتش سخت افزارش رو متصل کردم.
ولی اصلا هیچ چیزی رو نمایش نمیده!
میشه درباره ی این نوع LCD منو راهنمایی کنید؟
اینم کد بیسیک:
$regfile = "m8adef.dat"
$crystal = 2000000
Dim F As Byte
Config Lcd = 16 * 1a
Config Lcdpin = Pin , Db4 = Pinb.0 , Db5 = Pinb.1 , Db6 = Pinb.2 , Db7 = Pinb.3 , E = Pinb.4 , Rs = Pinb.5
Cls
Locate 1 , 1
Lcd "Wellcome"
Waitms 500
For F = 1 To 8
Shiftlcd Right
Waitms 200
Next
Cls
Locate 1 , 1
Lcd "No data"
Waitms 300
Display Off
Wait 1
Display On
Wait 1
Display Off
Do
Waitms 70
Loop
End
