Timeout Funktion

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von zoranmaric.

    Timeout Funktion

    Hallo,

    hat schon jemand einen Tiemout Funktion programmiert ?
    Hatte im net gesucht aber doch nichts gefunden... Ich will eine Funktion basteln die jedes Mal z.B. alle 5 sec. resettet werden muß, fals sie nicht resetet wird soll sie etwas uslösen. Wie beim Zug. Der Zugführer muß einen Taster auslösen ansonsten wird eine Blemse ausgelöst ...

    Du nimmst einen Timer, der alle 5 Sekunden überprüft ob ein Boolean auf True setzt.
    Wenn nein, gib Alarm
    Wenn ja, setz den Wert auf False.

    Parallel dazu in deiner manuellen Routine (z.B. Klick-Event) setzt du den Wert auf True.

    Klingt irgendwie so, als ob du deine User verärgern willst.
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    Ziemlich trivial eigentlich:

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private WithEvents tm As New Timer With {.Interval = 2500}
    4. Private DeadManSwitch As Boolean = True
    6. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    7. DeadManSwitch = True
    8. tm.Stop()
    9. tm.Start()
    10. End Sub
    12. Private Sub tm_Tick(sender As Object, e As EventArgs) Handles tm.Tick
    13. If Not DeadManSwitch Then
    14. Debug.Print("ALAAAAAAAAAARM!!!")
    15. Else
    16. DeadManSwitch = False
    17. Debug.Print("Voralarm ...")
    18. End If
    19. End Sub
    21. Private Sub Form1_Shown(sender As Object, e As EventArgs) Handles Me.Shown
    22. If Not tm.Enabled Then tm.Enabled = True
    23. End Sub
    24. End Class

Facebook
Telefonspende