как лучше сделать Тест!?

[Shasha]

Все драсти!
Ну вот, у нас в крае очередной конкурс и опять мне не дают жить спокойно...
исходник потерял, т.ч. делать снова и хочу просить Вашего совета, что и как лучше и правильнее сделать, т.к. исходники необходимо отправлять...
план такой.
форма 1, ну там типа предисловие и кнопа начать(и плюс загрузка "форм_результ")...
на второй и последующих формах лэйб с вопросом, чек оптионбатон и кнопа далее... при нажатии ответ передаётся в "форм_результат" в виде 0 или 1...
после того как ответят на все вопросы, на последней форме выдаётся результат, и если нажать заданное сочетание клав то появляется окно запроса пасса, после ввода верного пасса эта форма удлиняется и там видны результаты, где ответили верно и где нет...
вобщем критикуйте и предлагайте

[Tamplier]

при нажатии ответ передаётся в "форм_результат" в виде 0 или 1...

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

Сделай ограничение на время, сделай таймер, в котором твоя форма выводится на превый план посредством SetWindowPos + HWND_TOPMOST, посредством ClipCursor закрой выход мыши за форму (опять-таки в таймере, потому как при нажатии Ctrl+Alt+Del это сбрасывается) [не забудь только потом снять...], сделай форму неподвижной. Вместо нескольких форм с вопросами выводи все вопросы в одну форму. Показывать верность результатов, на мой взгляд, в любом случае стоит...

[Shasha]

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

[Tamplier]

Блин, в прошлый раз не все пришло... Там текста раза в два было больше. Лан, щас уже все не помню. Вспомню - допишу.

Примерчик... Может, тебе еще и код программы выложить? А потом чтобы меня с этой работой послали? Хм... Ну ладно.

Перед тем как выводить ответы во время прохождения теста на форме:
создаешь массив с размерностью такой же, какое число ответов, типа Long (можно и Byte, просто я не люблю использовать для операций с целыми числами что-либо, кроме Long) [AnswerPlace] и переменную того же типа, что и массив [TempAnswerPlace] {количество ответов - NumberOfAnswers, номер текущего вопроса - NumberOfCurrentQuestion}

Код: Выделить всё

    PutAnswer = True
            For i = 1 To Questions(h).NumberOfAnswers
                TempAnswerPlace = Int(Rnd * NumberOfAnswers + 1)
                For j = 1 To i - 1
                    If TempAnswerPlace <> AnswerPlace(j) Then
                        PutAnswer = True
                    Else
                        PutAnswer = False
                        i = i - 1
                        Exit For
                    End If
                Next j
                If PutAnswer Then AnswerPlace(i) = TempAnswerPlace
            Next i


Когда проверяешь ответ:

Код: Выделить всё

        For i = 1 To NumberOfAnswers
            If optAnswer(AnswerPlace(i)).Value Then
                AnswerValue(NumberOfCurrentQuestion) = CStr(i)
                Exit For
            End If
        Next


Вот, собственно, и все.

[Shasha]

Tamplier , от кода конечно не откажусь ))) ну кто тя попрёт? было бы замечательно если бы был готовый примерчик + кто то нашол иной способ реализации..

[alibek]

Вот народ пошел, я фигею...

[Amed]

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

[Tamplier]

Не, обращаться за помощью-то оно, конечно, надо, но, блин, не надо наглеть

[Tamplier]

Админы, извините за второй пост подряд...

Tamplier , от кода конечно не откажусь ))) ну кто тя попрёт? было бы замечательно если бы был готовый примерчик + кто то нашол иной способ реализации..

Я вообще программу на разные модули разбиваю сейчас... Долго разбираться будешь.

[Shasha]

Блин, ну ни рублю я в массивах, вообще... поэтому и попрасил, понимая, что наглось...

[GSerg]

Ну так не участвуй в конкурсе, проблема-то в чём.

[Shasha]

GSerg , моё учебное заведение должно учавствовать в конкурсе... Директор сказал, что нада...ну у нас больше никто не программит

[GSerg]

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

[eugene2005]

....
Если учебное заведение должно, а информатика в нём не преподаётся, участвовать должен директор.

[Tamplier]

Если учебное заведение должно, а информатика в нём не преподаётся, участвовать должен директор.

директор не будет участвовать. Потому что он директор. [/code]

[Shasha]

GSerg , информатика преподаётся. на программера учусь..

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

Увы, ошибаешся
если не будет участия, будут люли директору, от директора таких люлей мне и преподам

[uhm]

на программера учусь

А что такое массивы - не знаешь? И давно учишься?

[GB826]

Я бы БД задействовал :о), потом аналитику проводить можно...

А обязательно VB, есть специализированные проги AuthorWare, например

Если учебное заведение должно, и в нём преподаётся информатика, значит программишь не только ты.
Если в учебном заведении не преподаётся информатика, учебное заведение ничего не должно.
Если учебное заведение должно, а информатика в нём не преподаётся, участвовать должен директор. (с) GSerg

Супер :о)

Автор готовь ведро вазелина и с повинной к директору.

[Shasha]

GB826 , думал с бд... для "с бд" нуно ещё библиотеки и регать их... с 'nvv то проблем нет но 5 лишних метров никчему, да и не нормально это как то
uhm , всё тебе расскажи

[CORBA]

Мне кажется структурный файл проще всего использовать для решения данной задачи. Конечно БД круче, но её необходимо устанавливать на компьютер перед эксплуатацией программы, что не есть хорошо, имхо.