在VB.NET中设置手动超时

Question

我有一个vb.net应用程序，它与一些外部硬件（一组电机控制器）接口。为此，我使用硬件供应商提供的CANOpen库。然而，库中内置的超时确实过多，并导致应用程序在特定条件下痛苦地挂起。如果可能的话，我宁愿不需要编辑图书馆。

在vb.net中以另一种更短的超时进行设计，最明智的方法是什么？有问题的函数是一个阻塞函数，所以线程中的计时器可能没有帮助。这里有优雅的解决方案吗？

Answer 1

试试看，这是迄今为止我能想到的最好的。我之所以使用后台工作者，只是因为他们很容易使用。

基本上，它是线程中的一个线程，至少可以让你的UI保持响应，根据你所说的判断，你可能无论如何都应该对所有驱动器的通信功能使用线程，以防应用程序运行时驱动器因任何原因失去通信。

这并不好看，但它至少可以让你在CAN功能本身超时之前提前退出。

Private connected As Boolean
Private Sub bwTryConnect_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwTryConnect.DoWork
    Dim timeout As Boolean
    Dim timeoutCount As Integer
    Dim timeoutValue As Integer = 5 ' timeout value
    bwConnect.RunWorkerAsync() ' start worker to try connection
    While bwConnect.IsBusy And Not timeout
        Thread.Sleep(1000) ' wait a second
        timeoutCount += 1 ' increment timeout value
        If timeoutCount = timeoutValue Then timeout = True ' connection timed out
    End While
    ' connected will be true if the try connection worker completed (connection to drive ok) before the timeout flag was set, otherwise false
    connected = Not timeout
End Sub
Private Sub bwConnect_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles bwConnect.DoWork
    ' use your CAN library function here - either a simple connect command or just try reading an arbitary value from the drive
    ' if you want to test this, uncomment one of the following lines:
    'Thread.Sleep(20000) ' simulate timeout
    'Thread.Sleep(2000) ' simulate connect
End Sub

很明显，你会用bwTryConnect.RunWorkerAsync()打电话。