So! Hier das funktionierende Programm! Danke euch nochmals!
Mit Add 192 geht es auch. Ist schließlich 64 und 128 dabei!
'*******************************************************************
'Compiler : BASCOM-AVR (Vers. 2.0.7.7)
'Hardware : Versuchsplatine LCD 8x2 u. I2C_LCD von Pollin
'Chip type : ATMega48V (8%)
'Programm : I2C_LCD_2
'*******************************************************************
$regfile = "m48def.dat"
$crystal = 4000000 'Quarz (111101) DivideClock = disabled
$lib "Pollin_Lcd_i2c.lib"
Config SDA = PortD.2 'PortD.2 = serial data (SDA) gelb
Config SCL = PortD.3 'PortD.3 = serial data (SCL) grün
I2Cinit 'Ini the I2C SCL and SDA pins
'******************* Deklarationen ************************
Const Pcf8574_lcd = &H40 'Adresse des I2C-LCDs
Dim Lcd_backlight As Byte '1 = an; 0 = aus. Wird erst nach einen
'LCD-Befehl umgesetzt!
Dim I As Byte
Dim _lcd_e As Byte
_lcd_e = 64 'LCD im 4-Bit Mode betreiben
'****************** Initialisierung ***********************
Config Lcd = 16 * 2 'nicht unbedingt nötig
Config I2cdelay = 1
Waitms 300 'warte bis LCD-Initialisiert ist!
'******************** Hauptprogramm ***********************
Cls
Lcd " Hallo Dresden! "
Wait 1
Lcd_backlight = 0
Locate 2 , 1
Lcd "-- 16 Zeichen --"
Wait 2
Lcd_backlight = 1
Locate 1 , 1 'Backlight-Zustand an LCD übermitteln
Do 'Sinnlose Schleife!
nop
Loop
End