Hallo,
mein Name ist Jürgen und ich möchte mich in der Programmierung versuchen.
Die üblichen "Spielchen" mit LED habe ich hinter mir. Es hat soweit auch alles geklappt.
Nun wollte ich eine Modellbau-Servo ansteuern. Leider klapt das so ganz uns garnicht.
Ich wollte ein Programm schreiben wo zwei Positionen im wechsel angefahren werden.
Verwenden wollte ich einen ATTiny13. Beispiele habe ich einige gefunden. Nur alle funktionieren nicht.
Daher hier nun mein Quelltext, den ich soweit wie möglich schon abgespeckt habe.
$regfile = "ATtiny13.dat"
$crystal = 9600000
$hwstack = 10 ' default use 32 for the hardware stack
$swstack = 10 ' default use 10 for the SW stack
$framesize = 20 ' default use 40 for the frame space
Config Servos = 1 , Servo1 = Portb.1 , Reload = 2
Config Pinb.1 = Output
Enable Interrupts
Do
Servo(1) = 70
Waitms 10000
Servo(1) = 100
Waitms 10000
Loop
End
Leider fährt das Servo nur in einen Endstellung und versucht noch weiter zu drehen.
Mit dieer zeile "$crystal = 9600000" habe auch schon einwenig rumgespilet. Leider ohne Erfolg.
Muß ich im Bascom auch noch was umstellen?
Für jede Antwort Dankbar
Jürgen
Lesezeichen