| Вопрос: Создатель тестов | Добавлено: 07.06.06 11:47 |
Автор вопроса:  Pank | ICQ: 317309293 |
| Народ, выручайте. Горю! срочно нужен простенький "содатель тестов". Может у кого завалялся исходник |
| Ответы | Всего ответов: 20 |
|
Номер ответа: 1 Автор ответа:  Fever Вопросов: 60 Ответов: 808 |
Профиль | | #1 | Добавлено: 07.06.06 11:59 |
|
А я когда-то делал... Щас посмортю.
зы А тесты компьютерные? |
||
|
Номер ответа: 2 Автор ответа: Pank ICQ: 317309293 Вопросов: 17 Ответов: 17 |
Профиль | | #2 | Добавлено: 07.06.06 12:08 |
| Тесты по идее будут по истории Украины...а разве есть разница какие они будут? | ||
|
Номер ответа: 3 Автор ответа: PankICQ: 317309293 Вопросов: 17 Ответов: 17 |
Профиль | | #3 | Добавлено: 07.06.06 12:09 |
| Тесты по идее будут по истории Украины...а разве есть разница к какой отрасли относится?! | ||
|
Номер ответа: 4 Автор ответа: TamplierICQ: 298742928 Вопросов: 58 Ответов: 340 |
Профиль | | #4 | Добавлено: 08.06.06 12:23 |
| Хе, у меня готовая программа есть. Могу кинуть. А вот исходник не дам. Там моих разработок куча. Могу только идеи предложить. Тебе только создатель или еще Проводитель? | ||
|
Номер ответа: 5 Автор ответа:  someone Вопросов: 215 Ответов: 1596 |
Web-сайт: Профиль | | #5 | Добавлено: 08.06.06 12:29 |
| Хе хе, а я вот такую прогу в Power Point''e делал при помощи VBS. правда, я извращенец? | ||
|
Номер ответа: 6 Автор ответа: PankICQ: 317309293 Вопросов: 17 Ответов: 17 |
Профиль | | #6 | Добавлено: 08.06.06 13:00 |
| Tamplier, можещ скинуть исходник без своих разработок вместе с проводителем? | ||
|
Номер ответа: 7 Автор ответа: someoneВопросов: 215 Ответов: 1596 |
Web-сайт: Профиль | | #7 | Добавлено: 08.06.06 13:49 |
|
Давай я коротко опишу идею, а там дело за тобой?
Итак, представим себе программу для тестирования. Скажем, очень простенькую. Label там сверху для вопроса и 4 кнопки для вариантов. Сами файлы тестов будут читаться из текстовых файлов - так проще и удобнее. Я надеюсь, чтение по строкам не надо объяснять? Структуру можно сделать такую: #1
>Вопрос? Да Нет ХЗ/+/ Может быть #2 >Ну и? Что? Нет/+/ Да Обязательно И так далее. При этом "#1" - номер вопроса, ">Вопрос" - сам текст, а остальные строки: "Нет", "Да", "ХЗ", "Может быть" - варианты. Знаком /+/ отмечен правильный вариант ответа. Прочитав даный файл, программа выводит его содержимое на экран, записывая его перед этим в переменные. При нажатии на одну из кнопок, выполняется такой код: If Right(variant1, 3) = "/+/" Then
userScore = userScore + 1 DoNextQuestion(CurrentQuestion + 1) Else DoNextQuestion(CurrentQuestion + 1) End If При этом обрабатывается даный вариант, на наличие знака, о том, что он правильный. Естественно, сам этот знак не выводится на экран вместе с вариантом, что можно сделать таким образом: If Right(variant1, 3) = "/+/" Then
cmdVariant1.Caption = Left(variant1, Len(variant1) - 3) Else cmdVariant1.Caption = variant1 End If Замечу, что: 1) variant1 является переменной, которая задается при считывании данных. 2) не забудь про переменные variant2, variant3, variant4! 3) еще тебе осталось сделать процедуру перехода к следующему вопросу (DoNextQuestion()). 4) да и не забудь про переменную CurrentQuestion. Но это все мелочи. Главное - принцип. И вот еще что иогу посоветовать - так это зашифровать файлы каким-то образом. А то что-то я не очень полагаюсь на честность тестирующихся :D Если так уже не охота писать свой алгоритм - посмотри в Библиотеке Кодов или в Примерах - там сть много чего, что может тебе помочь. Вот... Однако это только сама программа тестирования, а вот Создатель еще проще сделать. Теперь, зная принцип работы программы, сделать Создатель легче. Итак, необходимо 6 TextBox'ов и 4 Option'а. В оные TextBox'ы, конечно же, будем вводить вопрос и четыре варианта. В еще один поместим сгенерированный тест. OptionBox'ы необходимо поставить возле каждого варианта ответа. Отмеченный OptionBox будет означать, что вариант, возле которого он находится - правильный. После чего таким вот простеньким кодом можно составить сам тест: Private Sub CreateTest()
If optVar1.Value = 1 Then txtVariant1.Text = txtVariant1.Text & "/+/" End If If optVar2.Value = 1 Then txtVariant2.Text = txtVariant2.Text & "/+/" End If If optVar3.Value = 1 Then txtVariant3.Text = txtVariant3.Text & "/+/" End If If optVar4.Value = 1 Then txtVariant4.Text = txtVariant4.Text & "/+/" End If txtTest.Text = "#1" txtText.Text = txtText.Text & vbNewLine & ">" & txtQuestion.Text txtText.Text = txtText.Text & vbNewLine & txtVariant1.Text txtText.Text = txtText.Text & vbNewLine & txtVariant2.Text txtText.Text = txtText.Text & vbNewLine & txtVariant3.Text txtText.Text = txtText.Text & vbNewLine & txtVariant4.Text End Sub Однако, это генератор только на один вопрос, но, думаю, разберешься как сделать и на 2 и на 3. Просто дописывать в этот же TextBox. Немножко исправить код процедуры, и объявить переменную QuestionNumber. Ну а потом результат в текстовый файл. Как я уже советовал выше - необходимо как-то зашифровать его, но это уже на твое усмотрение. Вот, собственно, и все. Если мне придут еще какие-то идеи в голову (*\/*) я обязательно напишу :D |
||
|
Номер ответа: 8 Автор ответа: PankICQ: 317309293 Вопросов: 17 Ответов: 17 |
Профиль | | #8 | Добавлено: 09.06.06 10:53 |
| А можно в готовом варианте? просто я не сильно спец в програмировании а программа нужна позарез | ||
|
Номер ответа: 9 Автор ответа: TamplierICQ: 298742928 Вопросов: 58 Ответов: 340 |
Профиль | | #9 | Добавлено: 09.06.06 22:13 |
| Pank, понимаешь, какая проблема. Почти все, что там есть - это то, что придумал я сам. Где-то стыренные или кем-то подсказанные куски встречаются крайне редко. Но... Я посмотрю. Тебе до какого числа это чудо надо? | ||
|
Номер ответа: 10 Автор ответа: SergeyICQ: 283551900 Вопросов: 1 Ответов: 74 |
Профиль | | #10 | Добавлено: 10.06.06 22:45 |
|
могу выложить текст теста с тестами на pascal вопрос как?
есть текст на vb но тест к нему весит 40 метров! |
||
|
Номер ответа: 11 Автор ответа: SergeyICQ: 283551900 Вопросов: 1 Ответов: 74 |
Профиль | | #11 | Добавлено: 10.06.06 22:46 |
| о забыл есть еще тест на с++ но там отвечаешь да/нет и идешь по левой/правой ветки! | ||
|
Номер ответа: 12 Автор ответа: PankICQ: 317309293 Вопросов: 17 Ответов: 17 |
Профиль | | #12 | Добавлено: 11.06.06 17:36 |
|
Sergey, в каком смысле весит тест 40 метров?исходный код или уже откомпиленый.
Tamplier, у меня последняя неделя практики.я то может и сам написал, но время есть только на выходных в субботу...даже не знаю с чего начать |
||
|
Номер ответа: 13 Автор ответа: SergeyICQ: 283551900 Вопросов: 1 Ответов: 74 |
Профиль | | #13 | Добавлено: 11.06.06 21:22 |
|
Весит сам тест(не программа) он графический и картинки в нем примерно по 4метра.
А без примера теста там ничего не поймешь. |
||
|
Номер ответа: 14 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #14 | Добавлено: 12.06.06 00:09 |
|
2 Pank
Я под заказ писал клиент/сервер для тестирования.... Но там куча всего что тебе ненужно, очень сложно, всё запутано итп 
|
||
|
Номер ответа: 15 Автор ответа: PankICQ: 317309293 Вопросов: 17 Ответов: 17 |
Профиль | | #15 | Добавлено: 13.06.06 12:41 |
Sergey, можеш мне скинуть исходник без теста. Я постараюсь разобраться просто нужно срочняк  )
|
||