Code:
Dim Servoconfig(8) As Word
Dim Servoposition As Word


Servoconfig(1) = 1
Servoconfig(4) = 5
Servoconfig(5) = 0
Servoconfig(8) = 0

Servoposition = Servoconfig(1) * 1000
Servoposition = Servopostion + Servoconfig(4) * 100
Servoposition = Servopostion + Servoconfig(5) * 10    'Placebo da 0
Servoposition = Servopostion + Servoconfig(8)           'Placebo da 0
Das geht , da (5)+(acht) = 0 ,habe ich die dennoch aber als Plazebos eingefügt.

Gento