Помогите с таймером - Форум на исходниках

WWW.ИСХОДНИКИ.РУ cpp.sources.ru

java.sources.ru web.sources.ru soft.sources.ru

jdbc.sources.ru asp.sources.ru api.sources.ru

  Форум на исходниках
  Visual Basic
  Помогите с таймером
СПРОСИТЬ  ОТВЕТИТЬ
профайл | регистрация | faq

Автор Тема:   Помогите с таймером

tomtroll опубликован 08-09-2001 02:18 MSK
Мне нужен таймер по типу такого 00:00:00->
->00:00:01->01:09:04
Lamer опубликован 15-09-2001 00:54 MSK
Помещаешь на форму Timer, Interval = 1000 и
Dim Sec as Integer
Dim Min as Integer
Dim Hour as Integer
Private Sub Timer1_Timer()
Sec = Sec + 1
IF Sec > 60 Then
Sec = 0
Min = Min + 1
IF Min > 60 Then
Min = 0
Hour = Hour + 1
IF Hour > 24 Then Hour = 0
End If
End If
End Sub
Lamer опубликован 15-09-2001 00:57 MSK
А вывести его можно, например, так:
Print Trim(Hour);":";Trim(Min);":";Trim(Sec)
СПРОСИТЬ  ОТВЕТИТЬ
Перейти:

E-mail | WWW.ИСХОДНИКИ.RU

Powered by: Ultimate Bulletin Board, Freeware Version 5.10a
Purchase our Licensed Version- which adds many more features!
© Infopop Corporation (formerly Madrona Park, Inc.), 1998 - 2000.

Автор	Тема: Помогите с таймером
tomtroll	опубликован 08-09-2001 02:18 MSK Мне нужен таймер по типу такого 00:00:00-> ->00:00:01->01:09:04
Lamer	опубликован 15-09-2001 00:54 MSK Помещаешь на форму Timer, Interval = 1000 и Dim Sec as Integer Dim Min as Integer Dim Hour as Integer Private Sub Timer1_Timer() Sec = Sec + 1 IF Sec > 60 Then Sec = 0 Min = Min + 1 IF Min > 60 Then Min = 0 Hour = Hour + 1 IF Hour > 24 Then Hour = 0 End If End If End Sub
Lamer	опубликован 15-09-2001 00:57 MSK А вывести его можно, например, так: Print Trim(Hour);":";Trim(Min);":";Trim(Sec)