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

[strannick]

Сообщение от 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

Не получается подобрать формат отображения mm:ss. И тут ShowBackTimer 15 указывать время в чем, тоже в секундах (20 мин.)?

[alexandr7]

Здравствуйте. Я пытаюсь создать тест по проверки таблицы умножения. Нужен таймер обратного отсчета на лист с заданиями
18 заданий по 15 сек каждое, после окончания времени переход на лист с ответами. Если не трудно, помогите пожалуйста). Тест прилагаю.

[alex77755]

попробуй так

Format(MyTimer, "nn:ss")

если больше часа то

Format(MyTimer, "hh:nn:ss")

[Казанский]

Пробуйте. Оставшееся время отображается в строке статуса (отображается, если была скрыта).

[IgorGO]

в моем примере MyTimer обьявлен как Integer
и это Format(MyTimer, "nn:ss") постоянно будет 00:00 или с часами так же постоянно 00:00:00 при любом! значении MyTimer

alexandr7, таже задача, да еще в той же теме, когда там уже все решено и показано как - не цепляет... совершенно

хотя... Казанским доказано, что все зависит от настроения))

[Казанский]

Теме почти 5 лет, более 4000 просмотров - надо было отметиться!

[IgorGO]

"Какой меркантильный Кю!" (С) Би из фильма "Кин-Дза-Дза"

5 лет не срок. я знаю две вечные темы:
От куда берется пыль?
и
Куда деваются деньги?
но они не с этого форума

[alexandr7]

Сообщение от Казанский

Пробуйте. Оставшееся время отображается в строке статуса (отображается, если была скрыта).

Класс, то, что надо! Большое спасибо! Только у меня числа генерировались случайным образом, чтобы каждый раз примеры менялись. А сейчас это пропало( Если не трудно можно это как-то вернуть?

[Казанский]

Сообщение от alexandr7

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

Не нашел в файле из #12 ни формул, ни кода для генерации случайных чисел (

[alexandr7]

Сообщение от Казанский

Не нашел в файле из #12 ни формул, ни кода для генерации случайных чисел (

Прошу прощенья,прикрепил не тот файл. Сейчас пытался сам вставить генерацию на Ваш файл, но не могу сделать доступ к листам(чайник). Если вас не затруднит ещё разок сделать. (и как можно возвращать доступ к листам книги?) Благодарен Вам за помощь.