Тестирование!

Тема в разделе "Другие задачи", создана пользователем dapsssss, 11 окт 2009.

Статус темы:
Закрыта.
  1. dapsssss

    dapsssss Гость

    Есть текстовый файл! В нём построчна написаны вопросы и ответы через запятую.... Надо составить оболочку прохождения тестов чтобы брались из этого файла! Структура файла следующая:

    1,Сколько ног у кота?,Пять,Четыре,Шесть,Три,Семь,Одна,,,,,,,,6-это номер правильного ответа
    2,Как называется наша планета?,Земля,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,3-пр отв
    3,
    4,
    5,
    6,
    3900-количество секунд на тест.
    Вот как вывести вопрос тестируему понятно. А что делать с ответами? Как показать, что угадал он или нет?

    Моможете? Очень буду рад исходникам!

    Возможно как-нибудь заплатить маленько если сделаете мне. В личку.
     
  2. werti

    werti Гость

    Попробуй поработать с запятыми
    Что-то типа :
    Вопрос,первый вариант,второй вариант, и тд
     
  3. Zato

    Zato Гость

    Короч мне щас влом ставить и разбираться с VB, но могу предложить вот такой алгоритм под PureBasic:

    <!--shcode--><pre><code class='PureBasic'>ReadFile(0,"C:\1.txt")

    mil.l=ElapsedMilliseconds()

    While Eof(0) = 0
    line.s=ReadString(0)
    text.s=StringField(line.s,2,",")

    OpenWindow(0, 0, 0, 300, 1100, text.s,#PB_Window_ScreenCentered|#PB_Window_Invisible|#PB_Window_SystemMenu)
    k=0
    Repeat
    k=k+1
    on.s=StringField(line.s,k+2,",")
    If Not on.s="" And Not Right(on.s,Len(on.s))=Right(line.s,Len(on.s))
    OptionGadget(k, 30, 20*(k-1), 160, 20, on.s)
    EndIf
    Until Right(on.s,Len(on.s))=Right(line.s,Len(on.s))

    ButtonGadget(k+1, 30, 20*k, 160, 20, "OK")


    ResizeWindow(0, 100, 100, 300, k*20+20)
    HideWindow(0, 0)

    good.i=Val(on.s)

    Repeat
    Event = WaitWindowEvent()
    evg=EventGadget()
    If mil+390000<ElapsedMilliseconds()
    MessageRequester("NO", "Time is over!")
    End
    EndIf
    Until event=#PB_Event_Gadget And evg=k+1

    If GetGadgetState(good.i)=1
    MessageRequester("OK", "OK")
    Else
    MessageRequester("NO", "NO")
    EndIf

    Wend[/CODE]

    Он очень схож, с VB и его не сложно будет перевести.
     
  4. Гость

    Визуал бейсик 6.0? Я могу тебе помочь, но если не 6.0, то не буду, ато долго писать.
     
Загрузка...
Статус темы:
Закрыта.

Поделиться этой страницей