A i pewnie, że się wypowiem!
Wykorzystać należy bibliotekę LCD4E2 i wszystko
oprócz linii E zepnij równolegle tak jak sugeruje to opis tej biblioteki. Linię E pierwszego LCD podepnij do E a linię E drugiego LCD do E2. Teraz zajrzyj do przykładu
lcdcustom4bit2e.bas z katalogu SAMPLES, gdzie znajdziesz nstępujący sposób obsługi tej hybrydy:
'------------------------------------------------------------------
' 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
Prawda, że proste?
---
Są tylko dwie wady:
- taktowanie 4MHz a nie inne (chyba, że zmienisz opóźnienia i zrekompilujesz bibliotekę, mając pełną wersję),
- wyświetlacz podpięty pod PORTB (chyba, że zamienisz definicje i zrekompilujesz bibliotekę, mając pełną wersję).