Выполнить код по истечении времени после нажатия на кнопку - VB

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

Помогите ктонибудь дайте мне код на отсчет оприделеного колличества секунд после нажатия кнопки на клавиатуре

Решение задачи: «Выполнить код по истечении времени после нажатия на кнопку»

textual
                            Листинг программы 
                        

                            Function TM() As Double 'время в секундах с учетом перехода на новые сутки
Static D As Integer, OldT As Double
Dim t As Double
  t = Timer
  D = D - (t < OldT)
  OldT = t
  TM = t + D * 86400#
End Function
 
Public Sub doPause2(seconds As Double)
 Dim var_timeStart As Double
 var_timeStart = TM ' Время начала паузы
 While TM < var_timeStart + seconds
  DoEvents
 Wend
End Sub
                        

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

6 голосов , оценка 3.5 из 5

Похожие ответы