Das geht , da (5)+(acht) = 0 ,habe ich die dennoch aber als Plazebos eingefügt.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
Gento
Lesezeichen