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