Hi,
ich bin neu eingestiegen in Visual Basic (2010 Express) und habe mal eine Stoppuhr programmiert. Allerdings bin ich mir mit der Sprache noch nicht so ganz sicher. Meine Stoppuhr funktioniert, aber ich bin mir nicht genau sicher wie das nun mit der Stopwatch Klasse ist.
Kann ich die so ansprechen oder läuft sie in der Form nur als ungenauer Timer?
Ich möchte das ganze dann fortsetzen indem bei einem Start einer .wav Datei die Stoppuhr startet. Allerdings will ich erstmal sichergehen, dass es sich um eine Stopwatch Anwendung handelt.
Danke schonmal
Hier mein Code:
ich bin neu eingestiegen in Visual Basic (2010 Express) und habe mal eine Stoppuhr programmiert. Allerdings bin ich mir mit der Sprache noch nicht so ganz sicher. Meine Stoppuhr funktioniert, aber ich bin mir nicht genau sicher wie das nun mit der Stopwatch Klasse ist.
Kann ich die so ansprechen oder läuft sie in der Form nur als ungenauer Timer?
Ich möchte das ganze dann fortsetzen indem bei einem Start einer .wav Datei die Stoppuhr startet. Allerdings will ich erstmal sichergehen, dass es sich um eine Stopwatch Anwendung handelt.
Danke schonmal
Hier mein Code:
VB.NET-Quellcode
- Public Class Form1
- Private stopwatch As New Stopwatch
- Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
- Dim elapsed As TimeSpan = Me.stopwatch.Elapsed
- Label1.Text = String.Format("{0:00}:{1:00}:{2:00}:{3:00}", Math.Floor(elapsed.TotalHours), elapsed.Minutes, elapsed.Seconds, elapsed.Milliseconds)
- End Sub
- Private Sub btStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btStart.Click
- Me.stopwatch.Start()
- btReset.Enabled = False
- End Sub
- Private Sub btStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btStop.Click
- Me.stopwatch.Stop()
- btReset.Enabled = True
- End Sub
- Private Sub btReset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btReset.Click
- Me.stopwatch.Reset()
- Label1.Text = "00:00:00:000"
- ListBox1.Items.Clear()
- End Sub
- Private Sub btMark_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btMark.Click
- ListBox1.Items.Add(ListBox1.Items.Count + 1 & " " & Label1.Text)
- End Sub
- End Class