Hallo ihr Profis,
mit einem Attiny45 wollte ich über zwei Taster ein Servo ansteuern,
leider gibt das Servo keinen Mucks von sich.Mit Atmega8 funktioniert
alles einwandfrei.Liegt der Fehler bei mir oder kann der Tiny45 keine
Servos ansteuern.
Vielen Dank für Eure Hilfe
Gruss Dieter
Anbei meinen Code.
$regfile = "attiny45.dat"
$hwstack = 16
$crystal = 8000000
Config Portb.0 = Output
Config Pinb.3 = Input
Config Pinb.2 = Input
Portb.3 = 1
Portb.2 = 1
Config Servos = 1 , Servo1 = Portb.0 , Reload = 8
Config Timer0 = Timer , Prescale = 1024
Enable Interrupts
Start Timer0
Init:
Servo(1) = 80
Main:
Timer0 = 0
If Pinb.3 = 0 Then -----Taster1
Servo(1) = Servo(1) + 1
End If
If Pinb.2 = 0 Then -----Taster2
Servo(1) = Servo(1) - 1
End If
Warte:
If Timer0 < 300Then -----Timing für Servo
Goto Warte
End If
Goto Main
mit einem Attiny45 wollte ich über zwei Taster ein Servo ansteuern,
leider gibt das Servo keinen Mucks von sich.Mit Atmega8 funktioniert
alles einwandfrei.Liegt der Fehler bei mir oder kann der Tiny45 keine
Servos ansteuern.
Vielen Dank für Eure Hilfe
Gruss Dieter
Anbei meinen Code.
$regfile = "attiny45.dat"
$hwstack = 16
$crystal = 8000000
Config Portb.0 = Output
Config Pinb.3 = Input
Config Pinb.2 = Input
Portb.3 = 1
Portb.2 = 1
Config Servos = 1 , Servo1 = Portb.0 , Reload = 8
Config Timer0 = Timer , Prescale = 1024
Enable Interrupts
Start Timer0
Init:
Servo(1) = 80
Main:
Timer0 = 0
If Pinb.3 = 0 Then -----Taster1
Servo(1) = Servo(1) + 1
End If
If Pinb.2 = 0 Then -----Taster2
Servo(1) = Servo(1) - 1
End If
Warte:
If Timer0 < 300Then -----Timing für Servo
Goto Warte
End If
Goto Main