Echtzeit Verhalten

    • Allgemein

      Echtzeit Verhalten

      Aufgrund Anfrage eines Users, hier mal ein Tip:

      Wenn es darum geht, etwas in SEHR kurzen Zeitabständen zu tun, zu prüfen, dann ist Windows dafür nicht sonderlich gut. Einen kleinen "Trick" gibt es aber, dass die Verarbeitungszeit nicht ZU groß wird (durch Multithreading und Garbage Collection landet man schnell in Bereichen von mehreren 100 Millisekunden):

      Spoiler anzeigen

      VB.NET-Quellcode

      1. Public Class Form1
      3. Dim t As Threading.Thread
      4. Dim mx As Long = Long.MinValue
      6. Private Sub foo()
      8. ' Erstmal warm laufen
      9. Dim stp As New Stopwatch
      10. For i = 1 To 10
      11. Threading.Thread.Sleep(0)
      12. Next
      14. Do
      15. stp = Stopwatch.StartNew
      16. ' Ein ganz klein wenig Prozessorzeit abgeben, damit das System nicht vällig aus
      17. ' dem Tritt kommt!
      18. Threading.Thread.Sleep(1)
      19. ' Ansonsten sollten hir nur Sachen hin, die GAAAAAAANZ kurz laufen!
      20. stp.Stop()
      21. ' Schaun wir mal, wie lange das ganze gedauert hat:
      22. If stp.ElapsedTicks > mx Then
      23. mx = stp.ElapsedTicks
      24. ' Wenn MX ein neuer Wert ist UND größer als eine Millisekunden,
      25. ' dann geben wir den Wert aus
      26. If mx > 10000 Then
      27. Me.BeginInvoke(Sub() ListBox1.Items.Add(mx / 10000))
      28. End If
      29. End If
      30. Loop
      32. End Sub
      34. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      35. If t Is Nothing Then
      36. ' Eigene Priority auf Maximum. GEFÄÄÄÄÄHRLICH!
      37. Process.GetCurrentProcess.PriorityClass = ProcessPriorityClass.RealTime
      38. t = New Threading.Thread(AddressOf foo)
      39. t.IsBackground = True
      40. ' Und den Thread auch gleich noch auf Max
      41. t.Priority = Threading.ThreadPriority.Highest
      42. t.Start()
      43. Button1.Text = "Zeige Zeit"
      44. Else
      45. ' Mal Zeit anzeigen
      46. Me.BeginInvoke(Sub() ListBox1.Items.Add(mx / 10000))
      47. End If
      48. End Sub
      50. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      51. Button1.Text = "Starte Thread"
      52. End Sub
      53. End Class


      Wer mag, kann das Programm mal laufen lassen und den Rechner ansonsten auch noch mal kräftig auslasten. Wäre mal interessant, was ihr dann so für Zeiten erhaltet.

    Facebook
    Telefonspende