Hallo,
ich habe das so gemacht:
Code:
$crystal = 16000000
$regfile = "m128def.dat"

Config Lcd = 40 * 4                                         'configure lcd screen
Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portc.6 , Db7 = Portc.7 , E2 = Portc.3 , E = Portc.2 , Rs = Portc.0

Dim ___lcdno As Byte                                        'Umschaltbyte für Anzeige :

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

Locate 1 , 1 : Lcd "Test 1. Zeile"
Locate 2 , 1 : Lcd "Test 2. Zeile"
 ___lcdno = 1                                               'auf Chip 2 schalten
Locate 1 , 1 : Lcd "Test 3. Zeile"
Locate 2 , 1 : Lcd "Test 4. Zeile"
Ich habe keine Lib verwendet, und die Umschaltvariable heißt dann ___lcdno.

Gruß

Rolf