Für alle, die den Thread nicht bis zum Schluss lesen möchten, gibt es HIER die funktionierende Einheit!
Hallo zusammen!
Ich möchte mal fragen, ob jemand schon ein paar Erfahrungen mit einem SED1520 Grafikdisplay unter BASCOM gemacht hat.
Es gibt zwar eine LIB (bzw. LBX) für den besagten Chipsatz ($lib "glcdSED1520.lbx" ), aber die funktioniert scheinbar nicht.
Immer wenn ich in meinem Beipielprogramm den Chipsatz angebe, läuft mein Programm nicht!
Zur Kontrolle lasse ich einen Port togglen.... aber es passiert nichts!
Wenn ich allerdings die SED-LIB benutze ($lib "glcdSED.lib") dann läuft mein Programm durch.... aber das Display zeigt nur wilde Balken an.
Ich stelle mein Beispielprogramm hier mal mit ein, vielleicht findet einer ja noch einen anderen Fehler.
CodeBox bascom
Gruß,
Cassio
Hallo zusammen!
Ich möchte mal fragen, ob jemand schon ein paar Erfahrungen mit einem SED1520 Grafikdisplay unter BASCOM gemacht hat.
Es gibt zwar eine LIB (bzw. LBX) für den besagten Chipsatz ($lib "glcdSED1520.lbx" ), aber die funktioniert scheinbar nicht.
Immer wenn ich in meinem Beipielprogramm den Chipsatz angebe, läuft mein Programm nicht!
Zur Kontrolle lasse ich einen Port togglen.... aber es passiert nichts!
Wenn ich allerdings die SED-LIB benutze ($lib "glcdSED.lib") dann läuft mein Programm durch.... aber das Display zeigt nur wilde Balken an.
Ich stelle mein Beispielprogramm hier mal mit ein, vielleicht findet einer ja noch einen anderen Fehler.
CodeBox bascom
' SED1520 Testprogramm
$regfile = "m16def.dat"
$crystal = 4433619
'some routines to control the display are in the glcdSED.lib file
'$lib "glcdSED.lib"
'Config Graphlcd = 128 * 64sed , Dataport = Portc , Controlport = Portd , Ce = 5 , Ce2 = 6 , Cd = 3 , Wr = 2 , Rd = 4 , Reset = 1
$lib "glcdSED1520.lbx"
Config Graphlcd = 120 * 64sed , Dataport = Portc , Controlport = Portd , Ce = 5 , Ce2 = 6 , Cd = 3 , Rd = 4
' Bestimme die Ein und Ausgänge
Ddra = &B0000_0000 '1 ist Ausgang 0 ist Eingang
Porta = &B1111_1111 'auf Hi oder Low setzen
Ddrb = &B1_1111 '1 ist Ausgang 0 ist Eingang
Portb = &B0_0000 'auf Hi oder Low setzen
Dim X As Byte , Y As Byte
Do
Toggle Portb.0
Waitms 500
Toggle Portb.0
Waitms 500
Toggle Portb.0
Cls
Waitms 500
Setfont Font8x8
Lcdat 1 , 1 , "123456789012345"
Lcdat 2 , 1 , "123456789012345"
Wait 1
Line(0 , 10) -(121 , 10) , 1
Waitms 500
Line(0 , 20) -(121 , 20) , 1
Waitms 500
Line(0 , 30) -(121 , 30) , 1
Wait 1
Toggle Portb.0
Wait 2
Loop
End 'end program
$include "font8x8.font"
Gruß,
Cassio