16,555
社区成员
发帖
与我相关
我的任务
分享
While Ifmotor = True
Select Case do_work
Case 0 '打开串口
Dim portnumber As String = "COM2"
IsMotorOpen(portnumber)
Dim RWL As New ReaderWriterLock
RWL.AcquireWriterLock(Timeout.Infinite) 'mydate文件写入锁
Ifmotor = False
RWL.ReleaseLock()
Case 1 '关闭串口
do_deInit()
Ifmotor = False
Case 2 '打开伺服
do_StartServo()
Ifmotor = False
Case 3 '关闭伺服
do_ShutDownServo()
Ifmotor = False
Case 4 '方位向置位
do_Motor_SetPositionH(MyposH)
Ifmotor = False
Case 5 '俯仰向置位
do_Motor_SetPositionV(MyposV)
Ifmotor = False
Case 6 '同时置位
do_Motor_SetPosition(MyposH, MyposV)
Ifmotor = False
Case 7
Case 8
End Select
End While
Ifmotor = True : do_work = 2 '打开伺服