Ćwiczenie VB5.1a_Stoper_Timer

Zbudujmy aplikację pozwalającą odliczać czas z dokładnością do 1 sekundy. Formularz może

mieć postać jak na rys. 1.

Rys. 1. Propozycja formularza

Zadanie to w sposób odmienny niż zadanie „Ćwiczenie VB5.1_Stoper_Timer” oblicza grupy

cyfr na wyświetlaczu. Po prostu zlicza co 1 sekundę liczbę sekund, a gdy liczba ta osiągnie 59

– zeruje ją i zwiększa liczbę minut o 1. Podobnie, gdy liczba minut osiągnie 59 – zeruje ją i

zwiększa o 1 liczbę godzin.

Kody procedur

Dim sekundy, minuty, godziny As Integer

Private Sub Form1_Load(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles MyBase.Load

Timer1.Interval = 1000

End Sub

Private Sub btnStart_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles btnStart.Click

If btnStart.Text = "Start" Then

btnStart.Text = "Stop"

Timer1.Enabled = True

Else

btnStart.Text = "Start"

Timer1.Enabled = False

End If

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles Timer1.Tick

Dim strEkran As String

sekundy = sekundy + 1

If sekundy = 60 Then

sekundy = 0

minuty = minuty + 1

If minuty = 60 Then

minuty = 0

godziny = godziny + 1

End If

End If

strEkran = Format(godziny, "00") & ":" & _

Format(minuty, "00") & ":" & _

Format(sekundy, "00")

lblEkran.Text = strEkran

Me.Text = strEkran

End Sub

Copyright © 2010, Janusz Bonarowski