Помогите с тестированием....

[S@profit]

Привет!

Срочно нужна помощь по написанию тестирования на VB. Форма теста следующая: Сначала окно программы и просьба ввести своё имя (ну тут всё ясно). Затем сам тест: 20 вопросов по 4 варианта ответа в каждом. И надо чтобы записывались результаты скажем в txt-файл в расчёте 1 вопрос = 1 балл. Ичтобы каждый раз создавался новый файл. т.е. для новых пользователей. Не могли бы вы помочь в написании кода? Буду очень признателен.

[A.A.Z.]

А в чем, собственно, проблема? В создании файла? В записи в него? В организации системы баллов? Или во всем сразу?

[Шурик]

А в чем, собственно, проблема? В создании файла? В записи в него? В организации системы баллов? Или во всем сразу?

Скорее всего в последнем........

[SSecurity]

Если это тест - тебе нужно соблюдать правила безопасности ...

Предложения:
- сохраняем номера ответов в одномерный массив A(19)
- далее сохраняем в файл с текстовой строкой такого вида
Напрмиер: 41324414214221343000
- а лог севера инфа пишется так
[Имя файла тестируемого]#[оценки по каждому вопрсу]

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

  Open "Server.Log" For Append as 2
  Open FileName for Output as 1
   Print #2, FileName; "#";
   For I=0 to 19
    Print #1, Trim(Str(A(I)));
    Print #2, Trim(Str(A(I)));
   Next I
  Close


- вот тебе весь результат.

Намного проще потом анализировать и сравнивать (сразу подмен можно будет обнаружить)[/code]

[SSecurity]

Что же касается имени то тут просто
Либо пишем лог файл в котором Ведем статистику имен в формате
[ФИО]#[Имя файла]

Пример:

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

Иванов Иван Иванович#0000.txt
Петров Петр Петрович#0001.txt


Соответсвенно нам тогда понадобится проверять наличие файлов чтобы случайно не переписать ...и корректно заполнять файл логов

[S@profit]

Сорри за тупость... А можно ВЕСЬ код целиком??? Или, если не трудно готовый исходник с "просто для вида" интерфесом выслать мне на мэйл: valtor87@mail.ru . Буду признателен.

Кстати хотел сказать: необязательно лог-файл, можно и txt обойтись. Мне не нужна безопасность. Это просто, чтобы сдать программу, типа зачёт по Информатике

[GAGArin]

:roll: Сорри за тупость... А можно ВЕСЬ код целиком??? Или, если не трудно готовый исходник с "просто для вида" интерфесом выслать мне на мэйл: valtor87@mail.ru . Буду признателен.

Нехило... Лучше сорри за наглость Я не думаю что многие сдесь рвутся делать за кого-то работку причём весьма простую(неинтересную). Хотя надежда умирает последней Но думаю если ты пересилишь себя и начнёшь таки писать сам то тебе помогут это точно. А то толку от кидания в тебя исходником если ты его особо и разбирать то не будешь.

[hCORe]

Ищи в теме "Тест" на в разделе "Наши проекты". Там неплохой проект с исходным кодом. Только спроси у Tarik'а разрешение на использование

[SSecurity]

:roll: Сорри за тупость... А можно ВЕСЬ код целиком??? Или, если не трудно готовый исходник с "просто для вида" интерфесом выслать мне на мэйл: valtor87@mail.ru . Буду признателен.

Кстати хотел сказать: необязательно лог-файл, можно и txt обойтись. Мне не нужна безопасность. Это просто, чтобы сдать программу, типа зачёт по Информатике

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

[S@profit]

SSecurity

Тест по информатике из 20 вопросов. Вопросы необязаетльно впихивать. Где вопросы и варианты ответов, можешь писать вместо самого вопроса "Вопрос1", а вместо варианта ответа "Ответ1" и т.д. А я потом сам впоросы впишу. Если не трудно...

[GAGArin]

Ок настраивай под себя и пользуйся, это моя первая работа на ВБ Только в коде поразбирайся пожалуйста. Сам переделывать не буду Так как VB на другой винде а перезагружать неохота сейчас.

[v-adix]

вопросы можно сохранять в INI файле примерно в таком виде:

