Kód pro odeslání dat:
Kód: Vybrat vše
;08m2
symbol baud=N4800
Pause 1000
serout C.1, baud, (254,1) ;smaže LCD
start:
serout C.1, baud, (254,128) ;souřadnice první řádek, první pozice
serout C.1, baud, ("abcdefghijklm")
goto start
Kód: Vybrat vše
;20M2 LCD
symbol baud = N4800_32
symbol RX = C.0
symbol enable = C.2
symbol rs = C.1
init:
gosub LCD_init
main:
serin RX,baud,b1
if b1 < 253 then
high rs
pinsB = b1
pulsout enable,1
goto main
else if b1 = 254 then
low rs
serin RX,baud,b1
pinsB = b1
pulsout enable,1
goto main
end if
LCD_init:
dirsC = %10111110
dirsB = %11111111
pause 15
pinsB = %00110000
pulsout enable,1
pause 5
pulsout enable,1
pulsout enable,1
setfreq m32
pinsB = %00111000
pulsout enable,1
pinsB = %00000001
pulsout enable,1
pause 8
pinsB = %00000010
pulsout enable,1
pinsB = %00000110
pulsout enable,1
pause 1
pinsB = %00001100
pulsout enable,1
pause 1
return
Zatím se mi podařilo inicializovat všechny řádky a předpokládám, že se musí rozdělit ty dva signál enable např, takto:
Kód: Vybrat vše
;20M2 LCD
symbol baud = N4800_32
symbol RX = C.0
symbol enable = C.2
symbol enable2 = C.3
symbol rs = C.1
...
LCD_init:
dirsC = %10111110
dirsB = %11111111
pause 15
pinsB = %00110000
pulsout enable,1
pulsout enable2,1
pause 5
pulsout enable,1
pulsout enable2,1
pulsout enable,1
pulsout enable2,1
setfreq m32
pinsB = %00111000
pulsout enable,1
pulsout enable2,1
pinsB = %00000001
pulsout enable,1
pulsout enable2,1
pause 8
pinsB = %00000010
pulsout enable,1
pulsout enable2,1
pinsB = %00000110
pulsout enable,1
pulsout enable2,1
pause 1
pinsB = %00001100
pulsout enable,1
pulsout enable2,1
pause 1
return
Stránky, z kterých jsem vycházel: http://electromag1.wifeo.com/fabriquer- ... icaxe-.php
Za každou radu dík.