Вопрос по таймеру - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

14   голосов , оценка 4.143 из 5
Похожие ответы