Dim S As New oSrvSync
Dim S01 As New oServo(10,1,35,,16,1)
Dim S02 As New oServo(11,0,24,,,1)
Dim S03 As New oServo(31,0,46,,16,1)
Dim S04 As New oServo(30,1,23,,,1)
Dim S05 As New oServo(12,1,35,,16,1)
Dim S06 As New oServo(13,0,23,,,1)
Dim S07 As New oServo(29,0,45,,16,1)
Dim S08 As New oServo(28,1,13,,,1)
Dim S09 As New oServo(14,1,36,,16,1)
Dim S10 As New oServo(15,1,19,,,1)
Dim S11 As New oServo(27,0,44,,16,1)
Dim S12 As New oServo(26,0,24,,,1)
Dim X As New oByte
Sub main()
' Set up the oSrvSync
' Virtual Circuit.
S.Input.Link(X)
S.Output.Link(S01)
S.RCQuantity = 11
S.RCRise = 1
S.RCSpan = 5
S.RCMax = 1
S.RCJoint = 1
S.Operate = cvTrue
Do
' Walk forward
For X = 0 To 255
ooPIC.Delay = 250
Next X
' Walk backwards
For X = 255 To 0 Step -1
ooPIC.Delay = 250
Next X
Loop
End Sub |