随笔 - 290  文章 - 10  评论 - 85  2

现在手上有一些历史的VB项目,是工控方面PLC控制的. 代码用了很多DoEvent 和时间等待. DoEvent的最大问题的不知道流程跳到哪里去了.

        
        MSComm1.InBufferCount = 0
        MSComm1.Output = nSendTemp
        DoEvents
         
        Start = timeGetTime
                
        Do While timeGetTime - Start < 500
        '在毫秒内连续读PLC
        '16是返回位的长度,要等它返回完之后,才能继续下一步
                If MSComm1.InBufferCount >= 16 Then 
                
                        Dim readTemp() As Byte
                        readTemp = MSComm1.Input
                        Dim nTemp(20) As Long
                        If DispatchPlcData_Wr(readTemp, nTemp, 2) = False Then
                        '读PLC错
                                nData(0) = 0
                                nData(1) = 0
                                GoTo EndFunc
                        Else
                                nData(0) = nTemp(0)
                                nData(1) = nTemp(1)
                                GetAddressData = True                               
                                Exit Function
                        End If
                End If
                DoEvents
        Loop  

 

所以,不得以要用C#重新改造,重新捡起多线程.之前写WinForm比较少,重新学习一遍多线程.

1. IO密集型的,尽量不要用多线程,而是用异步方法.因为IO比CPU慢太多了.CPU只需要偶尔发个指令过去,然后在异步方法完成时处理一下就好了.

 

posted on 2019-09-17 09:14  Gu  阅读(...)  评论(...编辑  收藏