Pirate scholar 2017-11-02 14:47 采纳率: 22.2%
浏览 1577
已结题

vb.net 公共变量跨线程加同步锁

这段程序是在一个线程中执行的代码

   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
    End Sub

这个是在另一个线程中改变公共变量的代码

   Ifmotor = True : do_work = 2  '打开伺服

但是实际执行的过程中由于跨城的原因第一段代码是不进入执行的,如何处理?

  • 写回答

1条回答

  • qq_31391431 2017-11-02 17:49
    关注

    但是实际执行的过程中由于跨城的原因第一段代码是不进入执行的,如何处理?

    评论

报告相同问题?

悬赏问题

  • ¥15 HFSS 中的 H 场图与 MATLAB 中绘制的 B1 场 部分对应不上
  • ¥15 如何在scanpy上做差异基因和通路富集?
  • ¥20 关于#硬件工程#的问题,请各位专家解答!
  • ¥15 关于#matlab#的问题:期望的系统闭环传递函数为G(s)=wn^2/s^2+2¢wn+wn^2阻尼系数¢=0.707,使系统具有较小的超调量
  • ¥15 FLUENT如何实现在堆积颗粒的上表面加载高斯热源
  • ¥30 截图中的mathematics程序转换成matlab
  • ¥15 动力学代码报错,维度不匹配
  • ¥15 Power query添加列问题
  • ¥50 Kubernetes&Fission&Eleasticsearch
  • ¥15 報錯:Person is not mapped,如何解決?