Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[3.14.130.24] |
|
Сообщ.
#1
,
|
|
|
Как сделать такой таймер: в текстовое поле 1 вводятся ЧАСЫ, в текстовое поле 2 вводятся МИНУТЫ и в текстовое поле 3 вводятся СЕКУНДЫ? Или в текстовое поле 1 вводятся ЧАСЫ, а в текстовое поле 2 вводятся МИНУТЫ:СЕКУНДЫ?
|
Сообщ.
#2
,
|
|
|
иди на сайт www.vbcode.com там всяких таймеров навалом, и куча всяких других прог
|
Сообщ.
#3
,
|
|
|
А в чём проблема-то?
Создай объект таймер и всё... Во тебе пример (здесь поля "часы", "минуты", "секунды" называются соответственно Text1, Text2 и Text3, кнопка старта - Command1, а таймер - Timer1): Private Counter As Long, Min As Long, Sec As Integer Private Sub Command1_Click() Min = Val(Text1) * 60 + Val(Text2) Sec = Val(Text3) Counter = 0 Timer1.Interval = 60000 ' миллисекунд в 1 минуте Timer1_Timer ' а вдруг минут ноль! Timer1.Enabled = True End Sub Private Sub Timer1_Timer() If Counter > Min Then ' Процедура по таймеру Call MsgBox("Оно работает!", vbExclamation, "Урря!") Else If Counter = Min Then Timer1.Enabled = False Timer1.Interval = Sec * 1000 Timer1.Enabled = True End If Counter = Counter + 1 End If End Sub |