Felix H.
30.05.2010, 18:13
Hi zusammen,
ich versuche grade mein Touchscreen von Ledsee.com zum laufen zu bringen. Hab das 128x64er mit KS0108 Controller... Leider bekomme ich nur Querbalken angezeigt und auch nichts richtiges... hier mein Code:
$regfile = "m32def.dat"
$crystal = 4000000 ' used crystal frequency
$baud = 19200 ' use baud rate
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40 ' default use 40 for the frame space
$lib "glcdKS108.lbx"
Config Graphlcd = 128 * 64sed , Dataport = Portd , Controlport = Portc , Ce = 4 , Ce2 = 3 , Cd = 0 , Rd = 1 , Reset = 5 , Enable = 2
Config Adc = Single , Prescaler = Auto
Config Portb.0 = Output
Ddrc = &B11111111
Portc = &B11111111
Ddrd = &B11111111
Portd = &B11111111
Dim X As Word , Y As Word
Dim X2 As Single , Y2 As Single
Dim X3 As Single , Y3 As Single
Dim X4 As Byte , Y4 As Byte
Start Adc
Portb.0 = 1
Wait 2
$include "font8x8.font"
Setfont Font8x8
Cls
Do
Line(0 , 0) -(127 , 64) , 1
Portb.0 = 1
Wait 1
Line(0 , 0) -(127 , 64) , 0
Portb.0 = 0
Wait 1
Loop
an portb.0 hab ich die Displaybeleuchtung um zu schauen ob das Teil nich hängengeblieben ist. Ich habe im Internet gelesen das manche Pullups an alle datenleitungen machen und andere wiederum die internen im µC verwenden....
ich versuche grade mein Touchscreen von Ledsee.com zum laufen zu bringen. Hab das 128x64er mit KS0108 Controller... Leider bekomme ich nur Querbalken angezeigt und auch nichts richtiges... hier mein Code:
$regfile = "m32def.dat"
$crystal = 4000000 ' used crystal frequency
$baud = 19200 ' use baud rate
$hwstack = 32 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 40 ' default use 40 for the frame space
$lib "glcdKS108.lbx"
Config Graphlcd = 128 * 64sed , Dataport = Portd , Controlport = Portc , Ce = 4 , Ce2 = 3 , Cd = 0 , Rd = 1 , Reset = 5 , Enable = 2
Config Adc = Single , Prescaler = Auto
Config Portb.0 = Output
Ddrc = &B11111111
Portc = &B11111111
Ddrd = &B11111111
Portd = &B11111111
Dim X As Word , Y As Word
Dim X2 As Single , Y2 As Single
Dim X3 As Single , Y3 As Single
Dim X4 As Byte , Y4 As Byte
Start Adc
Portb.0 = 1
Wait 2
$include "font8x8.font"
Setfont Font8x8
Cls
Do
Line(0 , 0) -(127 , 64) , 1
Portb.0 = 1
Wait 1
Line(0 , 0) -(127 , 64) , 0
Portb.0 = 0
Wait 1
Loop
an portb.0 hab ich die Displaybeleuchtung um zu schauen ob das Teil nich hängengeblieben ist. Ich habe im Internet gelesen das manche Pullups an alle datenleitungen machen und andere wiederum die internen im µC verwenden....