Powell
12.06.2007, 12:37
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
$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
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
$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