[question1]
question=вопрос
answer1=ответ
answer2=ответ
answer3=ответ
answer4=правильный ответ (номер)
[question2]
........

а от "взлома" можно защитить простым xor'ом!
насчёт теста - можно просто создать одну форму и загружать вопросы из файла в соотв. text боксы и лэйблы.

[GAGArin]

Те кто скачали мою байду не пугайтесь сильно А то я помню там всё очень запущенно. Но это именно тот уровень который был запрошен А вообще халтура редкостная.

[SSecurity]

Да матушка лень,:)

[S@profit]

GAGArin
А в том тесте, что ты выложил на все вопросы одни и те же ответы.. а мне надо не так. Вопроосы разные и ответы соответсвенно разные. Может кто-нибудь изменит слегка код, чтобы было так, как мне надо Т.е. вообще всё прекрасно в твоём тесте (мне почти так и надо), только надо чтобы на каждый вопрос были разные варианты ответа в ComboBox'e. Помогите, ведь для вас это несложно Изменённый файл выкладывайте сюда. Спасибо.

[SSecurity]

Мудрый товарищ ..... тебе код дали ..... там вопросы тока поменять(т.е. ответы) ... ты ето можешь?Я идиот! Убейте меня, кто-нибудь!?


позвони 09 тебе расскажут.

[GAGArin]

SSecurity Ты не видал моё убожество, хотя там поменять вопросы действительно просто, но н так что просто написать заново, а вот переделывать я не буду так как VB.НЕТ!

[Kostyan]

Вот тебе мой тест, сам делал его как курсовую работу, но получилась на мой взгляд довольно неплохая прога. Там есть и редактор тестов, и тестирующий модуль, в тесты можно пихать картинки поясняющие вопрос, ведется лог, доступ к редактору можно паролировать (пароль сохраняется в зашифрованном виде в реестре). В редакторе можно создавать новые тесты (после этого сохранять их в файлы), редактировать существующие. На каждый вопрос в моей проге предусмотрено только 3 варианта ответа. Вобщем качай и разбирайся, всё рабочее. Есть правда 1 глюк, писал я её на 98-й винде, и не предусмотрел такой мелочи, что на платформе NT стандартные диалоги сохраниения и открытия файлов вызываются через апи немного по-другому (в моей проге используется именно АПИ-вызов а не CommonDialog). Поэтому соответствующие пункты меню в редакторе тестов на винде NT/2000/XP работать не будут. Если хочешь - доделай, там не так уж и сложно

[S@profit]

Kostyan
Спасибо огромное!!!! Спас меня! Сенкс! Сенкс! Сенкс!

А ещё один глупый вопрос не по теме можно? Дан массив из 20 чисел, каждое кратное 3 превратить в ноль. Как это сделать в виде блок-схемы?

[GAGArin]

S@profit Я прогу Kostyan'a не видел, но как ты будешь отвечать по ней на вопросы? Там не твой уровень я уверен (ты уж извини если обидел) Я и сам хреново пишу, но чужие проекты не беру никогда. Только для прочтения! Чего и тебе советую, ибо меньше казусов будет.
Ответ на вопрос:

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

for a =0 to 19
if mass(a)/3=mass(a)\3 then
mass(a)=0
next a


В блок схему сам переведёшь?

[S@profit]

Kostyan
Вообще да... открывать/сохранять тесты не могу, т.к. у меня ХР Что надо изменить (как?), чтобы заработало??? Помоги плиз.....

[Kostyan]

Насчет массива:

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

For i = 0 To 19
  If mas(i) Mod 3 = 0 Then mas(i) = 0
Next


А вот тебе доделаный тест, теперь и в XP всё работает, пользуйся

[S@profit]

Глубочайший респект!!!! Спасибо!!!!

[S@profit]

Ещё раз сенкс! Сдал сегодня на отлично!

Kostyan
А как такое задание по массивам будет выглядеть в виде блок-схемы?

[Kostyan]

Я бы конечно мог попробовать изобразить блоксхему из символов... но чую не поймешь (рисунки-то тут не поместишь), неуж-то у вас там нету какого-нибудь отличника которого можно запрячь сделать тебе блоксхему?

[S@profit]

Был такой - не обратился бы

Ну ты можешь в Ворде сделать её и прислать мне на valtor87@mail.ru