240x128 T6963 LCD mit Touch an ATMega128
Beim Surfen auf www.mcselec.com stiess ich vor einiger Zeit auf die Appnote #148.
Dort wird beschrieben wie ein KS0108-Display mit Touchscreen unter Bascom angesteuert wird. Kurzerhand dann bei www.ledsee.com ein 240x128 Pixel T6963 LCD mit Touchscreen fuer schlappe 46 EUR geordert.
Ich hatte ja erst bedenken ob dieses jemals bei mir ankommt. Von Shanghai bis nach Deutschland ist es ja ein weiter Weg, auf dem viel passieren kann. Aber am letzten Freitag war's dann soweit. Das Paket wurde angeliefert.
Das Display wurde gut geschuetzt eingepackt. Hat den langen Transport unbeschadet ueberstanden. Dabei war ein kleines Tuetchen mit einem SMD-Connector fuer den Folienleiter des Touchscreens.
Das Basteln konnte also losgehen...
Die relevanten Seiten des PDF's zum Display ausgedruckt und den Loetkolben angeheizt. Etwas Loetstreifenrasterplatine zurechtgeschnitten, drei Wannenstecker und eine Stiftleiste fuer's Display aufgeloetet. Das ging recht fix. Den Folienconnector aufzuloeten war schon kniffliger. Dazu habe ich jeweils zwei Leiterbahnen der Loetstreifenrasterplatine in Laengsrichtung mit einem kleinen Fraeskopf geteilt. So passte der Abstand der Beinchen jeweils auf eine halbe Leiterbahn. Die Bahnen vorverzinnt, etwas zusaetzliches Flussmittel wieder drauf und dann den Connector draufgesetzt. Passte.
Das ganze habe ich mit meinem selbstgebauten ATMega128 Eva-Board verbunden. Data Port auf Port B, Control Port auf Port C und PF0-PF3 vom Touchscreen auf Port F (Dort liegen ja auch die ADC-Eingaenge).
Die Subroutine, um den Touchscreen einzulesen, habe ich von der Appnote fast so direkt uebernommen. Eigentlich ist das Programm total simpel. Man muss fuer dieses Beispiel nur noch die analogen Werte, die der Touchscreen liefert, in passende X- und Y-Werte fuer's Display umrechnen.
Bild hier
Ein paar weitere Bilder:
http://www.elektronik-web.de/atmel/t6963_touch
Bascom-Listing: (sicherlich nicht optimal, aber es funktioniert)
Code:
$regfile = "m128def.dat"
$crystal = 16000000
$hwstack = 100
$swstack = 75
$framesize = 40
Config Graphlcd = 240 * 128 , Dataport = Portb , Controlport = Portc , Ce = 2 , Cd = 3 , Wr = 0 , Rd = 1 , Reset = 4 , Fs = 5 , Mode = 6
Config Adc = Single , Prescaler = Auto , Reference = Internal
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
Cursor Off
Cls
Locate 1 , 1 : Lcd "T6963 mit Touchscreen an ATMega128"
Locate 3 , 1
Lcd "Y-Koordinate analog: "
Locate 4 , 1
Lcd "X-Koordinate analog: "
Do
Gosub Readtouch
Locate 3 , 22
Lcd Y ; " "
Locate 4 , 22
Lcd X ; " "
If Y > 330 Then
Y3 = Y - 346
Y2 = Y3 / 2.89
Y4 = Y2
Else
Y4 = 0
End If
If X > 150 Then
X3 = X - 160
X2 = X3 / 2.78
X4 = X2
Else
X4 = 0
End If
Locate 5 , 1
Lcd X4 ; " "
Locate 6 , 1
Lcd Y4 ; " "
Pset X4 , Y4 , 255
Loop
End
Readtouch:
Config Pinf.0 = Output ' Makes port F.0 output
Config Pinf.2 = Output ' Makes port F.0 output
Set Portf.0 ' Sets port F.0 High
Reset Portf.2 ' Sets port F.2 Low
Ddrf.1 = 0 ' Sets port F.1 as input
Ddrf.3 = 0 ' Sets port F.1 as input because we need it now as ad input
Waitms 20 ' Wait until the port is stable
Y = Getadc(3) ' Read the ad value for the y
Y = 1024 - Y ' Invert the reading
Config Pinf.1 = Output ' Makes port F.1 output
Config Pinf.3 = Output ' Makes port F.3 output
Reset Portf.3 ' Sets port F.3 Low
Set Portf.1 ' Sets port F.1 High
Ddrf.0 = 0 ' Sets port F.0 as input
Ddrf.2 = 0 ' Sets port F.2 as input because we need it now as ad input
Waitms 20 ' Wait until the port is stable
X = Getadc(2) ' Read the ad value for the x
X = 1024 - X ' Invert the reading
Return
