Kalibrierung touchscreen

[Marcel (Gast)]

Hallo Leute,
Ich habe mir ein Display gekauft. Das als controler einen ssd2119 chip 
nutzt.
Dieses Display hat einen Touchscreen mit drauf. Der durch einen ads7843 
gesteuert wird.
Ich habe folgendes Problem: wenn ich auf der selben Höhe die y werte 
vergleiche habe ich eine
Differenz von 5000. Wohl bemerkt auf der selben y Höhe! Kann es sein das 
dass Touchscreen kaputt ist? Oder muss ich da irgendwas Kalibriren?
Danke im voraus!
Mit freundlichen grüße
Marcel

[Karl H. (kbuchegg)]

Marcel schrieb:

> Ich habe folgendes Problem: wenn ich auf der selben Höhe die y werte
> vergleiche habe ich eine
> Differenz von 5000.

?
Da das Ding im Prinzip nur ein 12-Bit ADC ist, ist der Wertebereich pro 
Achse auf 0..4096 beschränkt. Wenn du da also Differenzen von 5000 hast, 
dann tippe ich mal ganz stark auf einen Softwarefehler.

[Marcel (Gast)]

Ich lese doch nur die x und y werte als 12 bit aus. Kannst du mir 
erklären wo da der Fehler liegen könnte?

[Ralf (Gast)]

> Ich lese doch nur die x und y werte als 12 bit aus. Kannst du mir
> erklären wo da der Fehler liegen könnte?
Bevor dir jetzt jemand "der Fehler liegt in Zeile 42" sagt, zeig halt 
mal deinen Code.

Ralf

[marcel (Gast)]

$regfile = "m1284pdef.dat"                                  ' specify the used micro
$crystal = 20000000                                         ' used crystal frequency
$baud = 38400                                               ' use baud rate
$hwstack = 100                                              ' default use 32 for the hardware stack
$swstack = 100                                              ' default use 10 for the SW stack
$framesize = 40                                             ' default use 40 for the frame space



Waitus 1

'Config Spi = Hard , Interrupt = Off , Data Order = Msb , Master = Yes , Polarity = Low , Phase = 0 , Clockrate = 128 , Noss = 1 , Spiin = 0

Declare Sub Readtouch


Enable Interrupts
$include "Config_mmc.bas"                                   ' Does drive init too
$include "Config_AVR-DOS.BAS"

Tp_cs Alias Portb.3
Config Tp_cs = Output
Set Tp_cs
Spiinit

Dim I As Word
Dim Temp As Integer
Dim Touchx As Integer
Dim Touchy As Integer
Dim Readtouch_x As Integer
Dim Readtouch_y As Integer

Do

Waitms 100

Call Readtouch



Print "x: " ; Touchx ; " y " ; Touchy





Loop
End



Sub Readtouch                                               'Read y value from ads7843
Local Tempspi As Byte , Adh As Byte , Adl As Byte
Local Spiregister As Byte
Spiregister = Spcr                                          'Save the spi spcr register to a temp variable to restore the settings after
Reset Spcr.2                                                'Set phase to 0
Reset Spcr.3
Tempspi = &H93                                              '12bit resolution
Reset Tp_cs
Spiout Tempspi , 1                                          'send 1 byte
Spiin Adl , 1                                               'Read the low byte
Spiin Adh , 1                                               'Read the high byte
Set Tp_cs
Readtouch_x = Makeint(adh , Adl)
Readtouch_x = 32760 - Readtouch_x
Touchx = Readtouch_x
'If Readtouch_x < 0 Then
'Touchx = 0
'End If

'Touchx = Touchx - 8000
'Touchx = Touchx / 51.25                         'Combine the high & low byte and give it back to the function
Spcr = Spiregister                                          'Restore the original spi register settings


                           'Read x value from ads7843


