atmega32 -> Servo

[Mark (Gast)]

Hallo,

ich habe einen Servo an einen Controller angeschlossen und möchte ihn 
jetzt damit ansteuern. Dazu habe ich ein kleinen Code in Bascom 
geschrieben:


"
$regfile = "m32def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 16000000
$baud = 9600
 Config Servos = 1 , Servo1 = Porta.2 , Reload = 10

Do
Servo(1) = 100
Waitms 100
Servo(1) = 00
Waitms 100
Loop
End
"


Leider funktioniert das nicht. Kann mir jemand helfen den Fehler in dem 
Programm zu finden?

Thomas

[roboter (Gast)]

probier den mal, da läuft es rechts und links.

$regfile = "m32def.dat"
$framesize = 42
$swstack = 32
$hwstack = 32

$crystal = 8000000
$baud = 19200

Dim Sw As Byte

Config Pina.2 = Output
Enable Interrupts

Config Servos = 1 , Servo1 = Porta.2 , Reload = 10
Servo(1) = 100

For Sw = 40 To 140
Servo(1) = Sw
Waitms 100
Next Sw

For Sw = 140 To 40 Step -1
Servo(1) = Sw
Waitms 100
Next Sw


End