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

[dapsssss]

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

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

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

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

 

[werti]

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

 

[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 и его не сложно будет перевести.

 

[Guest]

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