Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[3.141.29.145] |
|
Сообщ.
#1
,
|
|
|
Мне нужен таймер по типу такого 00:00:00->
->00:00:01->01:09:04 |
Сообщ.
#2
,
|
|
|
Помещаешь на форму 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 |
Сообщ.
#3
,
|
|
|
А вывести его можно, например, так:
Print Trim(Hour);":";Trim(Min);":";Trim(Sec) |