Вопрос по таймеру - VB
Формулировка задачи:
Поместил на форму таймер, как сделать что бы при нажатии на кнопку, таймер срабатывал сразу, потом без нажатия кнопки, срабатывал через час, потом через 2, потом через 3.
Решение задачи: «Вопрос по таймеру»
textual
Листинг программы
Dim h, m, s, MyTime Private Sub Form_Load() MyTime = 1 h = 0 m = 0 s = 0 Timer1.Interval = 1000 ' через кадую секунду срабатывает таймер Timer1.Enabled = True End Sub Private Sub Timer1_Timer() s = s + 1 'увеличение числа секунд ' Тут идёт пересчёт м,с,ч если их значения больше 60 If s = 60 Then m = m + 1 s = 0 End If If m = 60 Then h = h + 1 m = 0 End If If h = MyTime Then ' если время наше вышло MyTime = MyTime + 1 'увеличиваем промежуток на час MsgBox "Время вышло" End If Label1.Caption = Str(h) + ":" + Str(m) + ":" + Str(s) End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д