Запуск и остановка Таймера - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д