Ich noch mal...
Da es doch nicht so richtig funktioniert hat,hab ich mich nochmal dran gesetzt.
War doch Programmierfehler
(aber ich hab ja nie gesagt,das ich das gut kann)
Da ich in dem Fall ja kein Poti am ADC hab,sondern nur einen einpoligen Umschalter mit Mittelstellung,hab ich den ADC mit zwei Widerlingen ständig auf 2,5V in Ruhestellung.
Eine Schaltstellung gibt GND drauf,die andere VCC.
Und für den Fall war das "Programm" Schwachsinn.
Vor allem die Zeile,die nach jedem auslesen erst mal auf Mittelwert setzt.
Keine Ahnung,wer mir das geflüstert hat...
Hab das jetzt mit "Select-Case" gemacht,und schon gehts.
So hier:
| Code : |
$regfile = "ATtiny13.dat"
$crystal = 1200000
$hwstack = 15
$swstack = 15
Config Portb.0 = Output
Config Timer0 = Pwm , Prescale = 1 , Compare A Pwm = Clear up
enable timer0
dim x as byte
Admux = &B00100010
Adcsra = &B11000011
do
Adcsra = &B11000011
Waitms 35
X = Adch
Select Case x
case 0 to 70
compare0A=1
case 71 to 170
compare0A=130
case 171 to 255
compare0A =255
end select
waitms 300
loop
|
|
_________________
Manche Männer bemühen sich lebenslang, das Wesen einer Frau zu verstehen. Andere befassen sich mit weniger schwierigen Dingen z.B. der Relativitätstheorie.
(Albert Einstein)
