Mam problemik z tym programem, to znaczy wywalają mi 3 błędy. Czy mógłby ktoś rzucić na to okiem i ewentualnie sprawdził u siebie.
Dzięki
Kod: Zaznacz cały
$regfile = "m8def.dat"
$crystal = 8000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portc.3,
Db5 = Portc.1 , Db6 = Portc.2,
Db7 = Portc.0 , E = Portc.4,
Rs = Portc.5
Dim I As Byte
Cls
Lcd "*bascom*" '
Wait 1
Lowerline
Wait 1
Lcd "przesuwaj"
Wait 1
For I = 1 To 10
Shiftlcd Right
Waitms 500
Next I
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 "innny 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
Rcall _write_lcd
Wait 2
Lowerline
I = 150
Lcd I
End