|
www.elektronik.si Forum o elektrotehniki in računalništvu
|
Poglej prejšnjo temo :: Poglej naslednjo temo |
Avtor |
Sporočilo |
laco Član
Pridružen-a: Pon 06 Jun 2011 19:32 Prispevkov: 13 Aktiv.: 0.08 Kraj: Hrvatska
|
Objavljeno: Čet Okt 20, 2011 8:54 pm Naslov sporočila: Pomoć za LedSee Touch GLCD 240x128 - BascomAvr |
|
|
Kupio sam kod LedSee-a Touch GLCD 240x12 i nisam dobio podatke za Touch Panel već samo za GLCD iako sam zatražio putem e-maila. Program za Touch panel sam napravio na bazi vizualnog pogleda na Touch panel i touch kabel. Imam problem ne dobivam u redu ADC vrijednosti X i Y. Molim za pomoć.
Bascom code:
$regfile = "m128def.dat"
$crystal = 8000000
$hwstack = 100
$swstack = 75
$framesize = 40
Config Graphlcd = 240 * 128 , Dataport = Porta , Controlport = Portc , Ce = 3 , Cd = 0 , Wr = 2 , Rd = 1 , Reset = 4 , Fs = 6 , Mode = 6
Config Adc = Single , Prescaler = Auto , Reference = Internal
Dim X As Word , Y As Word
Backlight Alias Portc.5
Start Adc
Cursor Off
Cls
Locate 1 , 1 : Lcd "T6963 with Touchscreen an ATMega128"
Locate 3 , 1
Lcd "Y-Koordinate analog: "
Locate 4 , 1
Lcd "X-Koordinate analog: "
Reset Backlight ' Reset Backlight
'************************ Main Program *****************************
Do
Gosub Readtouch
Locate 3 , 22 : Lcd Y ; " "
Locate 4 , 22 : Lcd X ; " "
Wait 1
Loop
End 'end program
'*********************** READ TOUCH ******************************
Readtouch1:
Config Pinf.1 = Output ' Makes port F.1 output - Bottom
Config Pinf.3 = Output ' Makes port F.3 output - Top
Set Portf.1 ' Sets port F.1 High
Reset Portf.3 ' Sets port F.3 Low
Ddrf.0 = 0 : Portf.0 = 1 ' Sets port F.0 as input
Ddrf.2 = 0 : Portf.2 = 1 ' Sets port F.2 as input
Waitms 20 ' Wait until the port is stable
Y = Getadc(2) ' Read the AD value "Y"
Y = 1024 - Y
Config Pinf.0 = Output ' Makes port F.0 output
Config Pinf.2 = Output ' Makes port F.2 output
Reset Portf.0 ' Sets port F.0 Low
Set Portf.2 ' Sets port F.2 High
Ddrf.1 = 0 : Portf.1 = 1 ' Sets port F.1 as input
Ddrf.3 = 0 : Portf.3 = 1 ' Sets port F.3 as input
Waitms 20 ' Wait until the port is stable
X = Getadc(3) ' Read the AD Value "X"
X = 1024 - X
Return
Opis: |
Moj vizualni pogled na kotakte Touch Panela |
|
Velikost datoteke: |
53.01 KB |
Pogledana: |
0 krat |
|
_________________ Lijep pozdrav,
Ivica Lacmanovic |
|
Nazaj na vrh |
|
|
RGorazd Član
Pridružen-a: Čet 20 Maj 2004 15:57 Prispevkov: 1713 Aktiv.: 7.68 Kraj: Ig
|
Objavljeno: Čet Okt 20, 2011 9:44 pm Naslov sporočila: |
|
|
Možda ti je problem u ovome:
Config Adc = Single , Prescaler = Auto , Reference = Internal
Ako staviš reference na internal, znači da upotrebljavaš 2.54V interni referenčni napon, a ti portom f, kad ga podigneš na "1" staviš 5V. A tebi ide ADC do 2.5V, sve što je iznad ti je vrijendnost ADC 0xff (1023).
LP G
_________________ .
._. _ _ ._. _.__. _|
[ (_](_)[ (_] /_(_]
._| |
|
Nazaj na vrh |
|
|
|
|
Ne, ne moreš dodajati novih tem v tem forumu Ne, ne moreš odgovarjati na teme v tem forumu Ne, ne moreš urejati svojih prispevkov v tem forumu Ne, ne moreš brisati svojih prispevkov v tem forumu Ne ne moreš glasovati v anketi v tem forumu Ne, ne moreš pripeti datotek v tem forumu Ne, ne moreš povleči datotek v tem forumu
|
Uptime: 80 dni
Powered by phpBB © 2001, 2005 phpBB Group
|