Как обойти ограничение таймера? - VB
Формулировка задачи:
Здравствуйте! Встал вопрос о том, как обойти ограничение таймера (1000*60).
Пользователь вводит 2 значания: кол-во минут и кол-во секунд.
Далее происходит вычисление общего числа секунд:
seconds = min * 60 + sec
И возникает ошибка в блоке описанной функции:
Подскажите пожалуйста, как обойти данную проблему.
Решение задачи: «Как обойти ограничение таймера?»
textual
Листинг программы
Option Explicit Dim sc As Long, seconds As Long Private Sub Command2_Click() seconds = 20 sc = 0 Timer1.Interval = 1000 Timer1.Enabled = True End Sub Private Sub Timer1_Timer() If sc < seconds Then sc = sc + 1 Label1 = sc Else Timer1.Enabled = False Label1 = "ok" End If End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д