So, hier wie versprochen meinen Code zum ansteuern des 27*4 Displays von Wintek (Pollin Artikel) mit einem RN-Minicontrol am Ctrl Port:


Code:
$regfile = "m168def.dat"
$crystal = 16000000                                         'Quarzfrequenz
$baud = 9600
'$hwstack = 32
'$framesize = 32
'$swstack = 32

'Die üblichen Definitionen bei Standardprogrammen auf Miniboard







 Config Lcd = 40 * 4                                        'Bascom kennt keine Display mit 27 * 4 Zeichen,
                                                             'daher 40 * 4 verwenden

 Config Lcdpin = Pin , Db4 = Portb.5 , Db5 = Portb.0 , Db6 = Portd.7 , Db7 = Portd.6 , E = Portb.3 , E2 = Portc.3 , Rs = Portc.2 ,       'Rw = Portd.3
                                                              'man achte auf die Ergänzung E2

 Dim ___lcdno As Byte                                       ' Systemvariable der LCD-Bibliothek



 ___lcdno = 0                                               ' wählt den ersten Chip aus
 Initlcd                                                    'die beiden oberen Zeilen initialisieren
 Cls                                                        'die beiden oberen Zeilen löschen

 ___lcdno = 1                                               'auf Chip 2 schalten
 Initlcd                                                    'die beiden unteren Zeilen initialisieren
 Cls                                                        'die beiden unteren Zeilen löschen



   ___lcdno = 0                                             ' wählt die obere Zeile aus

   Locate 1 , 1                                             ' schreibt in die erste Zeile an Position 1
   Lcd "Zeile 1 ";                                          ' den Text in Anführungszeichen

   Locate 2 , 1                                             ' schreibt in die zweite Zeile an Position 1
   Lcd "Zeile 2 "

   Cursor Off                                               ' unterdrückt den Cursor



   ___lcdno = 1                                             ' wählt die beiden unteren Zeilen aus

   Locate 1 , 1
   Lcd "Zeile 3 ";

   Locate 2 , 1
   Lcd "Zeile 4 "

   Cursor Off


End                                                         'Programmende

So viel Spaß damit und nochmal danke für eure Hilfe, auch mit vielen anderen Beiträgen.

Gruß Felix