Goblin
26.04.2006, 18:39
$regfile = "m8def.dat"
$crystal = 1000000
$baud = 4800
Config Com1 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 1
Config Servos = 2 , Servo1 = Portc.0 , Servo2 = Portc.1 , Reload = 10
Config Portc = Output
Enable Interrupts
Dim A As Byte
Dim B As Byte
Servo(1) = 150
Servo(2) = 150
Schleife:
Inputbin , A , B
If A > 0 Then Servo(1) = A
If B > 0 Then Servo(2) = B
Goto Schleife
was ich will ist 2 servos per rs232 zu steuern. ich will per terminal werte übergeben. am anfang stelle ich die servos auf mittelstellung. da fangen sie an zu ruckeln. ca. 3x pro sekunde mit einer auslenkung von immerhin 2 mm. (5€-conradservos). Das ist auf die dauer tierisch nervig, kann mir jemand sagen woran das liegt? wenn ich z.b. auf 0 fahre ruckelts nicht. die bascom-routine kann doch nicht SO schlecht sein.
$crystal = 1000000
$baud = 4800
Config Com1 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 1
Config Servos = 2 , Servo1 = Portc.0 , Servo2 = Portc.1 , Reload = 10
Config Portc = Output
Enable Interrupts
Dim A As Byte
Dim B As Byte
Servo(1) = 150
Servo(2) = 150
Schleife:
Inputbin , A , B
If A > 0 Then Servo(1) = A
If B > 0 Then Servo(2) = B
Goto Schleife
was ich will ist 2 servos per rs232 zu steuern. ich will per terminal werte übergeben. am anfang stelle ich die servos auf mittelstellung. da fangen sie an zu ruckeln. ca. 3x pro sekunde mit einer auslenkung von immerhin 2 mm. (5€-conradservos). Das ist auf die dauer tierisch nervig, kann mir jemand sagen woran das liegt? wenn ich z.b. auf 0 fahre ruckelts nicht. die bascom-routine kann doch nicht SO schlecht sein.