Ich spiel mal den Dolmetscher
Code:Sub Main() Dim servo_var(30) as byte ' Max. 10 Servos, 20ms Intervall, Timer 3 Servo_Init(10, 1, servo_var, 1) Servo_Set(7, 2000) ' Servo Portbit 7 2000µs Servo_Set(6, 1800) ' Servo Portbit 6 1800µs Servo_Set(5, 1600) ' Servo Portbit 5 1600µs AbsDelay(5000) Servo_Set(7, 1000) ' Servo Portbit 7 1000µs AbsDelay(5000) Servo_Set(7, 0) ' alle Servos aus Servo_Set(6, 0) Servo_Set(5, 0) End Sub
Lesezeichen