Czy wolisz polską wersję strony elektroda?
Nie, dziękuję Przekieruj mnie tamConfig Lcdpin = Pin , Db4 = Porta.4 , Db5 = Porta.5 , Db6 = Porta.6 , Db7 = Porta.7 , E = Porta.1 , Rs = Porta.0
Config Lcd = 16 * 2
Cls
Cursor Off Noblink$lib "LCD4E2.LBX"
'===========================
RS PortB.0
R/W PortB.1 w tej wersji nie jest używana końcówka R/W wyświetlacza, należy ją dołączyć do masy
E PortB.2 linia aktywująca pierwszy kontroler
E2 PortB.3 linia aktywująca drugi kontroler
DB4 PortB.4 szyna danych musi pracować w trybie 4 bitowym
DB5 PortB.5
DB6 PortB.6
DB7 PortB.7
$lib "LCD4E2.LBX"
'===========================
RS PortB.0
R/W PortB.1 w tej wersji nie jest używana końcówka R/W wyświetlacza, należy ją dołączyć do masy
E PortB.2 linia aktywująca pierwszy kontroler
E2 PortB.3 linia aktywująca drugi kontroler
DB4 PortB.4 szyna danych musi pracować w trybie 4 bitowym
DB5 PortB.5
DB6 PortB.6
DB7 PortB.7
'------------------------------------------------------------------
' LCDCUSTOM4BITE2.BAS
' demo shows 4 bit LCD mode with 2 E lines
'------------------------------------------------------------------
$regfile = "2313def.dat"
' this is the custom LCD lib
$lib "Lcd4e2.lib"
$crystal = 4000000
'to use 2 E lines we need a way to make a distinct between them
Dim ___lcde As Byte
'___LCDE set to 0 will use E1, set to any other value will use E2
Dim S As String * 10
S = "Hello"
' write to the 2 first lines
___lcde = 0
Cls
Lcd "test"
Lcd S
___lcde = 1
'write to the 2 last lines
Lcd "test"
Lcd S
End
rzuczek napisał:A ja proponuje wziąć drugi AVR do drugiego wyświetlacza. Wiem jest to toporne rozwiązanie, ale najszybsze do realizacji i będzie działać!
$regfile = "m32def.dat"
$crystal = 8000000
$baud = 19200 ' use baud rate
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 32 ' default use 10 for the SW stack
$framesize = 32 ' default use 40 for the frame space
$lib "lcd4e2.lbx"
Dim ___lcde As Byte
Const En1 = 0
Const En2 = 1
En Alias ___lcde
Config Lcdpin = Pin , Db4 = Pa.4 , Db5 = Pa.5 , Db6 = Pa.6 , Db7 = Pa.7 , E = Pa.3 , Rs = Pa.2 , E2 = Pa.1
Enable Interrupts
'czyszczenie LCD1
En = En1
Cls
'czyszczenie LCD1
En = En2
Cls
'Powitenie
'lcd1
En = En1
Cursor Off
Locate 1 , 1 : Lcd "Sterownik"
Locate 2 , 1 : Lcd "Kominka"
'lcd2
En = En2
Cursor Off
Locate 1 , 1 : Lcd "Uaktualnianie"
Locate 2 , 1 : Lcd "Oprogramowania...."