KS0073 EA DIP204B-4NLW Bascom Frage

[gast (Gast)]

Ich habe ein Problem mit der Zeichen Darstellung am KS0073 über einen 
PCF8574AP

Angeschlossen ist das Diplay wie Folgt
PCF |  DISPL.
______
P0  | DB4
P1  | DB5
P2  | DB6
P3  | DB7
P4  | RS
P5  |
P6  |
P7  | E

Quelcode
$regfile = "m8def.dat"                                      ' 
Atmega8,88,168,32
$crystal = 16000000                                         ' Externer 
Quarz
$baud = 9600
$hwstack = 64
$swstack = 8
$framesize = 32
$lib "Lcd_i2c.lib"
$lib "Key_i2c.lib"
' ###########################
' ###  I2C Konfiguration  ###
' ###########################
Config Pinc.2 = Output                                      'I²C2
Config Pinc.3 = Output                                      'I²C2
Config Scl = Portc.3                                        'I²C2 SCL
Config Sda = Portc.2                                        'I²C2 SDA
' ###########################
' ###  LCD Konfiguration  ###
' ###########################
Const Pcf8574_lcd = &H70
'delay = 2 bei max. 2,5m Kabel, bei 4m Kabel delay = 3 oder höher !!
Config I2cdelay = 3                          'PCF Adresse für LCD war 5
Config Lcd = 20 * 4a , Chipset = Ks0073                     'configure 
lcd screen
'Config Lcdbus = 4
Const Lcdrows = 4
Const Lcdcols = 20
Dim _lcd_e As Byte                                          'Needed to 
control 4 line LCD
_lcd_e = 128
'Cursor Off Noblink
Const Menumaxlines = 10
Lcd "Zeile1==========1==="
Locate 2 , 1
Lcd "Zeile2==========2==="
Locate 3 , 1
Lcd "Zeile3==========3==="
Locate 4 , 1
Lcd "Zeile4==========4==="

Die Zeilen werden schon Korekt erkannt aber der erste Pixel ist um eins 
versetz so das gerade mal die letzten Zahlen noch auf dem Dips sind.

[gast (Gast)]

hier noch die lib fürs LCD
ich denke mal das an der init liegt.
sind die pins d0-d4 auf GND dann zeigt er zwar die zeiche korekt an, 
jedoch alles verschoben (nicht nur zeilen vertauscht)

[gast (Gast)]

hat keiner eine  idee wie das problem zu lösen ist? habe schon viele 
beiträge hier dazu gelesen, aber keine der beiträge hat zu einer lösung 
geführt, schätze mal das es an der LCD_i2c.lib liegt. direkt am atmega 
ohne diese lib geht alles ohne problem

[bascom (Gast)]

du hast initlcd vergessen siehe Link:
http://bascom-forum.de/index.php/topic,13.msg15.html#msg15
http://www.micromint.com/app_notes/notes/AN755.pdf

[gast (Gast)]

Hatte ich auch schon drin
hab auch die positionen mal vertauscht hat alles nichts gebracht leider.
auch mit Zeiten gespielt, naja meist habe ich gelesen das man teilweise 
mis 300ms warten soll auch 5s bringen da nichts

' ###########################
' ### Grund Konfiguration ###
' ###########################
$regfile = "m168def.dat"                                    ' Atmega8,88,168,32
$crystal = 1000000
$baud = 9600
$hwstack = 64
$swstack = 8
$framesize = 32
$lib "Lcd_i2c.lib"
' ###########################
' ###  I2C Konfiguration  ###
' ###########################
Config Pinc.2 = Output                                      'I²C2
Config Pinc.3 = Output                                      'I²C2
Config Scl = Portc.3                                        'I²C2 SCL
Config Sda = Portc.2                                        'I²C2 SDA
' ###########################
' ###  LCD Konfiguration  ###
' ###########################
Const Pcf8574_lcd = &H70
Dim _lcd_e As Byte                                          'Needed to control 4 line LCD
_lcd_e = 128
Wait 5
Initlcd
Config I2cdelay = 3                                         'PCF Adresse für LCD war 5
Config Lcd = 20 * 4                                         'configure lcd screen
Config Lcdbus = 4
Const Lcdrows = 4
Const Lcdcols = 20

'Cursor Off Noblink
Const Menumaxlines = 10



Do
Cls
Locate 1 , 1
Lcd "Zeile17890123"
Locate 2 , 1
Lcd "ZEILE2222222"
Locate 3 , 1
Lcd "ZEILE3333333"
Locate 4 , 1
Lcd "ZEILE4444444"
Wait 2
Cls
Waitms 100
loop

[gast (Gast)]

so schaut es aktuell aus

Locate 1 , 1
Lcd "Zeile17890123"
Locate 2 , 1
Lcd "ZEILE2222222"
Locate 3 , 1
Lcd "ZEILE3333333"
Locate 4 , 1
Lcd "ZEILE4444444"
das Display
---------------------------
|Zeile17890123            |
|            ZEILE3333333|
|ZEILE2222222            |
|            ZEILE4444444|
---------------------------
 wenn
Locate 1 , 1
Lcd "Zeile178901234567890"
Locate 2 , 1
Lcd "ZEILE2222222"
Locate 3 , 1
Lcd "ZEILE3333333"
Locate 4 , 1
Lcd "ZEILE4444444"

dann
---------------------------
|Zeile178901234567890|
|34567890ZEILE3333333|
|ZEILE2222222            |
|            ZEILE4444444|
---------------------------

ab der 3 Steht alles von zeile 1 am anfang der zeile 2 bessergesagt dort 
wo locate 3 dargestellt wird.

[gast (Gast)]

HAllo,
auch wenn mir in diesem forum leider keiner hhelfen konnte, habe ich 
eine lösung bekommen.
diese ist jetzt in der lib im anhang mit drin.