Timer stockt

  • VB.NET

Es gibt 20 Antworten in diesem Thema. Der letzte Beitrag () ist von nt-software.

    Timer stockt

    Tach,
    ich habe 2 Timer. In einem Timer werden alle 10 Sekunden Informationen von einer MySQL Datenbank (online) in zwei ListView's geschrieben. Der 2. Timer (Interval: 600) blendet eine PictureBox ein und aus. Wenn ich jetzt beide Timer gleichzeitig laufen lasse, stockt der 2. Timer (PictureBox), wenn der 1. Timer gerade dabei ist die ListView zu füllen. Wie kann ich das besser Lösen? Mit einem Backgroundworker? Das habe ich eben probiert, jedoch klappt das mit der MySQL Verbindung nicht richtig. Ist das überhaupt der richtige Weg?

    Hallo nt-software,

    und du wunderst dich ?

    Überleg doch mal
    Dein Timer2 wird alle 600ms ausgeführt.

    Alle anderen Events incl. das was Windows so nebenbei macht, müssten dann in kürzerer Zeit - als eben diese 600ms - ablaufen.

    Wie lange ist denn dein Timer 1 beschäftigt ?
    Hast du das schon einmal gemessen ? (Stichwort: Stoppwatch-Klasse)

    Gruss

    mikeb69

    ChaosBernd:
    Ja, und zwar ist die PictureBox ein Warnblinker-Bild (2 Pfeile wie mans vom Auto kennt), das dann alle 600 ms ein und ausgeblenet wird (dabei noch so ein Klick-Klack-Sound).. Und der Timer1 muss jede 10Sekunden die Liste aktualisieren...

    Sythas:
    Ja, habe ich mir auch schon gedacht. Ich werde es jetzt nochmal versuchen mit dem BGW.

    nt-software schrieb:

    Ja, habe ich mir auch schon gedacht. Ich werde es jetzt nochmal versuchen mit dem BGW.

    Brauchst du nicht, wenn du statt des Windows.Forms.Timer den Timers.Timer nimmt. Denn dessen Event läuft in nem neuen Thread.
    Vorsicht natürlich bei Zugriff auf Controls, wegen threadübergreifendem Vorgang. Also immer schön "invoken" !

    Hi picoflop,
    habe es jetzt mit dem Timers.Timer probiert.

    VB.NET-Quellcode

    1. Imports System.Timers
    3. Private WithEvents MyTimer As New Timers.Timer
    5. Private Sub MyTimer_Elapsed(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs) Handles MyTimer.Elapsed
    6. Call Meldungen_laden() '< Meine Sub
    7. End Sub


    Wie du schon erwähnt hast klappt das nicht, weil er nicht auf andere Controls zugreifen kann. Jetzt habe ich schon irgendwas mit Delegates gelesen, das versteh ich aber gar nicht. Und was meinst du mit invoken? Kannst mir da ein Beispiel geben?

    Irgendwie will das immernoch nicht.
    Hier mal mein ganzer Code:

    VB.NET-Quellcode

    1. Imports System.Timers
    2. Imports System.Threading
    4. Private WithEvents MyTimer As New Timers.Timer


    VB.NET-Quellcode

    1. Private Sub FMSMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    2. MyTimer.Interval = 10000
    3. MyTimer.Enabled = True
    4. Dim d As DlgMachwas = AddressOf Meldungen_laden
    5. lstvMeldungen.Invoke(d)
    6. lstvUser.Invoke(d)
    7. End Sub


    VB.NET-Quellcode

    1. Public Sub Meldungen_laden()
    3. Dim vAnzahl As Integer
    5. myData.Reset()
    6. vSQL = "SELECT * FROM tbl_Meldungen"
    7. conn.Open()
    8. myCommand.Connection = conn
    9. myCommand.CommandText = vSQL
    10. myAdapter.SelectCommand = myCommand
    11. myAdapter.Fill(myData)
    12. conn.Close()
    14. vAnzahl = lstvMeldungen.Items.Count
    15. lstvMeldungen.Items.Clear() 'Alle Items löschen
    17. Dim i As Long
    19. For i = myData.Rows.Count - 1 To 0 Step -1
    21. lstvMeldungen.Items.Add(myData.Rows(i).Item(0).ToString).Group = lstvMeldungen.Groups.Item("lstvgEinsaetze")
    23. 'lstvMeldungen.Groups("lstvgEinsaetze").Items.Add.
    24. 'lstvMeldungen.Groups("lstvgEinsatze").Items.Add(myData.Rows(i).Item(0).ToString)
    26. lstvMeldungen.Groups("lstvgEinsaetze").Items(lstvMeldungen.Groups("lstvgEinsaetze").Items.Count - 1).SubItems.Add((myData.Rows(i).Item(9).ToString))
    27. 'lstvMeldungen.Items(lstvMeldungen.Items.Count - 1).SubItems.Add((myData.Rows(i).Item(9).ToString))
    28. lstvMeldungen.Groups("lstvgEinsaetze").Items(lstvMeldungen.Groups("lstvgEinsaetze").Items.Count - 1).SubItems.Add((myData.Rows(i).Item(1).ToString))
    29. 'lstvMeldungen.Items(lstvMeldungen.Items.Count - 1).SubItems.Add((myData.Rows(i).Item(1).ToString))
    30. lstvMeldungen.Groups("lstvgEinsaetze").Items(lstvMeldungen.Groups("lstvgEinsaetze").Items.Count - 1).SubItems.Add((myData.Rows(i).Item(2).ToString))
    31. 'lstvMeldungen.Items(lstvMeldungen.Items.Count - 1).SubItems.Add((myData.Rows(i).Item(2).ToString))
    32. lstvMeldungen.Groups("lstvgEinsaetze").Items(lstvMeldungen.Groups("lstvgEinsaetze").Items.Count - 1).SubItems.Add((myData.Rows(i).Item(3).ToString))
    33. 'lstvMeldungen.Items(lstvMeldungen.Items.Count - 1).SubItems.Add((myData.Rows(i).Item(3).ToString))
    34. lstvMeldungen.Groups("lstvgEinsaetze").Items(lstvMeldungen.Groups("lstvgEinsaetze").Items.Count - 1).SubItems.Add((myData.Rows(i).Item(4).ToString))
    35. 'lstvMeldungen.Items(lstvMeldungen.Items.Count - 1).SubItems.Add((myData.Rows(i).Item(4).ToString))
    36. lstvMeldungen.Groups("lstvgEinsaetze").Items(lstvMeldungen.Groups("lstvgEinsaetze").Items.Count - 1).SubItems.Add((myData.Rows(i).Item(5).ToString))
    37. 'lstvMeldungen.Items(lstvMeldungen.Items.Count - 1).SubItems.Add((myData.Rows(i).Item(5).ToString))
    38. lstvMeldungen.Groups("lstvgEinsaetze").Items(lstvMeldungen.Groups("lstvgEinsaetze").Items.Count - 1).SubItems.Add((myData.Rows(i).Item(6).ToString))
    39. 'lstvMeldungen.Items(lstvMeldungen.Items.Count - 1).SubItems.Add((myData.Rows(i).Item(6).ToString))
    40. lstvMeldungen.Groups("lstvgEinsaetze").Items(lstvMeldungen.Groups("lstvgEinsaetze").Items.Count - 1).SubItems.Add((myData.Rows(i).Item(7).ToString))
    41. 'lstvMeldungen.Items(lstvMeldungen.Items.Count - 1).SubItems.Add((myData.Rows(i).Item(7).ToString))
    42. lstvMeldungen.Groups("lstvgEinsaetze").Items(lstvMeldungen.Groups("lstvgEinsaetze").Items.Count - 1).SubItems.Add((myData.Rows(i).Item(8).ToString))
    43. 'lstvMeldungen.Items(lstvMeldungen.Items.Count - 1).SubItems.Add((myData.Rows(i).Item(8).ToString))
    44. Next
    47. If vNeu = True Then
    48. vNeu = False
    49. Else
    50. If lstvMeldungen.Items.Count > vAnzahl Then
    52. tmrTasteBlinken.Start()
    54. If Alarm = True Then
    55. If AlarmTon = 1 Then
    56. If IO.File.Exists(Application.StartupPath & "\Alarm1.wav") Then
    57. My.Computer.Audio.Play(Application.StartupPath & "\Alarm1.wav", AudioPlayMode.Background)
    58. Else
    59. MessageBox.Show("Die Datei ""Alarm1.wav"" konnte nicht gefunden werden!", "Alarm1.wav...", MessageBoxButtons.OK, MessageBoxIcon.Error)
    60. End If
    61. End If
    62. If AlarmTon = 2 Then
    63. If IO.File.Exists(Application.StartupPath & "\Alarm2.wav") Then
    64. My.Computer.Audio.Play(Application.StartupPath & "\Alarm2.wav", AudioPlayMode.Background)
    65. Else
    66. MessageBox.Show("Die Datei ""Alarm2.wav"" konnte nicht gefunden werden!", "Alarm2.wav...", MessageBoxButtons.OK, MessageBoxIcon.Error)
    67. End If
    68. End If
    69. If AlarmTon = 3 Then
    70. If IO.File.Exists(Application.StartupPath & "\Alarm3.wav") Then
    71. My.Computer.Audio.Play(Application.StartupPath & "\Alarm3.wav", AudioPlayMode.Background)
    72. Else
    73. MessageBox.Show("Die Datei ""Alarm3.wav"" konnte nicht gefunden werden!", "Alarm3.wav...", MessageBoxButtons.OK, MessageBoxIcon.Error)
    74. End If
    75. End If
    76. If AlarmTon = 4 Then
    77. If IO.File.Exists(Application.StartupPath & "\Alarm4.wav") Then
    78. My.Computer.Audio.Play(Application.StartupPath & "\Alarm4.wav", AudioPlayMode.Background)
    79. Else
    80. MessageBox.Show("Die Datei ""Alarm4.wav"" konnte nicht gefunden werden!", "Alarm4.wav...", MessageBoxButtons.OK, MessageBoxIcon.Error)
    81. End If
    82. End If
    83. End If
    84. End If
    86. End If
    88. User_laden()
    90. End Sub


    VB.NET-Quellcode

    1. Public Sub User_laden()
    2. myData.Reset()
    3. vSQL = "SELECT UR.ID, UR.Name, UR.Rechte, FZ.Fahrzeug, UR.Verfügbar, UR.Status FROM tbl_User UR, tbl_Fahrzeuge FZ WHERE UR.Fahrzeug = FZ.ID"
    4. conn.Open()
    5. myCommand.Connection = conn
    6. myCommand.CommandText = vSQL
    7. myAdapter.SelectCommand = myCommand
    8. myAdapter.Fill(myData)
    9. conn.Close()
    11. lstvUser.Items.Clear() 'Alle Items löschen
    13. For i = 0 To myData.Rows.Count - 1
    14. '##################If myData.Rows(i).Item(2).ToString = "User" Then 'Nur Users
    15. 'If myData.Rows(i).Item(4).ToString = "Offline" Then 'Wenn Offline
    16. ' lstvUser.Items.Add(myData.Rows(i).Item(1).ToString).Group = lstvUser.Groups.Item("ListViewGroupOffline")
    17. 'Else 'Wenn Online
    18. lstvUser.Items.Add(myData.Rows(i).Item(1).ToString).Group = lstvUser.Groups.Item("lstvgUser")
    19. lstvUser.Groups("lstvgUser").Items(lstvUser.Groups("lstvgUser").Items.Count - 1).SubItems.Add((myData.Rows(i).Item(3).ToString))
    20. '#################End If
    21. 'End If
    23. Next
    24. End Sub


    VB.NET-Quellcode

    1. Private Delegate Sub DlgMachwas()
    4. Private Sub MyTimer_Elapsed(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs) Handles MyTimer.Elapsed
    5. Meldungen_laden()
    6. End Sub


    Es kommt immer der Fehler wegen dem threadübergreifendem Vorgang.

    Control.Invoke benutzt man, damit eine Methode im Thread des betreffenden Controls ausgeführt wird. Das Timer_Elapsed Event feuert in seinem EIGENEN Thread, also muss man DORT das .Invoke verwenden! In Form_Load macht es keinen Sinn, weil Form_Load ja sowieso schon im GUI-Thread ist und das ist auch der Thread in dem alle Controls liegen.

    VB.NET-Quellcode

    1. Private Sub MyTimer_Elapsed(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs) Handles MyTimer.Elapsed
    2. Meldungen_laden()
    4. Dim d As DlgMachwas = AddressOf Meldungen_laden
    5. lstvMeldungen.Invoke(d)
    6. lstvUser.Invoke(d)
    7. End Sub


    Klappt leider nicht, und ich weiß nicht wieso... :(

    Er markiert folgende Zeile grün:

    VB.NET-Quellcode

    1. lstvUser.Items.Add(myData.Rows(i).Item(1).ToString).Group = lstvUser.Groups.Item("lstvgUser")


    Ungültiger threadübergreifender Vorgang: Der Zugriff auf das Steuerelement lstvUser erfolgte von einem anderen Thread als dem Thread, für den es erstellt wurde.

    VB.NET-Quellcode

    1. Private Delegate Sub bling()
    2. Private Sub newbling()
    3. PictureBox1.Visible = Not PictureBox1.Visible
    4. End Sub
    5. Private Sub blingBling()
    6. Dim d As bling = AddressOf newbling
    7. Do While 1 'abbruch Bedingung einfügen oder endlos loop belassen
    8. Threading.Thread.Sleep(600)
    9. If PictureBox1.InvokeRequired Then : PictureBox1.Invoke(d)
    10. Else : PictureBox1.Visible = Not PictureBox1.Visible
    11. End If
    12. Loop
    13. End Sub
    14. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    15. Dim t As New Threading.Thread(AddressOf blingBling)
    16. t.IsBackground = True 'bg thread, da keine daten bearbeitet werden, verhindert exception wenn der gui thread gekillt wird
    17. t.Start()
    18. End Sub


    hi, probiers mal so, vll hast dann kein "stocken" mehr.

    gruss mono
    Das ist meine Signatur und sie wird wunderbar sein!

    Entweder du deklarierst t global oder du buast in die Do While SChleife eine Bedingung ein wie

    Do While KeepRunning

    ..

    Loop


    Und deklarierst Keeprunning Global als Boolean und setzt diese dann ggf auf false.
    Alternativ kannst auch eine andere Abfrage in den Thread bauen.. bissl selber nachdenken hilft ;)

    gruss mono
    Das ist meine Signatur und sie wird wunderbar sein!

    VB.NET-Quellcode

    1. Dim KeepRunning As Boolean


    VB.NET-Quellcode

    1. Private Sub Form_load ...
    2. KeepRunning = False
    3. End Sub


    VB.NET-Quellcode

    1. Private Sub btnBLINKER_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnBLINKER.Click
    2. Dim t As New Threading.Thread(AddressOf blingBling)
    3. t.IsBackground = True
    4. t.Start()
    6. If KeepRunning = False Then
    7. KeepRunning = True
    8. Else
    9. KeepRunning = False
    10. End If
    12. End Sub


    VB.NET-Quellcode

    1. Private Delegate Sub blinkerblink()

    VB.NET-Quellcode

    1. Private Sub newblink()
    2. picBlinker.Visible = Not picBlinker.Visible
    3. End Sub

    VB.NET-Quellcode

    1. Private Sub blingBling()
    2. Dim d As blinkerblink = AddressOf newblink
    3. If KeepRunning = True Then
    4. Do While KeepRunning 'abbruch Bedingung einfügen oder endlos loop belassen
    5. Threading.Thread.Sleep(600)
    6. If picBlinker.InvokeRequired Then : picBlinker.Invoke(d)
    7. Else : picBlinker.Visible = Not picBlinker.Visible
    8. End If
    9. Loop
    10. Else
    11. picBlinker.Visible = False
    12. End If
    13. End Sub


    Ich bekomme bei

    VB.NET-Quellcode

    1. picBlinker.Visible = False

    einen Fehler, wegen dem threadübergreifendem Vorgang.. Aber wieso? Oben wurde picBlinker doch Invoked?!
    Auch wenn ich

    VB.NET-Quellcode

    1. picBlinker.Invoke(d)
    2. picBlinker.Visible = False

    mache, sagt er das gleiche...

    .. Wieso ich picBlinker.Visible = False mache? Weil sonst das picBlinker Visible = True ist wenn man auf den btnBLINKER klickt (wenn man es ausschalten will)

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „nt-software“ ()

    DU hast scheinbar den Sinn von Invoke nicht verstanden...

    durch :

    VB.NET-Quellcode

    1. Dim d As blinkerblink = AddressOf newblink ' <-Delegaten adressieren
    2. picBlinker.Invoke(d) '<-die Picbox wird über den Delegaten "angesprochen"
    5. Private Sub newblink() '<- das ist die Prozedur die Mithilfe des Delegaten ausgeführt wird
    6. picBlinker.Visible = Not picBlinker.Visible
    7. 'Hier kann THreadübergreifend mit hilfe des Delegaten auf die PB zugegriffen werden
    8. End Sub
    9. Private Sub blingBling()
    10. Dim d As blinkerblink = AddressOf newblink
    12. If KeepRunning = True Then 'VÖLLIG ÜBERFLÜSSIG
    14. Do While KeepRunning '<- HIER STEHT EINE BEDINGUNG
    15. 'einfach ausgedrückt steht da
    16. 'TU SOLANGE KeepRunning WAHR ist folgendes:
    17. Threading.Thread.Sleep(600)
    18. If picBlinker.InvokeRequired Then : picBlinker.Invoke(d)
    19. Else : picBlinker.Visible = Not picBlinker.Visible
    20. End If
    21. Loop
    22. 'Ist Keeprunning NICHT wahr, dann folgt der Code nach LOOP
    24. Else 'schwachsinn
    25. ' picBlinker.Visible = False <- Hier benutzt du kein Invoke, geht also nicht
    27. End If 'schwachsinn
    29. 'ALSO Statt dem If überflüssigem If, beendet sich der Thread selber, wenn die WHILE Bedingung nicht erfüllt wird , da nach Loop kein COde folgt
    30. 'Möchtest du sichergehen das die PB invisible ist dann mach eine weitere Abfrage:
    31. If picBlinker.Visible Then picBlinker.invoke(d)
    33. End Sub


    erstmal grundlagen lernen für strukturen des programmierens..
    Das ist meine Signatur und sie wird wunderbar sein!

Facebook
Telefonspende