六足爬行机器人系统设计 最后论文 - 图文(11)

六足爬行机器人控制系统设计

End Sub '后退

Private Sub Timer4_Timer() Static d As Integer d = d + 1 Select Case d Case 1

MSComm1.Output = \#0P700 #18P1500 #2P1900 #20P1800 #22P1100 #6P1600 #24P1300 #8P1700 #26P1400 #10P2100 T1000\Case 2

MSComm1.Output = \#0P700 #18P1500 #2P1900 #20P1800 #22P1100 #6P1600 #24P1000 #8P1700 #26P1400 #10P2100 T1000\Case 3

MSComm1.Output = \#0P700 #18P1500 #2P1450 #20P1800 #22P1400 #6P1600 #24P1000 #8P1700 #26P1400 #10P1610 T1000\Case 4

MSComm1.Output = \#0P700 #18P1100 #2P1450 #20P1800 #22P1400 #6P1900 #24P1300 #8P1700 #26P1100 #10P1610 T1000\Case 5

MSComm1.Output = \#0P1000 #18P1100 #2P1450 #20P1500 #22P1400 #6P1900 #24P1300 #8P2000 #26P1100 #10P1610 T1000\Case 6

MSComm1.Output = \#0P1000 #18P1500 #2P1450 #20P1500 #22P1400 #6P1600 #24P1300 #8P2000 #26P1400 #10P1610 T1000 \End Select

If d = 6 Then d = 0 End Sub

#4P1200

#4P1500

#4P1500

#4P1200

#4P1200

#4P1200

32