Hallo
Ich möchte gerne einen Analogwert mit dem Attiny 25 auswerten. Meim Atmega 8 hat das bei mir schon geklappt in dem ich das Register Adch einfahc abfrage erhalte ich einen wert zwischen 0 und 256.
Beim Attiny 25 hab ich es genauso gemacht, allerdings hat es da nicht geklappt.
Hier ist mal der Code den ich geschrieben habe:
Grüße Paul
Code:$regfile = "attiny25.dat" 'Prozessor-Deklarationen $crystal = 1000000 'Quarz: 1,000 MHz Intern Admux = &B00100010 Adcsra = &B11000010 Declare Sub Buchse1 Declare Sub Buchse2 Dim A As Byte '--------------------------------------------------------- Ddrb = &B00000110 'Pin Pb 1,2 Ausgang, rest Eingang Portb.0 = 1 Portb.3 = 1 'Pullups der Eingänge aktiviert 'PullUp von Pin PD0+1+rest aktivieren '---------------------------------------------------------- Config Debounce = 50 Do If Adch < 32 Then A = 50 End If If Adch < 96 And Adch > 32 Then A = 75 End If If Adch < 160 And Adch > 96 Then A = 100 End If If Adch < 224 And Adch > 160 Then A = 125 End If If Adch > 224 Then A = 150 End If Debounce Pinb.3 , 0 , Buchse1 , Sub 'Entprellte Tasterabfrage Debounce Pinb.0 , 0 , Buchse2 , Sub 'Entprellte Tasterabfrage Loop '---------------------------------------------------------- Sub Buchse2 Portb.1 = 1 Waitms A '^^^^^^^^^^^^^^^^--------------------------------------------- Zeit abhängig von Drehschalter Portb.1 = 0 End Sub Sub Buchse1 Portb.2 = 1 Waitms A '^^^^^^^^^^^^^^^^--------------------------------------------- Zeit abhängig von Drehschalter Portb.2 = 0 End Sub End







Zitieren

Lesezeichen