Ganz kurz ne zwischen Frage:
Kann man das so machen, oder kann man keine Servoposition abfregen?

servo(1) = 50
waitms 2000
servo(1) = 150
if servo (1) = 110 then .....


Dim A As Word
Dim B As Word
Dim C As Word

Config Servos = 2 , Servo1 = Porta.0 , Servo2 = Porta.1 , Reload = 10
Config Pina.0 = Output
Config Pina.1 = Output
Config Pina.2 = Output
Enable Interrupts
A Alias Servo(1)
B Alias Servo(2)
Move:
Do

A = 51
A = 52
A = 53
A = 54
A = 55
A = 56
A = 57
A = 58
A = 59
A = 60
A = 61
A = 62
A = 63
A = 64
A = 65
A = 66
If A = 51 Then B = 101
If A = 52 Then B = 102
If A = 53 Then B = 103
If A = 54 Then B = 104
If A = 55 Then B = 105
If A = 56 Then B = 106
If A = 57 Then B = 107
If A = 58 Then B = 108
If A = 59 Then B = 109
If A = 60 Then B = 110
If A = 61 Then B = 111
If A = 62 Then B = 113
If A = 63 Then B = 114
If A = 64 Then B = 115
If A = 65 Then B = 116
If A = 66 Then B = 117



Waitms 1000
A = 65
A = 64
A = 63
A = 62
A = 61
A = 60
A = 59
A = 58
A = 57
A = 56
A = 55
A = 54
A = 53
A = 52
A = 51
If A = 51 Then B = 101
If A = 52 Then B = 102
If A = 53 Then B = 103
If A = 54 Then B = 104
If A = 55 Then B = 105
If A = 56 Then B = 106
If A = 57 Then B = 107
If A = 58 Then B = 108
If A = 59 Then B = 109
If A = 60 Then B = 110
If A = 61 Then B = 111
If A = 62 Then B = 113
If A = 63 Then B = 114
If A = 64 Then B = 115
If A = 65 Then B = 116
If A = 66 Then B = 117

Waitms 1000
Loop
[/code]