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   Click Here to See the Profile for tomtroll   Click Here to Email tomtroll  
Мне нужен таймер по типу такого 00:00:00->
->00:00:01->01:09:04
Lamer опубликован 15-09-2001 00:54 MSK     Click Here to See the Profile for Lamer  Click Here to Email Lamer     
Помещаешь на форму 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     Click Here to See the Profile for Lamer  Click Here to Email Lamer     
А вывести его можно, например, так:
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.