adc touch panel

[stefan8010]

Hi,

ich habe da mal eine Frage.

wenn ich ein Touch Panel folgendermaßen Programmiere funktioniert dies

Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc

Do
Config Portc.0 = Output                                    
Config Portc.2 = Output                                    
Portc.0 = 1                                                 
Portc.2 = 0                                                
Ddrc.1 = 0                                                
Ddrc.3 = 0                                                 
Waitms 20
Y = Getadc(1)
Y = 1024 - Y
Locate 1 , 1
Lcd "y:" ; Y

Config Portc.1 = Output                                   
Config Portc.3 = Output                                    
Portc.3 = 1                                              
Portc.1 = 0                                              
Ddrc.0 = 0                                                
Ddrc.2 = 0                                                  
Waitms 20
X = Getadc(0)                                               
X = 1024 - X
Locate 1 , 9
Lcd "x:" ; X
Loop
End

Auf folgendem Weg funktioniert dies nicht. Wo liegt mein Fehler? Würde mich über Hilfe sehr freuen.

Admux = Bits(refs0)
Adcsra = Bits(aden , Adsc , Adps2 , Adps1)

Do 
Adcsra.adsc = 1
  Config Porta.0 = Output                                  
  Config Porta.2 = Output                                  
  Porta.0 = 1                                              
  Porta.2 = 0                                            
  Admux.mux0 = 1
  Admux.mux1 = 1                                          
  y = Adc
  Waitms 10

  Locate 1 , 1
  Lcd "y:" ; Readadc

  Adcsra.adsc = 1
  Config Porta.1 = Output                                   
  Config Porta.3 = Output                                  
  Porta.3 = 1                                             
  Porta.1 = 0                                             
  Admux.mux0 = 0
  Admux.mux1 = 1
  x = Adc
  Waitms 10

  Locate 2 , 1
  Lcd "x:" ; Readadc

Loop
End

Gruß, stafen8010