Как обойти ограничение таймера? - 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

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


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

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

9   голосов , оценка 4.444 из 5