Mam następujący kłopot.
Podłączyłem LCD pod Atmege8:
Oraz program (przepisany z książki Marcina Wiązania):
Po zaprogramowaniu uC nic się nie dzieje. Czym może być to spowodowane? Przy innym programie z książki też nie działa. Tylko przy podłączeniu L+ i L- się podświetla.
Podłączyłem LCD pod Atmege8:
Oraz program (przepisany z książki Marcina Wiązania):
$regfile = "m8def.dat"
$crystal = 8000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portc.3 , Db7 = Portc.0 , E = Portc.4 , Rs = Portc.5
Dim I As Byte
Cls
Lcd "*BascomAVR*"
Wait 1
Lowerline
Wait 1
Lcd " Przesuwaj "
Wait 1
For I = 1 To 10
Shiftlcd Left
Waitms 500
Next I
Locate 2 , 2
Lcd "*"
Wait 1
Shiftcursor Right
Lcd "%"
Wait 1
Home Upper
Lcd "Inny Tekst"
Wait 2
Cursor Off Noblink
Wait 2
Cursor On Blink
Wait 2
Display Off
Wait 2
Display On
Deflcdchar 0 , 31 , 31 , 31 , 31 , 30 , 28 , 24 , 16
Deflcdchar 1 , 1 , 3 , 7 , 15 , 31 , 31 , 31 , 31
Cls
Lcd Chr(0) ; Chr(1)
Wait 1
Cls
_temp1 = 56
Rcall _write_lcd
Wait 2
Lowerline
I = 150
Lcd I
EndPo zaprogramowaniu uC nic się nie dzieje. Czym może być to spowodowane? Przy innym programie z książki też nie działa. Tylko przy podłączeniu L+ i L- się podświetla.