13 Vb.Net program Stoper

Program Stoper

Dziś praktycznie wykorzystamy kontrolkę Timer budując program odmierzający czas.
Na formę układamy 1 Label, 2 Buttony i 1 Timer. Właściwość Interval Timera ustawiamy na 100. Zabieramy się do pisania kodu.

Public Class Form1
    'Deklaracja zmiennych w klasie, gdybyśmy zadeklarowali te zmienne w zdarzeniu tick timera
    'to wartości zmiennych by się nie dodawały ponieważ zmienna by się tworzyła na nowo
    ' w każdym zdarzeniu Tick
    Private Godziny As Integer = 0
    Private Minuty As Integer = 0
    Private Sekundy As Integer = 0
    Private DziesiateSekundy As Integer = 0

    Private Sub TimeM_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        'Nasza główna funkcja dodająca wartości przy każdym zdarzeniu Tick Timera
        DziesiateSekundy += 1
        If DziesiateSekundy = 10 Then
            Sekundy += 1
            DziesiateSekundy = 0
        End If
        If Sekundy = 60 Then
            Minuty += 1
            Sekundy = 0
        End If
        If Minuty = 60 Then
            Godziny += 1
            Minuty = 0
        End If
        'Utworzenie łańcucha składającego się z 4 zmiennych (H,M,S,MS) i trzech znaków oddzielających liczby
        LblCzas.Text = (Godziny & ":" & Minuty & ":" & Sekundy & ":" & DziesiateSekundy)
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        'instrukcja, która wykorzystuje 1 button do dwóch celów jest jednocześnie Startem i Pauzą
        If Button1.Text = "Start" Then
            Timer1.Start()
            Button1.Text = "Pauza"
        ElseIf Button1.Text = "Pauza" Then
            Timer1.Stop()
            Button1.Text = "Start"
        End If
    End Sub

    Private Sub Button2_Click_1(sender As Object, e As EventArgs) Handles Button2.Click
        'Instrukcja resetująca wartości stopera
        DziesiateSekundy = 0
        Sekundy = 0
        Minuty = 0
        Godziny = 0
        LblCzas.Text = "0:0:0:0"
    End Sub
End Class

Nasz stoper działa jak należy.

Dla dociekliwych - Stoper ma opóźnienie względem prawidłowego czasu mniej więcej 10 sekund w ciągu 2 minut. To bardzo duży rozrzut jak na program do pomiaru czasu. Trzeba zastosować korektę. Waszym zdaniem będzie wprowadzić do Timer Interval taką wartość, aby jak najbardziej zbliżyć się do rzeczywistego upływu czasu.

Opublikowano 13.09.2015