Attiny13 zur Servoansteuerung
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
Liste der Anhänge anzeigen (Anzahl: 1)
Ganz so einfach ist es dann doch nicht.
Kann mir jemand sagen ob das so passt.Anhang 23280
Gruß
Jürgen
Liste der Anhänge anzeigen (Anzahl: 2)
Hallo Searcher,
vielen Dank für Deine Hilfe. Durch Deine Hilfe habe ich es geschaft, mit folgenden Programm
$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 = 5
Config Pinb.1 = Output
Enable Interrupts
Do
Servo(1) = 65
Waitms 300
Servo(1) = 230
Waitms 200
Loop
End
und diesen Fuseligen Fu..Anhang 23287
und dieser Version
Anhang 23289
Schnell speichern bevor der Admin mich rauswirft:strom