Visual Basic FAQ

Как сделать секундомер?
Можно реализовать несколькими способами:

2. Вариант с таймером

Option Explicit

Dim strsecond As String
Dim strminute As String
Dim strhour As String

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
strsecond = "00"
strminute = "00"
strhour = "00"
Metka
End Sub

Private Sub Command3_Click()
Timer1.Enabled = False
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 1000
strsecond = "00"
strminute = "00"
strhour = "00"
Label1 = strhour & " : " & strminute & " : " & strsecond
Noll
End Sub

Private Sub Timer1_Timer()
strsecond = strsecond + 1
If strsecond > 59 Then
    strsecond = 0
    strminute = strminute + 1
End If
If strminute > 59 Then
    strminute = 0
    strhour = strhour + 1
End If
Noll
Metka
End Sub

Private Sub Noll()
If Len(strsecond) < 2 Then strsecond = "0" & strsecond
If Len(strminute) < 2 Then strminute = "0" & strminute
If Len(strhour) < 2 Then strhour = "0" & strhour
End Sub

Private Sub Metka()
Label1 = strhour & " : " & strminute & " : " & strsecond
End Sub

Запись опубликована on 14.09.2008 at 9:13 и размещена в рубрике: Timer. Вы можете читать комментарии, используя RSS-ленту. Вы можете оставить комментарий, или отправить трекбек с Вашего сайта.