VBNet - Форум - Как подскажет как поставить ВРЕМЯ на перелистывани

Вопрос: Как подскажет как поставить ВРЕМЯ на перелистывани Добавлено: 26.02.08 00:05

Автор вопроса: 987654321

Как подскажет как поставить ВРЕМЯ на перелистывание страниц теста?

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

Например чувствую в следующем коде надо что-то добавить/заменить.

Private Sub OptionButton1_Click()
RightAnswer = Worksheets("Лист3").Cells(QuestCounter + 1, 2).Value
If OptionButton1.Value Then Answer = 1
If Answer = RightAnswer Then
    AnswerCounter = AnswerCounter + 1
    'MsgBox "Правильно"
    Else: MsgBox " О Ш И Б К А !!!", , " "
End If
OptionButton1.Value = False
'MsgBox AnswerCounter
QuestCounter = QuestCounter + 8
If QuestCounter > Worksheets("Лист3").Cells(1, 3).Value * 8 - 1 Then
procent = AnswerCounter * 100 \ Worksheets("Лист3").Cells(1, 3).Value
MsgBox ("Количество правильных ответов = " & AnswerCounter & " " & "(" & procent & "%" & ")" & " СЛЕДУЮЩИЙ !")
'Worksheets("Лист1").Cells(NumFamil + 2, 2).Value = AnswerCounter
'Worksheets("Лист1").Cells(NumFamil + 2, 3).Value = procent
Unload UserForm1
GoTo e1
End If
UserForm_Initialize
e1:
End Sub

Заранее большое Спасибо!
Ответить

Ответы Всего ответов: 6

Номер ответа: 1 Автор ответа: Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949	Web-сайт: domkratt.com Профиль \| \| #1	Добавлено: 26.02.08 09:42
	Таймер? Ответить

Номер ответа: 2 Автор ответа: 987654321 Вопросов: 1 Ответов: 3	Профиль \| \| #2	Добавлено: 26.02.08 19:52
	Да надо просто поставить таймер, функцию времени.. Подскажите как и куда, а то совсем мозги не варят, стар стал, а бейсик в школе давно проходил.. Спасибо! Ответить

Номер ответа: 3 Автор ответа: 987654321 Вопросов: 1 Ответов: 3	Профиль \| \| #3	Добавлено: 26.02.08 19:54
	PauseTime = 5 ' Set duration. Start = Timer ' Set start time. o While Timer < Start + PauseTime oEvents ' Yield to other processes. Loop Finish = Timer Или если есть простые примеры, то же буду рад. Ответить

Номер ответа: 4 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362	Профиль \| \| #4	Добавлено: 26.02.08 20:25
	WinAPI Sleep? Ответить

Номер ответа: 5 Автор ответа: VβÐUηìt Вопросов: 246 Ответов: 3333	Web-сайт: смекаешь.рф Профиль \| \| #5	Добавлено: 02.03.08 16:39
	Sleep замораживает вроде, а надо чтоб экран обновлялся. Ответить

Номер ответа: 6 Автор ответа: 987654321 Вопросов: 1 Ответов: 3	Профиль \| \| #6	Добавлено: 02.03.08 17:02
	Да слип не много не то. Таймер нормально, но не получается добиться необходимой работы. Подскажите!!! Примерно логику понимаю что : Если таймер = 20 (мне надо на 20 секунд) Тогда Иницилизация формы (или как вариант перейти на метку ...) Иначе выполнять следующее.. Таймер Private Sub Timer1_Timer() End Sub Ответить

Страница: 1 |