Запуск и остановка Таймера - VB

Узнай цену своей работы

Формулировка задачи:

Уважаемые, добрый день! В просторах интернета по вопросу работы ТАЙМЕРА на VBA, я нашел много разных примеров, однако из-за слабой подготовки в программировании мне пока тяжело со всем этим разобраться. На одном из сайтов наше простой пример, где на форме идет время и есть кнопка. Я пробую на форме

UserForm1

через

Label1

и

Label2

передавать значения номера вопроса и работы таймера. Сама форма запускается, идет подсчет нажатия кнопки, отражается № вопроса и время. Но если я кликаю по кнопке 5 раз (количество вопросов) но время еще осталось, то все равно через некоторый промежуток времени (время, которое осталось до завершения) всплывает окно "время вышло". Причем время еще придостаточно но все равно вылазит окно..... Как можно

остановить таймер

. И могут ли на форме присутствовать 2 таймера (для создания другого окна)

Решение задачи: «Запуск и остановка Таймера»

textual
Листинг программы
Dim n As Integer
Private Sub Form_Load()    'зарузка формы
    Timer1.Enabled = False 'таймер остановлен
    Timer1.Interval = 1000 'интервал таймера в миллисекундах
End Sub
 
Private Sub Command1_Click() 'кнопка запуска таймера
     n = 300                 'время работы таймера в секундах
     Timer1.Enabled = True   'запускаем таймер
End Sub
 
Private Sub Timer1_Timer() '
    n = n - 1                           'при каждом тике таймера уменьшаем значение  на единицу
    'Label1.Caption = FormatDateTime(CStr(n \ 60) & ":" & CStr(n Mod 60), vbShortTime)
     Label1.Caption = Format$(n \ 60, "00") & ":" & Format$(n Mod 60, "00")
    If n = 0 Then                       'если время вышло
       Timer1.Enabled = False           'то останавливаем таймер
       MsgBox "Время вышло"             'выводим сообщение
    End If
End Sub

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


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

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

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