Таймер при прохождении теста
zhuravel
Дата: Суббота, 05.03.2016, 10:49 |
Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
Добрый день. Почитав форум, нашел таймер с обратным отсчетом. Получилось его прикрутить к тестированию, но дальше не знаю как делать. ( в этом ноль). Возможно ли сделать так: 1.Что бы после завершения времени прохождения теста ( если тестируемый не успел ответить) переходило к следующему вопросу. 2. Если тестируемый ответил на вопрос ( не важно правильно или не правильно) на следующем вопросе отсчет начинался по новой. 3. После завершения теста (закрытия формы теста) таймер останавливался. Прошу помощи в реализации задумки.
Добрый день. Почитав форум, нашел таймер с обратным отсчетом. Получилось его прикрутить к тестированию, но дальше не знаю как делать. ( в этом ноль). Возможно ли сделать так: 1.Что бы после завершения времени прохождения теста ( если тестируемый не успел ответить) переходило к следующему вопросу. 2. Если тестируемый ответил на вопрос ( не важно правильно или не правильно) на следующем вопросе отсчет начинался по новой. 3. После завершения теста (закрытия формы теста) таймер останавливался. Прошу помощи в реализации задумки. zhuravel
Сообщение отредактировал zhuravel - Суббота, 05.03.2016, 11:07
Ответить
Сообщение Добрый день. Почитав форум, нашел таймер с обратным отсчетом. Получилось его прикрутить к тестированию, но дальше не знаю как делать. ( в этом ноль). Возможно ли сделать так: 1.Что бы после завершения времени прохождения теста ( если тестируемый не успел ответить) переходило к следующему вопросу. 2. Если тестируемый ответил на вопрос ( не важно правильно или не правильно) на следующем вопросе отсчет начинался по новой. 3. После завершения теста (закрытия формы теста) таймер останавливался. Прошу помощи в реализации задумки. Автор - zhuravel Дата добавления - 05.03.2016 в 10:49
KuklP
Дата: Суббота, 05.03.2016, 10:57 |
Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация:
486
±
Замечаний:
0% ±
2003-2010
Прикольно.Необходимо : 1.Что бы ... 2. Если ... 3. После ... Файл прилагаю.
И здравствуйте, господин. Это приказ кому-то конкретно, или всему форуму сразу?
Прикольно.Необходимо : 1.Что бы ... 2. Если ... 3. После ... Файл прилагаю.
И здравствуйте, господин. Это приказ кому-то конкретно, или всему форуму сразу? KuklP
Ну с НДС и мы чего-то стoим! kuklp60@gmail.com WM Z206653985942, R334086032478, U238399322728
Ответить
Сообщение Прикольно.Необходимо : 1.Что бы ... 2. Если ... 3. После ... Файл прилагаю.
И здравствуйте, господин. Это приказ кому-то конкретно, или всему форуму сразу? Автор - KuklP Дата добавления - 05.03.2016 в 10:57
zhuravel
Дата: Суббота, 05.03.2016, 11:02 |
Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
Я прошу прощения, что так написал ( в такой форме) у всех форумчан. Нет, это не приказ. Просто по другому не смог выразить свои мысли...
Я прошу прощения, что так написал ( в такой форме) у всех форумчан. Нет, это не приказ. Просто по другому не смог выразить свои мысли... zhuravel
Сообщение отредактировал zhuravel - Суббота, 05.03.2016, 11:03
Ответить
Сообщение Я прошу прощения, что так написал ( в такой форме) у всех форумчан. Нет, это не приказ. Просто по другому не смог выразить свои мысли... Автор - zhuravel Дата добавления - 05.03.2016 в 11:02
Pelena
Дата: Суббота, 05.03.2016, 13:35 |
Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 19184
Репутация:
4420
±
Замечаний:
±
Excel 365 & Mac Excel
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Ответить
RAN
Дата: Суббота, 05.03.2016, 14:22 |
Сообщение № 5
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Не лучший вариант, секундомер процессор грузит, но пойдет.
Не лучший вариант, секундомер процессор грузит, но пойдет. RAN
Быть или не быть, вот в чем загвоздка!
Ответить
Сообщение Не лучший вариант, секундомер процессор грузит, но пойдет. Автор - RAN Дата добавления - 05.03.2016 в 14:22
Wasilich
Дата: Суббота, 05.03.2016, 14:27 |
Сообщение № 6
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация:
326
±
Замечаний:
0% ±
2003
В вашем случае - найдите эти строки в кодах и впишите дополнения отсюда. [vba]Код
Public iTimer As Date, стоп&
[/vba] [vba]Код
Sub TimerStart() If стоп = 1 Then Exit Sub ' добавить
[/vba] [vba]Код
MsgBox ("Ответ не верный!") End If iTimer = TimeValue("00:01:00") ' добавить Call quest End Sub
[/vba] [vba]Код
Else стоп = 1 ' добавить Label1 = "ТЕСТ ОКОНЧЕН !"
[/vba] [vba]Код
Private Sub UserForm_Initialize() стоп = 0 ' добавить
[/vba]
В вашем случае - найдите эти строки в кодах и впишите дополнения отсюда. [vba]Код
Public iTimer As Date, стоп&
[/vba] [vba]Код
Sub TimerStart() If стоп = 1 Then Exit Sub ' добавить
[/vba] [vba]Код
MsgBox ("Ответ не верный!") End If iTimer = TimeValue("00:01:00") ' добавить Call quest End Sub
[/vba] [vba]Код
Else стоп = 1 ' добавить Label1 = "ТЕСТ ОКОНЧЕН !"
[/vba] [vba]Код
Private Sub UserForm_Initialize() стоп = 0 ' добавить
[/vba] Wasilich
Ответить
Сообщение В вашем случае - найдите эти строки в кодах и впишите дополнения отсюда. [vba]Код
Public iTimer As Date, стоп&
[/vba] [vba]Код
Sub TimerStart() If стоп = 1 Then Exit Sub ' добавить
[/vba] [vba]Код
MsgBox ("Ответ не верный!") End If iTimer = TimeValue("00:01:00") ' добавить Call quest End Sub
[/vba] [vba]Код
Else стоп = 1 ' добавить Label1 = "ТЕСТ ОКОНЧЕН !"
[/vba] [vba]Код
Private Sub UserForm_Initialize() стоп = 0 ' добавить
[/vba] Автор - Wasilich Дата добавления - 05.03.2016 в 14:27
zhuravel
Дата: Суббота, 05.03.2016, 18:26 |
Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
Добрый вечер.RAN , в Вашем варианте при завершении прохождения теста и закрытии формы выдает ошибку [vba]Код
Application.OnTime iTime, "endTimer", Schedule:=False
[/vba] в [vba]Код
Private Sub UserForm_Terminate() Application.OnTime iTime, "endTimer", Schedule:=False flag = False End Sub
[/vba] и отсчет идет на увеличение. Как его переделать на уменьшение?Pelena , в какой теме был не вспомню, т.к. просматривал многие касающиеся таймера и не только на этом форуме.Wasilich , в Вашем варианте таймер останавливается.
Добрый вечер.RAN , в Вашем варианте при завершении прохождения теста и закрытии формы выдает ошибку [vba]Код
Application.OnTime iTime, "endTimer", Schedule:=False
[/vba] в [vba]Код
Private Sub UserForm_Terminate() Application.OnTime iTime, "endTimer", Schedule:=False flag = False End Sub
[/vba] и отсчет идет на увеличение. Как его переделать на уменьшение?Pelena , в какой теме был не вспомню, т.к. просматривал многие касающиеся таймера и не только на этом форуме.Wasilich , в Вашем варианте таймер останавливается. zhuravel
Сообщение отредактировал zhuravel - Суббота, 05.03.2016, 18:49
Ответить
Сообщение Добрый вечер.RAN , в Вашем варианте при завершении прохождения теста и закрытии формы выдает ошибку [vba]Код
Application.OnTime iTime, "endTimer", Schedule:=False
[/vba] в [vba]Код
Private Sub UserForm_Terminate() Application.OnTime iTime, "endTimer", Schedule:=False flag = False End Sub
[/vba] и отсчет идет на увеличение. Как его переделать на уменьшение?Pelena , в какой теме был не вспомню, т.к. просматривал многие касающиеся таймера и не только на этом форуме.Wasilich , в Вашем варианте таймер останавливается. Автор - zhuravel Дата добавления - 05.03.2016 в 18:26
Wasilich
Дата: Суббота, 05.03.2016, 19:30 |
Сообщение № 8
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация:
326
±
Замечаний:
0% ±
2003
Wasilich, в Вашем варианте таймер останавливается.
Да, проверил, если не успел ответить, останавливается. Подумаю. Получится, выложу.
Wasilich, в Вашем варианте таймер останавливается.
Да, проверил, если не успел ответить, останавливается. Подумаю. Получится, выложу.Wasilich
Сообщение отредактировал Wasilich - Суббота, 05.03.2016, 19:55
Ответить
Сообщение Wasilich, в Вашем варианте таймер останавливается.
Да, проверил, если не успел ответить, останавливается. Подумаю. Получится, выложу.Автор - Wasilich Дата добавления - 05.03.2016 в 19:30
RAN
Дата: Суббота, 05.03.2016, 21:06 |
Сообщение № 9
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Private Sub UserForm_Terminate()on error resume next Application.OnTime iTime, "endTimer", Schedule:=False flag = False End Sub Поиграйтесь +/- в процедуре timeVisual как вариант [vba][/vba] а далее отнимание (сиречь вычитание) вообще. строка [vba]Код
Application.OnTime iTime, "endTimer", Schedule:=False
[/vba] это на случай, ежели кому ваш тест надоест.
Private Sub UserForm_Terminate()on error resume next Application.OnTime iTime, "endTimer", Schedule:=False flag = False End Sub Поиграйтесь +/- в процедуре timeVisual как вариант [vba][/vba] а далее отнимание (сиречь вычитание) вообще. строка [vba]Код
Application.OnTime iTime, "endTimer", Schedule:=False
[/vba] это на случай, ежели кому ваш тест надоест. RAN
Быть или не быть, вот в чем загвоздка!
Сообщение отредактировал RAN - Суббота, 05.03.2016, 21:07
Ответить
Сообщение Private Sub UserForm_Terminate()on error resume next Application.OnTime iTime, "endTimer", Schedule:=False flag = False End Sub Поиграйтесь +/- в процедуре timeVisual как вариант [vba][/vba] а далее отнимание (сиречь вычитание) вообще. строка [vba]Код
Application.OnTime iTime, "endTimer", Schedule:=False
[/vba] это на случай, ежели кому ваш тест надоест. Автор - RAN Дата добавления - 05.03.2016 в 21:06
Wasilich
Дата: Суббота, 05.03.2016, 21:56 |
Сообщение № 10
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация:
326
±
Замечаний:
0% ±
2003
Поковырялся еще в ваших кодах. Вроде работает. (Чужие коды - темный лес).
Поковырялся еще в ваших кодах. Вроде работает. (Чужие коды - темный лес). Wasilich
Ответить
Сообщение Поковырялся еще в ваших кодах. Вроде работает. (Чужие коды - темный лес). Автор - Wasilich Дата добавления - 05.03.2016 в 21:56
zhuravel
Дата: Суббота, 05.03.2016, 22:05 |
Сообщение № 11
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
Спасибо Вам за помощь, буду разбираться дальше.
Спасибо Вам за помощь, буду разбираться дальше. zhuravel
Ответить
Сообщение Спасибо Вам за помощь, буду разбираться дальше. Автор - zhuravel Дата добавления - 05.03.2016 в 22:05
StoTisteg
Дата: Суббота, 05.03.2016, 22:22 |
Сообщение № 12
Группа: Авторы
Ранг: Старожил
Сообщений: 1161
Репутация:
103
±
Замечаний:
0% ±
Excel 2010
[offtop]Точно. Например, для меня в кодах Бороды более, чем вопрос "почему это работает", загадочен только "почему оно делает именно то, что надо"
[offtop]Точно. Например, для меня в кодах Бороды более, чем вопрос "почему это работает", загадочен только "почему оно делает именно то, что надо" StoTisteg
Интуитивно понятный код - это когда интуитивно понятно, что это код.
Ответить
Сообщение [offtop]Точно. Например, для меня в кодах Бороды более, чем вопрос "почему это работает", загадочен только "почему оно делает именно то, что надо" Автор - StoTisteg Дата добавления - 05.03.2016 в 22:22
zhuravel
Дата: Воскресенье, 06.03.2016, 07:15 |
Сообщение № 13
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
Не лучший вариант, секундомер процессор грузит, но пойдет.
Пусть будет не лучший вариант. Но когда необходимо проверить знания у человек 500 и при этом напечатав пару пачек бумаги, я думаю наоборот, что лучше так.это на случай, ежели кому ваш тест надоест.
Ну надоест или не надоест, но проходить придется. Для меня это вообще внеземная цивилизация.
Не лучший вариант, секундомер процессор грузит, но пойдет.
Пусть будет не лучший вариант. Но когда необходимо проверить знания у человек 500 и при этом напечатав пару пачек бумаги, я думаю наоборот, что лучше так.это на случай, ежели кому ваш тест надоест.
Ну надоест или не надоест, но проходить придется. Для меня это вообще внеземная цивилизация.zhuravel
Сообщение отредактировал zhuravel - Воскресенье, 06.03.2016, 07:22
Ответить
Сообщение Не лучший вариант, секундомер процессор грузит, но пойдет.
Пусть будет не лучший вариант. Но когда необходимо проверить знания у человек 500 и при этом напечатав пару пачек бумаги, я думаю наоборот, что лучше так.это на случай, ежели кому ваш тест надоест.
Ну надоест или не надоест, но проходить придется. Для меня это вообще внеземная цивилизация.Автор - zhuravel Дата добавления - 06.03.2016 в 07:15
RAN
Дата: Воскресенье, 06.03.2016, 10:42 |
Сообщение № 14
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
zhuravel , исправьте параметр третьей кнопки. Там ошибка.
zhuravel , исправьте параметр третьей кнопки. Там ошибка.RAN
Быть или не быть, вот в чем загвоздка!
Ответить
Сообщение zhuravel , исправьте параметр третьей кнопки. Там ошибка.Автор - RAN Дата добавления - 06.03.2016 в 10:42
zhuravel
Дата: Воскресенье, 06.03.2016, 12:42 |
Сообщение № 15
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
RAN , Не ткнете носом, конкретно, что исправить?
RAN , Не ткнете носом, конкретно, что исправить?zhuravel
Сообщение отредактировал zhuravel - Воскресенье, 06.03.2016, 12:42
Ответить
Сообщение RAN , Не ткнете носом, конкретно, что исправить?Автор - zhuravel Дата добавления - 06.03.2016 в 12:42
RAN
Дата: Воскресенье, 06.03.2016, 15:09 |
Сообщение № 16
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
У всех кнопок параметр вызываемой процедуры соответствует номеру кнопки, а у третьей нет. На мысли не наводит? [vba][/vba] это нажатие накнопку 4
У всех кнопок параметр вызываемой процедуры соответствует номеру кнопки, а у третьей нет. На мысли не наводит? [vba][/vba] это нажатие накнопку 4 RAN
Быть или не быть, вот в чем загвоздка!
Сообщение отредактировал RAN - Воскресенье, 06.03.2016, 15:11
Ответить
Сообщение У всех кнопок параметр вызываемой процедуры соответствует номеру кнопки, а у третьей нет. На мысли не наводит? [vba][/vba] это нажатие накнопку 4 Автор - RAN Дата добавления - 06.03.2016 в 15:09
zhuravel
Дата: Воскресенье, 06.03.2016, 17:02 |
Сообщение № 17
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
RAN , Вы про эту кнопку, так что она не правильная была в коде, обратил сразу внимание.. и исправил. Спасибо.
RAN , Вы про эту кнопку, так что она не правильная была в коде, обратил сразу внимание.. и исправил. Спасибо.zhuravel
Сообщение отредактировал zhuravel - Воскресенье, 06.03.2016, 17:03
Ответить
Сообщение RAN , Вы про эту кнопку, так что она не правильная была в коде, обратил сразу внимание.. и исправил. Спасибо.Автор - zhuravel Дата добавления - 06.03.2016 в 17:02
Wasilich
Дата: Воскресенье, 06.03.2016, 18:21 |
Сообщение № 18
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация:
326
±
Замечаний:
0% ±
2003
Если кто смотрел мой выложенный файл, то в кодах, я это исправил.
Если кто смотрел мой выложенный файл, то в кодах, я это исправил. Wasilich
Сообщение отредактировал Wasilich - Воскресенье, 06.03.2016, 18:26
Ответить
Сообщение Если кто смотрел мой выложенный файл, то в кодах, я это исправил. Автор - Wasilich Дата добавления - 06.03.2016 в 18:21
zhuravel
Дата: Воскресенье, 06.03.2016, 21:07 |
Сообщение № 19
Группа: Пользователи
Ранг: Новичок
Сообщений: 19
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
Wasilich , Да, я на это обратил внимания.RAN и Wasilich На основе Ваших двух файлов сделал чистовые. Теперь пусть начальник решает какой использовать. Спасибо за помощь.
Wasilich , Да, я на это обратил внимания.RAN и Wasilich На основе Ваших двух файлов сделал чистовые. Теперь пусть начальник решает какой использовать. Спасибо за помощь.zhuravel
Сообщение отредактировал zhuravel - Понедельник, 07.03.2016, 15:14
Ответить
Сообщение Wasilich , Да, я на это обратил внимания.RAN и Wasilich На основе Ваших двух файлов сделал чистовые. Теперь пусть начальник решает какой использовать. Спасибо за помощь.Автор - zhuravel Дата добавления - 06.03.2016 в 21:07