Kód: Vybrat vše
data 0 ,("Test LCD 16x2")
let dirsB=%11111111
gosub Inicializace
for b1=0 to 15
read b1, b0
gosub Zapis_Znaku
next b1
pause 3000
b0=24
for b1=1 to 49
gosub Zapis_Povelu
pause 200
next b1
for b3=0 to 99
b0=192+15
gosub Zapis_Povelu
b0=4
gosub Zapis_Povelu
b0=b3//10+48
gosub Zapis_Znaku
b0=b3/10+48
gosub Zapis_Znaku
b0=6
gosub Zapis_Povelu
pause 500
next b3
Inicializace:
pause 100
b0=%00110000
gosub Zapis_Povelu
pause 5
gosub Zapis_Povelu
gosub Zapis_Povelu
b0=%00101000
gosub Zapis_Povelu
b0=%00000001
gosub Zapis_Povelu
b0=%00001100
gosub Zapis_Povelu
return
Zapis_Znaku:
high C.0
let pinsB=b0
pulsout C.1,1
return
Zapis_Povelu:
low C.0
let pinsB=b0
pulsout C.1,1
return
Programuji to přes procesor Picaxe 40X2
Předem děkuji za odpověď.