Page 202 - The Ultimate Palm Robot

Color profile: Generic CMYK printer profile
Composite Default screen
Bots /The Ultimate Palm Robot/ Mukhar & Johnson / 222880-6 / Chapter 7

Chapter 7 Essential Robot Programming Strategies 185

End Sub

Sub DoJig()
sv1 = "SV1M128"+chr(13)
sv2 = "SV2M1"+chr(13)
sv3 = "SV3M255"+chr(13)
Call ServoControl()
Delay 2

sv1 = "SV1M255"+chr(13)
sv2 = "SV2M255"+chr(13)
sv3 = "SV3M255"+chr(13)
Call ServoControl()
Delay 3

sv1 = "SV1M128"+chr(13)
sv2 = "SV2M1"+chr(13)
sv3 = "SV3M255"+chr(13)
Call ServoControl()
Delay 2

sv1 = "SV1M1"+chr(13)
sv2 = "SV2M1"+chr(13)
sv3 = "SV3M1"+chr(13)
Call ServoControl()
Delay 3

sv1 = "SV1M128"+chr(13)
sv2 = "SV2M128"+chr(13)
sv3 = "SV3M128"+chr(13)
Call ServoControl()
Return
End Sub

Sub ServoControl()
Dim err as Integer
err = serialsend(sv1,len(sv1))
err = serialsend(sv2,len(sv2))
err = serialsend(sv3,len(sv3))
Return
End Sub

P:\010Comp\Bots\880-6\ch07.vp
Monday, May 12, 2003 4:29:27 PM