Таймер обратного отсчёта

[HellkilleR]

Я работаю над созданием теста, уже практически закончил, файл прикреплю (не ругайте , что очень много кода, только учусь). Мне осталось сделать таймер обратного отсчёта, время которого зависит от количества вопросов выбранного теста(например, вопросов в тесте 8, общее время на тест 8*30=240 сек) ,после истечения которого сразу выдаётся результаты теста, даже если не ответил на все вопросы. Пробема в том, что я не совсем понимаю как он делается, я и на этом сайте искал, и гуглил... несколько вариантов нашёл, но не знаю как их присобачить к тесту.
И ещё, нужно сделать так, что бы, когда проходишь тест, нельзя было закрыть окно с вопросами (что бы заного не начать). Как это делается?
Заранее спасибо.

[IgorGO]

вот пример:

Dim MyTimer As Integer

Sub StartTimer()
  ShowBackTimer 15
End Sub

Sub ShowBackTimer(tm As Integer)
 MyTimer = tm
 Application.StatusBar = "Осталось    " & Format(MyTimer, "0#") & "    секунд"
 Application.OnTime Now + TimeValue("00:00:01"), "CloseMyMsgBox"
End Sub

Sub CloseMyMsgBox()
 MyTimer = MyTimer - 1
 Application.StatusBar = "Осталось    " & Format(MyTimer, "0#") & "    секунд"
 If MyTimer <= 0 Then
  Application.StatusBar = False
 Else
  Application.OnTime Now + TimeValue("00:00:01"), "CloseMyMsgBox"
 End If
End Sub

Копируйте все это в модуль, стартуйте StartTimer, обратите внимание на строку статуса - там малозаметный обратный отсчет.

[doober]

Раз з уж написал.то до кучи

Public stopp As Boolean

Sub Game_Over()
stopp = True
MsgBox "Game Over", vbCritical
'Код выполняемый после истечения указаного времени

End Sub

Sub RunTimer(time As Integer)
    If stopp Then NextRun = 0: Exit Sub
    NextRun = Now + TimeSerial(0, 0, time)
    Application.OnTime NextRun, "Game_Over"

End Sub

Private Sub CommandButton1_Click()
 stopp = False
  RunTimer (4) ' 4 -это время задержки срабатывания таймера
 ' Ваш код

End Sub

[nilem]

Поздно увидел тему. Но у меня все уже в файле.

[shepard]

пытался прикрутить этот таймер, не получается никак. может посмотрит кто, а то уже голову сломал себе. выложенные выше варианты не работают, считают за раз по несколько секунд при неправильном ответе. и не могу сделать, чтобы отведенному время заново присваивалось значение при повторном прохождении.

[shepard]

таймер нормально заработал, но только если отвечающий не успевает отвечать на вопросы, тогда при следующем прохождении теста все работает хорошо. но если тест закончен раньше времени, у следующих отвечающих время идет в два, три и т.д. раза быстрее(вычитается по несколько секунд за раз) думаю, из-за того что таймер из модуля вызывается несколько раз. есть ли какая-нибудь команда, с помощью которой можно было бы выключить его в форме?
был бы очень признателен за помощь, нужно сделать к пятнице, боюсь не успеть

[doober]

исправленная

[IgorGO]

Если нормально все написать - то и работать будет. А вычитает быстро для следующего, потому что запущен второй экземпляр таймера и они работают параллельно и не зависимо друг от друга, каждый через свою секунду. Таймер надо выключать.
Смотрите справку по Application.OnTime, там последний пример - как выключить. Чтобы все получилось надо время запоминать, на которое запланирован следующий запуск, его подставлять для EarliestTime, два остальных параметра очевидны.

[shepard]

doober, не работает, к сожалению, но все равно спасибо
IgorGO, спасибо за совет, буду пытаться.

[shepard]

всем большое спасибо за советы.
все заработало. прикреплю файл на случай, если кому понадобится.