Несколько DispatcherTimers с одним тиковым обработчиком событий - PullRequest
Новая
       3

Несколько DispatcherTimers с одним тиковым обработчиком событий

1 голос
/ 06 января 2012

Я работаю над проектом, который потребует от меня реагировать на 5 отдельных событий, сгенерированных внешним устройством, а затем сделать что-то после определенной задержки.События обычно происходят по одному, но иногда могут происходить одновременно.Это плохая идея, и если да, то почему? 

Imports System.Windows.Threading
Class MainWindow

Private TimerList As List(Of DispatcherTimer)

Private Sub Window_Loaded(ByVal sender As System.Object, 
ByVal e As ystem.Windows.RoutedEventArgs) Handles MyBase.Loaded

TimerList = New List(Of DispatcherTimer)

    'Create 5 timers for the 5 events from external device
    For i As Integer = 1 To 5
        TimerList.Add(
            New DispatcherTimer(TimeSpan.FromSeconds(10), DispatcherPriority.Normal,
                            New System.EventHandler(AddressOf tmr_Tick),
                            Me.Dispatcher) With {.Tag = i}
                        )
    Next

End Sub

Public Sub SomeEventFromExternalDevice(ByVal ID As Integer) 'handles...

    Dim CurTimer = TimerList.Find(Function(x) x.Tag = ID)

    If Not CurTimer Is Nothing Then
        CurTimer.Start()
    End If

End Sub

Private Sub tmr_Tick(ByVal sender As Object, ByVal e As System.EventArgs)
    Dim ID = DirectCast(sender.tag, Integer)

    Dim curTimer = TimerList.Find(Function(x) x.Tag = ID)

    curTimer.Stop()

    Select Case ID
        'change something on the UI to indicate that event x timer has elapsed
    End Select

End Sub

End Class

1 Ответ

1 голос
/ 06 января 2012

Вероятно, лучшим решением этого является полное избавление от DispatcherTimer и выполнение этого с помощью простых потоков.

Сначала создайте класс для хранения одного рабочего пакета события - я добавил способ передачи значения задержки здесь, но вы можете опустить его, если он не соответствует вашим потребностям. Это простая процедура, которая задерживает поток для задержки, а затем вызывает новое событие для вас. Если вам нужна точность, вы можете реализовать задержку с помощью секундомера или чего-то еще: 

Public Class DelayThread
    ' Task information
    Private _ID As Integer
    Private _delay As Integer
    Event onDelayUp(ByVal ID As Integer)

    ' Constructor
    Public Sub New(ByVal myID As Integer, ByVal myDelay As Integer)
        _ID = myID
        _delay = myDelay
    End Sub

    Public Sub DelayProc()
        System.Threading.Thread.Sleep(_delay)
        RaiseEvent onDelayUp(_ID)
    End Sub
End Class

Теперь ваше устройство будет запускать события, обработанные здесь: 

Public Sub SomeEventFromExtDevice(ByVal ID As Integer) 'Handles ...
        'get a "delay" value from somewhere, if you like
        Dim newDelayTask As New DelayThread(ID, delay)  'added delay here

        AddHandler newDelayTask.onDelayUp, AddressOf DoSomething

        Dim t As New System.Threading.Thread( _
        New System.Threading.ThreadStart(AddressOf newDelayTask.DelayProc))

        t.Priority = Threading.ThreadPriority.Normal 'whatever priority
        t.Start()

End Sub

Таким образом, каждый раз, когда происходит событие, вы запускаете новый поток, который ожидает вашего времени задержки, выполняет DoSomething, а затем завершает свою работу, очищаясь в процессе.

Здесь вам понадобится процедура «DoSomething»: 

 'declare this somewhere
 Delegate Sub dlgDoSomething(ByVal ID As Integer)

 Public Sub DoSomething(ByVal ID As Integer) 'hooked to onDelayUp @ runtime above
      'using "Me" here - if DoSomething is somewhere else 
      'you may need to refer to the main UI form instead  
      Me.Invoke(New dlgDoSomething(AddressOf uiDoSomething), New Object() {ID})
 End Sub

Процедура DoSomething будет вызываться из каждого потока, поэтому она должна вызываться в основном потоке пользовательского интерфейса - тогда потребуется: 

Public Sub uiDoSomething(ByVal ID As Integer)
        ' Do Something with ID - UI thread is now executing this so you are safe
End Sub

Если важно знать точный порядок событий - знать, когда они прибыли и в каком порядке - тогда вы можете добавить временную метку в SomeEventFromExtDevice и передать ее также.

Возможно, вы также захотите добавить некоторую обработку для закрытия приложения - здесь нет никаких проверок, чтобы убедиться, что потоки не пытаются маршалировать в основную форму после ее удаления, например.

...