Timer starten, der pro Sekunde bestimmten Wert anzeigt

  • VB.NET

Es gibt 11 Antworten in diesem Thema. Der letzte Beitrag () ist von Artentus.

    Timer starten, der pro Sekunde bestimmten Wert anzeigt

    Guten Abend liebe Community.

    Im Rahmen eines Vortrages für mein Studium benötige ich Eure Hilfe. Ich möchte einen Timer in VB programmieren, der bei Klick auf einen Button eine Uhr startet, die die Sekunden, Minuten und Stunden anzeigt und pro Sekunde zusätzlich einen bestimmten Wert anzeigt.
    Der Hintergrund:
    Die Präsentation wird über einen Hersteller von Spirituosen sein. Durch Recherche im Internet ist mir eine faszinierende Statistik aufgefallen:
    Im Jahre 2011 wurden von nur einem Produkt des Herstellers in 24 Stunden 6 Millionen Drinks auf der ganzen Welt geordert.
    Da das ganze "nur zur Veranschaulichung" dienen soll, habe ich zur Vereinfachung folgende Überlegung/Rechnung aufgestellt:
    Ich gehe davon aus, dass die Getränke im konstanten Intervall geordert wurden, sprich 6 Millionen in 24 Stunden (1440 Min).
    Das wären aufgerundet 4176 Getränke pro Minute und aufgerundet 70 Drinks in der Sekunde.

    Der Timer sollte bei Klick auf den Button "Start" also die Uhrzeit anzeigen und in einer weiteren Anzeige pro Sekunde immer 70 "Getränke" mehr. Da ich in VB leider noch ein ziemlicher Anfänger bin, würde ich mich sehr über einige Tipps oder Codes freuen, es würde mir sehr weiterhelfen. :)

    Edge

    Es gibt bereits einen fertigen Timer, du findest ihn im Werkzeugkasten und kannst ihn einfach auf deine Form ziehen. Wenn du das Interval auf 1000 stellst tickt er einmal pro Sekunde. Dann brauchst du nur noch auf eine Variable 70 draufzählen und auf eine TimeSpan-Instanz 1 Sekunde.

    @Edge87
    Das ist der Werkzeugkasten:


    Und bitte:

    Signatur schrieb:

    Bitte stellt keine Hilfeanfragen über PN, dafür ist das Forum da.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Artentus“ ()

    VB.NET-Quellcode

    1. Option Strict On
    2. Public Class Form1
    4. Dim stpWatch As Stopwatch = New Stopwatch
    5. Dim zeit As String
    7. 'Form1 Start
    8. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    9. ComboBox1.Text = "00:00:05"
    10. End Sub
    12. 'Start
    13. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    14. Timer1.Enabled = True
    15. stpWatch.Start()
    16. End Sub
    17. 'Stop
    18. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    19. stpWatch.Stop()
    20. stpWatch.Reset()
    21. End Sub
    22. 'Timer
    23. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    24. If TextBox1.Text = ComboBox1.Text Then ' Wann es passieren soll mit IF abfragen
    25. stpWatch.Stop()
    26. Timer1.Enabled = False
    27. MsgBox("BOOM", MsgBoxStyle.Information, "Deine Funktion !") 'Was geschehen soll hier !
    28. End If
    30. 'Zeit splitten wenn nötig - (( Beispiel )) !
    31. zeit = stpWatch.Elapsed.ToString
    32. TextBox1.Text = zeit.Split(CChar("."))(0)
    33. Label1.Text = zeit.Split(CChar(":"))(0)
    34. Label2.Text = zeit.Split(CChar(":"))(1)
    35. Label3.Text = zeit.Split(CChar(":"))(2).Split(CChar("."))(0)
    37. End Sub
    38. End Class


    Testmappe in vb 2012 :

    www69.zippyshare.com/v/41156645/file.html

    Timer mit Funktion !

    LG Andre............................................................... ;)

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „TVX“ ()

    Ich habe nun folgendes versucht und wenn ich in beide Felder eine 0 eingebe, startet er bei den Sekunden. Leider geht er über die 60 hinaus und startet nicht wieder bei 0 für die nächste Minute. Wie kann ich das ändern?


    VB.NET-Quellcode

    1. Public Class Form1
    2. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Timer1.Start() Timer2.Start() If TextBox1.Text >= 11 Then TextBox1.Text = 10 End If If TextBox2.Text >= 61 Then TextBox2.Text = 60 End If End Sub
    3. Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
    4. End Sub
    5. Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
    6. End Sub
    7. Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick TextBox2.Text = TextBox2.Text + 1 If TextBox2.Text = 0 Then Timer2.Stop() End If
    8. End Sub
    9. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick TextBox1.Text = TextBox1.Text + 1 If TextBox1.Text = 0 Then Timer1.Stop()
    10. End If End SubEnd Class



    Edge

    Was ist das ist mein Beisbiel nix für dich ?

    EDIT WARTE'

    Du Brauchst einen Timer

    2x Button 1-2

    Eine Textbox

    UND DAS IN DIE FORM :

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim stpWatch As Stopwatch = New Stopwatch
    3. Dim zeit As String
    5. 'start
    6. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    7. Timer1.Enabled = True
    8. stpWatch.Start()
    9. End Sub
    10. 'stop
    11. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    12. stpWatch.Stop()
    13. stpWatch.Reset()
    14. Timer1.Enabled = False
    15. TextBox1.Text = "00:00:00"
    16. End Sub
    19. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    20. zeit = stpWatch.Elapsed.ToString
    21. TextBox1.Text = zeit.Split(CChar("."))(0)
    22. End Sub
    23. End Class

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „TVX“ ()

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private _drinksPerSecond As Integer = 70
    3. Private _totalDrinks As Integer = 0
    4. Private WithEvents _t As New Timer With {.Interval = 1000}
    6. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    7. _t.Enabled = Not _t.Enabled
    8. End Sub
    10. Private Sub _t_Tick(sender As Object, e As EventArgs) Handles _t.Tick
    11. _totalDrinks += _drinksPerSecond
    13. Label1.Text = Now.ToLongTimeString()
    14. Label2.Text = _totalDrinks.ToString("N0") & " drinks serviert"
    15. End Sub
    16. End Class


    Probier mal so. Das ist wesentlich einfacher.
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

    @kai996:, @TVX: Hier bedarf es keiner Zeitmessung, sondern das ganze ist eine Veranschaulichung, sozusagen eine Skizze, nicht aber eine Maßzeichnung.
    @Edge87: Ein schnöder WinForm-Timer und eine gerundete Zahl zur Anzeige reichen völlig aus, Dein Problem zu lösen.
    Stecke da keinen Aufwand rein, nimm es als Lockerungsübung.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Moyn Rod... Also nu Uhr Und en Timer mit counter ......


    VB.NET-Quellcode

    1. Option Strict On
    3. Public Class Form1
    5. Dim counter As Integer
    7. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    8. Timer1.Enabled = True
    9. End Sub
    11. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    12. Label1.Text = CStr(TimeOfDay)
    13. counter = counter + 70
    14. Label2.Text = CStr(counter)
    15. End Sub
    17. End Class

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „TVX“ ()

    @TVX: Wenn Du jetzt noch

    VB.NET-Quellcode

    1. Timer1.Enabled = Not Timer1.Enabled
    2. counter = 0
    in die Button-Click-Routine reinschreibst und ToString verwendest, kann das der Anfang eines hübschen Programms werden. :D
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    So Muss los ^^

    VB.NET-Quellcode

    1. Option Strict On
    2. Public Class Form1
    4. Dim counter As Integer
    6. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    7. Timer1.Interval = CInt("1000")
    8. Timer1.Enabled = Not Timer1.Enabled
    9. counter = 0
    10. End Sub
    12. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    13. Label1.Text = CStr(TimeOfDay)
    14. counter = counter + 70 ' 70 pro sec.
    15. Label2.Text = CStr(counter)
    16. End Sub
    18. End Class


    Edit :Timer auf 1000 stellen .

    :thumbsup:

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „TVX“ ()