Hallo zusammen,
da es hier ein paar glcd Experten gibt, wollte ich mal fragen ob ihr mir helfen könnt.
Ich habe ein Display DEM128064B von CSD Elektronik.
Mit dem Code tut sich was auf dem Display,
es kann also nicht alles ganz verkehrt seien.
Leider werden zusätzlich zu den gewünschten pixeln noch andere gesetzt.
Löschen per CLS bringt nicht wirklich viel, eine gefüllte box löscht mehr pixel.
Ein reduzieren der pullups in den datenleitungen hat eine deutliche verbesserung gebracht. (von 10k auf 1k)
Noch kleinere Pullups können ja nicht wirklich notwendig seien oder?!
Als Hardware hab ich ein 2560 5V 16Mhz, ausser dem Display ist nix angeschlossen.
GRuß und Dank
Boris (der gleich bei pollin ein anderes Display bestellt)
da es hier ein paar glcd Experten gibt, wollte ich mal fragen ob ihr mir helfen könnt.
Ich habe ein Display DEM128064B von CSD Elektronik.
Mit dem Code tut sich was auf dem Display,
es kann also nicht alles ganz verkehrt seien.
Leider werden zusätzlich zu den gewünschten pixeln noch andere gesetzt.
Löschen per CLS bringt nicht wirklich viel, eine gefüllte box löscht mehr pixel.
Ein reduzieren der pullups in den datenleitungen hat eine deutliche verbesserung gebracht. (von 10k auf 1k)
Noch kleinere Pullups können ja nicht wirklich notwendig seien oder?!
Code:
regfile = "m2560def.dat"
$crystal = 16000000 ' intern / oder Extern (Quarz)
$baud = 38400 ' used crystal frequency
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40
$lib "glcdKS108.lbx"
Config Graphlcd = 128 * 64sed , Dataport = Porth , Controlport = Porte , Cd = 2 , Rd = 5 , Ce = 7 , Ce2 = 6 , Enable = 3 , Reset = 4
$include "font8x8.font"
Setfont Font8x8
Wait 1
Initlcd
Wait 1
Cls
Lcdat 1 , 1 , "Zeile1 "
Lcdat 2 , 1 , "Zeile2 test 321"
Lcdat 3 , 1 , "Zeile3 neu 123"
Wait 1
Boxfill(1 , 1) -(10 , 10) , 1
EndGRuß und Dank
Boris (der gleich bei pollin ein anderes Display bestellt)
