Hi,
ich habe da mal eine Frage.
wenn ich ein Touch Panel folgendermaßen Programmiere funktioniert dies
Code:
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.
Code:
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
Lesezeichen