Gast
#420879
Hallo, ich habe mir bei Pollin ein LCD Display gekauft. (HD44780, 4x27 Zeichen, kennt vermutlich der ein oder andere) Jetzt habe ich ein Programmierproblem mit Bascom. Dort lässt sich doch der Anschluss frei konfigurieren oder muss ich mich an irgendwelche konkreten Pinbelegungen halten? Ich hatte mir folgendes Schema überlegt und danach auch meine Schaltung ausgelegt: (4-Bit-Modus) RS --> PinB.0 E1 --> PinC.3 E2 --> PinC.2 D4 --> PinB.5 D5 --> PinB.4 D6 --> PinB.3 D7 --> PinB.2 So habe ich das Ganze verdrahtet und mein Programmcode sieht nun wie folgt aus: $regfile = "m8def.dat" $crystal = 4000000 'Einbindung der LCD-Bibliothek für ein 2-Prozessor-Display $lib "lcd4e2.lbx" 'Bascom kennt keine Display mit 27 * 4 Zeichen, daher 40 * 4 verwenden Config Lcd = 40 * 4 Config Lcdbus = 4 Config Lcdmode = Port 'man achte auf die Ergänzung E2 Config Lcdpin = Pin , Db4 = Portb.5 , Db5 = Portb.4 , Db6 = Portb.3 , Db7 = Portb.2 , E = Portc.3 , E2 = Portc.2 , Rs = Portb.0 ' Systemvariable der LCD-Bibliothek (wichtig, bloß nicht ändern) Dim ___lcde As Byte Main: ' wählt die beiden oberen Zeilen aus ___lcde = 0 ' löscht die beiden oberen Zeilen Cls ' wählt die obere Zeile aus Upperline ' schreibt in die erste Zeile an Position 3 Locate 1 , 3 ' den Text in Anführungszeichen Lcd "Zeile 1" ' wählt die zweite Zeile aus Lowerline ' schreibt in die zweite Zeile an Position 2 Locate 2 , 2 ' in diesem Fall den Inhalt der Variablem mit dem Namen Variable Lcd "Zeile 2" ' unterdrückt den Cursor Cursor Off ' wählt die beiden unteren Zeilen aus ___lcde = 1 Waitms 100 Cls Thirdline Locate 1 , 1 Lcd "Zeile 3" Fourthline Locate 2 , 1 Lcd "Zeile 4" Cursor Off Goto Main End