Определить интервал в несколько секунд - VB

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

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

(если тема названа не так сори мая фантазия не блещет) В чем суть как мне высчитать 5/10/100 секунд я подумываю как нибудь через системное но не пойму как подскажите пжл.

Решение задачи: «Определить интервал в несколько секунд»

textual
Листинг программы 
Dim t As Date, t1
Private Sub Command1_Click()
 Timer1.Interval = 1000
t = Time
t1 = 5
 Timer1.Enabled = True
End Sub
 
Private Sub Timer1_Timer()
Label1 = Val(Time - t)
If Val(Time - t) = t1 Then
Timer1.Enabled = False
MsgBox "прошло " & t1 & " сек"
End If
End Sub

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

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

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

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