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:
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....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







Zitieren

Lesezeichen