Vielen Dank für die Antwort!
Soweit läuft das Ganze auch, allerdings möchte ich Hardware I²C
verwenden. Dazu habe ich die "i2c_twi.lbx" reingeladen und das config
SCL/SDA weggelassen. Das Ganze funktioniert soweit auch. Allerdings
bringt BASCOM mit der "i2c_twi.lbx" und ohne das config SCL/SDA mehrere
Fehlermeldungen. Funktionieren tut es trotzdem.
Mein Problem ist nur, dass meine gemessene Bus-geschwindigkeit (Oszi an
SCL) bei 2,85 KHZ liegt, obwohl ich Config Twi = 100000 angegeben habe.
Da ich später noch eine DS1307 im Bus mit anschließe, kann ich maximal 1
kHz Busgeschwindigkeit haben.
Ich hoffe, jemand weis eine Lösung für die Probleme.
Vielen Dank im Voraus!
Hier mein code:
$regfile = "M8adef.dat"
$crystal = 8000000
$hwstack = 50
$swstack = 50
$framesize = 100
'Config Scl = Portc.5
'Konfigurieren von I2C
'Config Sda = Portc.4
$lib "YwRobot_Lcd_i2c.lib" 'YwRobot Treiber für LCD
$lib "i2c_twi.lbx"
Config Twi = 100000
'**********************************************************
'******************* Deklarationen ************************
Const Pcf8574_lcd = 126 'Adresse des I2C-LCDs
Dim Lcd_backlight As Byte '1 = an; 0 = aus. Wird erst durch einen
'LCD-Befehl umgesetzt!
'****************** Initialisierung ***********************
Config Lcd = 20 * 4
Waitms 300 'warte bis Kondensator bei Ta0 geladen, auch für
LCD-Init!
'**********************************************************
'******************** Hauptprogramm ***********************
Cls
Lcd "Hello world!"
Wait 1
Lcd_backlight = 0
Locate 2 , 1
Lcd "2. row..."
Wait 2
Lcd_backlight = 1
Locate 3 , 1
Lcd "3. row..."
Locate 4 , 1
Lcd "4. row..."
End
IMAG1202.jpg
(180 KB)
