Czy wolisz polską wersję strony elektroda?
Nie, dziękuję Przekieruj mnie tam
'------------------------------------------------------------------
' LCDCUSTOM4BITE2.BAS
' demo shows 4 bit LCD mode with 2 E lines
'------------------------------------------------------------------
$regfile = "2313def.dat"
'dołączymy własną bibliotekę dla LCD
$lib "Lcd4e2.lib"
$crystal = 4000000
'by używać dwóch linii E potrzebujemy jakiś prosty sposób przełączania się
'pomiędzy kontrolerami - resztę załatwi biblioteka
Dim ___lcde As Byte
'___LCDE ustawione na 0 użyje E, a ustawione w dowolną inną wartość użyje E2
Dim S As String * 10
S = "Witaj"
'zapis do pierwszego wyświetlacza
___lcde = 0
Cls
Lcd "test"
Lcd S
___lcde = 1
'zapis do drugiego wyświetlacza
Lcd "test"
Lcd S
End$regfile = "m32def.dat"
$crystal = 16000000
$lib "lcd4e2.lbx"
Dim ___lcde As Byte
'Rs = PortB.0
'RW = GND
'E = PortB.2
'E2 = PortB.3
'Db4 = PortB.4
'Db5 = PortB.5
'Db6 = PortB.6
'Db7 = PortB.7
Config Lcd = 40 * 2
Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7 , E = Portb.2 , Rs = Portb.0
Const En1 = 0
Const En2 = 1
En Alias ___lcde
'start
En = En1
Cls
En = En2
Cls
En = En1
Locate 1 , 1 : Lcd "Pierwsza linia"
Locate 2 , 1 : Lcd "Druga linia"
En = En2
Locate 1 , 1 : Lcd "Trzecia linia "
Locate 2 , 1 : Lcd "Czwarta linia "
Stop
