KS0073 EA DIP204B-4NLW Bascom Frage

gast Gast 13.12.2007 07:53 #726591

Lesenswert?

•

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.

Antwort Zitieren Bearbeiten Thread verschieben Thread sperren Anmeldepflicht aktivieren Anpinnen Thread löschen Thread mit anderem zusammenführen Beitrag melden

gast Gast 13.12.2007 08:39 #726609

Lesenswert?

•

▲
▼

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)

Angehängte Dateien:

lcd_i2c.lib (2,13 KB)

Antwort Zitieren Bearbeiten Löschen Beitrag melden

gast Gast 13.12.2007 18:18 #727219

Lesenswert?

•

▲
▼

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

Antwort Zitieren Bearbeiten Löschen Beitrag melden

bascom Gast 13.12.2007 20:19 #727344

Lesenswert?

•

▲
▼

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

Antwort Zitieren Bearbeiten Löschen Beitrag melden

gast Gast 13.12.2007 20:56 #727373

Lesenswert?

•

▲
▼

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
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
Locate 1 , 1
Lcd "Zeile17890123"
Locate 2 , 1
Lcd "ZEILE2222222"
Locate 3 , 1
Lcd "ZEILE3333333"
Locate 4 , 1
Lcd "ZEILE4444444"
Waitms 100

Antwort Zitieren Bearbeiten Löschen Beitrag melden

gast Gast 13.12.2007 20:59 #727375

Lesenswert?

•

▲
▼

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.

Antwort Zitieren Bearbeiten Löschen Beitrag melden

gast Gast 16.12.2007 22:36 #729686

Lesenswert?

•

▲
▼

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.

Angehängte Dateien:

lcd_i2c.lib (2,38 KB)

Antwort Zitieren Bearbeiten Löschen Beitrag melden

KS0073 EA DIP204B-4NLW Bascom Frage

Antwort schreiben