' This program reads an RC radio
' and sets servos based on the
' positions for channel 1 and 6.
Dim V As New oRCIN6X
Dim S1 As New oServoX
Dim S2 As New oServoX
Sub main()
V.Operate = 1
S1.IOLine = 7
S1.Operate = cvOn
S2.IOLine = 6
S2.Operate = cvOn
Do
S1.Position = V.Ch1
S2.Position = V.Ch6
Loop
End Sub | ' This program reads an RC radio
' and sets servos based on the
' positions for channel 1 and 6.
oRCIN6X V = New oRCIN6X;
oServoX S1 = New oServoX;
oServoX S2 = New oServoX;
Void main(Void){
V.Operate = 1;
S1.IOLine = 7;
S1.Operate = cvOn;
S2.IOLine = 6;
S2.Operate = cvOn;
Do{
S1.Position = V.Ch1;
S2.Position = V.Ch6;
} While(1);
} |
' This program reads an RC radio
' and sets servos based on the
' positions for channel 1 and 6.
V As oRCIN6X(3,1)
S1 As oServoX(7,,,,,,,cvOn)
S2 As oServoX(6,,,,,,,cvOn)
Do
S1.Position = V.Ch1
S2.Position = V.Ch6
Loop | |