2 timers die elkaar activeren

[erton]

Hallo,

is het mogelijk om 2 timers te gebruiken die elkaar activeren?
dus bvb als de eerste timer 5 seconden heeft gewacht, dat hij dan de 2de timer activeert, die dan ook 5 seconden moet wachten. als de tweede timer deze 5 seconden heeft volbracht, activeert timer 2 de eerste timer terug opnieuw and so on...

ik heb dit nodig om een stream van een webcam te vergelijken. ik moet dus altijd het vorige gecaptured beeld vergelijken met het laatste gecaptured beeld, maar de timers mogen nooit op dezelde moment ticken, want dan zijn de beelden gelijk.
ze mogen enkel gelijk zijn op verschillende tijdstippen.
dit even ter info

mvg en hartelijk dank

 

[old Hippy]

Weet niet maar mischien is dit wat je wild.
aanpassen op je eigen code

Public Class Form1
    Dim A As String
    Dim s As String
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        s = s + 1
        Label1.Text = s
        If s = 5 Then
            Timer1.Stop()
            Timer2.Start()
            A = 0
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Enabled = True
        Timer1.Start()
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        A = A + 1
        Label2.Text = A
        If A = 5 Then
            Timer2.Stop()
            Timer1.Start()
            s = 0
        End If
    End Sub
End Class

 

[erton]

bedankt old hippy, mits een kleine aanpassing is het gelukt.

dit is de code:

de timers worden ge-enabled wanneer op de knop wordt gedrukt om de cam te starten

Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If myCam.iRunning Then
            PictureBox2.Image = myCam.copyFrame(Me.picOutput, New RectangleF(0, 0, _
                            Me.picOutput.Width, Me.picOutput.Height))
        Else
            Timer1.Enabled = False
        End If
        Timer1.Stop()
        Timer2.Start()
        Timer2.Interval = 200
    End Sub

    Private Sub Timer2_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        If myCam.iRunning Then
            PictureBox3.Image = myCam.copyFrame(Me.picOutput, New RectangleF(0, 0, _
                            Me.picOutput.Width, Me.picOutput.Height))
        Else
            Timer2.Enabled = False
        End If
        Timer2.Stop()
        Timer1.Start()
        Timer1.Interval = 200
    End Sub