x1man
26.12.2006, 19:03
mit folgendem programm kommt bei mir nur ein blinkender cursor, mehr nicht
$regfile = "m32def.dat"
$crystal = 4000000
Config Scl = Portc.0
Config Sda = Portc.1
'--------------------------Für I2C LCD -----------------------------------------
Const Pcf8574_lcd = &H70 'PCF Adresse für LCD
$lib "Lcd_i2c.lib" 'I2C Treiber für das LCD
Dim _lcd_e As Byte 'Um auch LCDs mit 2 Controllern
'nutzen zu können.
_lcd_e = 128 'Für LCDs mit 1 Controler
Waitms 200 'WICHTIG! ggf. erhöhen
Config Lcd = 16 * 4
'-------------------------------------------------------------------------------
Dim I As Byte
Cls
Cursor On
Lcd "AVR EXPERIMENT"
Lowerline
Lcd "I2C LCD Mega 32"
Do
For I = 1 To 100
Locate 4 , 5
Lcd I ; " "
Waitms 500
Next
Loop
End
hab ein 16x2 lcd ks0066 , wenn ich die zeile mit Config Lcd = 16 * 4 wegmache passiert nichts. ich glaube es ist ein initialisierungsfehler.kenn mich mit assembler nicht aus, um was in der lib zu ändern kann mit jemand bitte helfen
$regfile = "m32def.dat"
$crystal = 4000000
Config Scl = Portc.0
Config Sda = Portc.1
'--------------------------Für I2C LCD -----------------------------------------
Const Pcf8574_lcd = &H70 'PCF Adresse für LCD
$lib "Lcd_i2c.lib" 'I2C Treiber für das LCD
Dim _lcd_e As Byte 'Um auch LCDs mit 2 Controllern
'nutzen zu können.
_lcd_e = 128 'Für LCDs mit 1 Controler
Waitms 200 'WICHTIG! ggf. erhöhen
Config Lcd = 16 * 4
'-------------------------------------------------------------------------------
Dim I As Byte
Cls
Cursor On
Lcd "AVR EXPERIMENT"
Lowerline
Lcd "I2C LCD Mega 32"
Do
For I = 1 To 100
Locate 4 , 5
Lcd I ; " "
Waitms 500
Next
Loop
End
hab ein 16x2 lcd ks0066 , wenn ich die zeile mit Config Lcd = 16 * 4 wegmache passiert nichts. ich glaube es ist ein initialisierungsfehler.kenn mich mit assembler nicht aus, um was in der lib zu ändern kann mit jemand bitte helfen