level 1
qsd717
楼主
在timer事件里加了sleep,程序会假死,有什么好的方法代替sleep延时吗?
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
m1_RS232.DiscardInBuffer()
m1_RS232.Write("%01#RCSR5258**" & vbCrLf)
Thread.Sleep(50)
If m1_RS232.BytesToRead > 0 Then
mToolAcqFifo1.Run()
m1_RS232.DiscardInBuffer()
th_save = New Thread(New ThreadStart(AddressOf SaveData))
th_save.Start()
Thread.Sleep(100)
Else
m1_RS232.DiscardInBuffer()
End If
End Sub
2018年06月09日 07点06分
1
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
m1_RS232.DiscardInBuffer()
m1_RS232.Write("%01#RCSR5258**" & vbCrLf)
Thread.Sleep(50)
If m1_RS232.BytesToRead > 0 Then
mToolAcqFifo1.Run()
m1_RS232.DiscardInBuffer()
th_save = New Thread(New ThreadStart(AddressOf SaveData))
th_save.Start()
Thread.Sleep(100)
Else
m1_RS232.DiscardInBuffer()
End If
End Sub