Spiregister = Spcr                                          'Save the spi spcr register to a temp variable to restore the settings after
Reset Spcr.2
Reset Spcr.3                                                'Set phase to 0
Tempspi = &HD0                                              ''12bit resolution
Reset Tp_cs
Spiout Tempspi , 1                                          'send 1 byte
Spiin Adl , 1                                               'Read the low byte
Spiin Adh , 1                                               'Read the high byte
Set Tp_cs
Readtouch_y = Makeint(adh , Adl)
Touchy = Readtouch_y
                          'Combine the high & low byte and give it back to the function
Spcr = Spiregister                                          'Restore the original spi register settings
End Sub

Ich habe heraus gefunden wenn ich avr-dos nicht benutze sind die wert 
gut. Da ich aber auch eine sd karte nutzen möchte und den touchscreen. 
Habe ich das problem das ich nicht weiß wie ich das alles unter einen 
Hut bringen soll... Die Cs leitungen sind selbstverständlich 2 
unterschiedliche.
Danke

[Karl H. (kbuchegg)]

>

> Spiin Adl , 1                                               'Read the low
> Spiin Adh , 1                                               'Read the high
> Set Tp_cs
> Readtouch_x = Makeint(adh , Adl)
>

Äh. Wenn ich ins Datenblatt zum  ads7843 schaue, dann ist dort aber die 
Bitaufteilung eine ganz andere.

Im ersten Byte sind die höherwertigen Bits, im 2. Byte sind die 
niederwertigen Bits, wobei die um 4 Bits verschoben sind.
Kein Wunder dass du da Zahlen rauskriegst, die physikalisch von den 
Eiegnschaften des Wandlers her gar nicht möglich sind.

[marcel (Gast)]

Das probel ist nicht die große zahl die ich raus bekomme sondern das ich 
auf ein und der selbern y position rechts und links einen anderen y wert 
bekomme.

|--------------------------|
|                          |
|                          |
|                          |
|                          |
|                          |
|                          |
|--------------------------|
(0/23000)                (23000/17000)

(X/Y)

[Karl H. (kbuchegg)]

marcel schrieb:
> Das probel ist nicht die große zahl die ich raus bekomme

> |--------------------------|
> |                          |
> |                          |
> |                          |
> |                          |
> |                          |
> |                          |
> |--------------------------|
> (0/23000)                (23000/17000)

Nochmal:
Wenn dir der ADC 12 BIt Werte liefert, dann ist es nicht möglich, dass 
da als Zahlenwert 23000 rauskommt. Es geht nicht! Du kannst dich Kopf 
stellen, aber deswegen ist das immer noch nicht möglich!

Du kriegst von deinem IC Werte im Bereich 0 bis 4095 (wegen der 12 Bit). 
Wenn du Ergebnisse bekommst, die ausserhalb dieses Bereichs liegen, dann 
ist deine Auswertung dessen, was du vom IC bekommst fehlerhaft. Mit 
fehlerhaften Daten kann man aber nichts anfangen.

Und das du links und rechts einen leicht anderen Wert rauskriegst, ist 
jetzt nicht so verwunderlich. Das Problem ist aber, da deine 
Zahlenauswertung schon falsch ist, ist auch der Fehler, der dir 
Kopfzerbrechen macht falsch. Der Fehler wird in der Größenordnung von 1 
oder 2 liegen. Vielleicht auch mal 5. Die 5000 kommen dir nur raus, weil 
du deine Zahlen schon falsch zusammensetzt.
Korrigier das als erstes und DANN kümmerst du dich um die Differenz 
zwischen den dann richtigen Messwerten von rechts und links.

[Matthias L. (Gast)]

>Die 5000 kommen dir nur raus, weil du deine Zahlen schon falsch >zusammensetzt.

Wenn HI und LO Byte vertauscht sind, wirkt sich eine echte Differenz von 
eins schon mal mit 256 aus. Und ist dann das ganze noch :
>wobei die um 4 Bits verschoben sind.

dann sind das nochmal mal 16, ergibt 256*16 = 4096.... daneben...

[marcel (Gast)]

Leute,
Danke ihr hattet recht! Ich hatte ein Brett vorm kopf. Durch die 
tauschung von High und Low und durch das verschieben nach Rechts hat 
sich das komplette problem Gelöst!
Danke