Вверх ↑
Этот топик читают: Гость
Ответов: 41
Рейтинг: 3
#1: 2010-12-13 16:50:49 ЛС | профиль | цитата
В отщем сделал тест программу и косяк в том что когда я прохожу тест и закрываю его нужно потом влючить заново этот тест программу и чтоб вопросы поменялись, ну тоесть вопросы должны меняться рамдомно, как это сделать я честно не знаю если у кого есть какие то идеи судовольствием вуслушаю их

code_21806.txt
карма: 1

0
файлы: 1code_21806.txt [12.9KB] [176]
Гость
Ответов: 17029
Рейтинг: 0
#2: 2010-12-14 22:01:43 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-10 14:34:05
карма: 0

0
Ответов: 8961
Рейтинг: 824
#3: 2010-12-15 09:04:09 ЛС | профиль | цитата
madlian, у меня так (см. рисунок)
карма: 19

0
файлы: 1kraykozaybru.jpg [59.3KB] [299]
Ответов: 41
Рейтинг: 3
#4: 2010-12-15 10:18:29 ЛС | профиль | цитата
ого, непойму почему, носил его в универ и там на ихних компах все было хорошо ну крякозябок небыло, леонид ну ты сможеш что придумать насчет рандома? в логике вродеб элемент видел а прикрутить его я хз как
карма: 1

0
Ответов: 4641
Рейтинг: 334
#5: 2010-12-15 11:04:26 ЛС | профиль | цитата
у тебя изначально не правильный подход.
Ну рандомно задавать вопросы можно, но как ты ответы учитывать будешь? Если вопроса 3, то нет проблем, а больше уже не удобно.

madlian, вроде уже писали что воспользуйся поиском и есть куча решений тестов более правильных.
карма: 1
Время верстки: %cr_time% Текущее время: %time%
0
Ответов: 41
Рейтинг: 3
#6: 2010-12-15 14:57:06 ЛС | профиль | цитата
Ravilr а ты сможеш сделать такой тест чтоб рамдомно менял вопросы, даже если будет 3 вопроса?
карма: 1

0
Ответов: 16884
Рейтинг: 1239
#7: 2010-12-15 15:32:42 ЛС | профиль | цитата
madlian, элементарно. И повторяться вопросы не будут. Хоть 1000 вопросов
------------ Дoбавленo в 15.32:
правильно Ravilr писал(а):
у тебя изначально не правильный подход.
Сначала нужно продумать структуру вопросника, а потом уже схему тестера.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 41
Рейтинг: 3
#8: 2010-12-15 15:34:12 ЛС | профиль | цитата
Tad я несколько дней прошу кого нибуль сделать, и никто не может помоч!!! только ответы посмотри там или там, а конктетно никто, а ты говориш что элементарно если для тебя это легко то сделай...
карма: 1

0
Ответов: 8961
Рейтинг: 824
#9: 2010-12-15 16:13:38 ЛС | профиль | цитата
madlian, Вы насоздавали одинаковых тем, но сами их, наверное и не читаете
В теме http://hiasm.com/forum.html?q=3&t=55893 в предпоследнем моём посте я Вам выложил пример, откройте и посмотрите, как сделана викторина, может и вопросы отпадут.
карма: 19

0
Гость
Ответов: 17029
Рейтинг: 0
#10: 2010-12-15 16:15:38 правка | ЛС | профиль | цитата


Редактировалось 2 раз(а), последний 2025-01-10 14:34:05
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#11: 2010-12-16 00:00:51 ЛС | профиль | цитата
или посмотреть здесь - http://forum.hiasm.com/forum.html?q=3&p=130461#p130461
Да этих тестов, экзаменаторов и т.п. на форуме море .
------------ Дoбавленo в 00.00:
madlian, вот примерная программа для составления вопросника для теста.

Add(MainForm,3721832,175,126)
{
Width=1106
Height=629
Caption="Создание тестового файла"
BorderStyle=1
Position=1
}
Add(Edit,251256,322,119)
{
Left=130
Top=365
Width=965
Font=[MS Sans Serif,8,0,255,1]
Text=""
}
Add(Edit,16253860,329,161)
{
Left=130
Top=413
Width=965
Text=""
}
Add(Edit,2982944,336,196)
{
Left=130
Top=451
Width=965
Text=""
}
Add(Edit,12883650,343,238)
{
Left=130
Top=490
Width=965
Text=""
}
Add(Label,6406382,168,224)
{
Left=12
Top=365
Width=115
Font=[MS Sans Serif,8,1,16711680,1]
Caption="Вопрос :"
AutoSize=1
Alignment=1
}
Add(Label,9172548,182,238)
{
Left=12
Top=415
Width=115
Font=[MS Sans Serif,8,1,16711680,1]
Caption="Верный ответ :"
AutoSize=1
Alignment=1
}
Add(Label,7884775,189,252)
{
Left=12
Top=450
Width=115
Font=[MS Sans Serif,8,1,16711680,1]
Caption="Неверный ответ :"
AutoSize=1
Alignment=1
}
Add(Label,15362776,203,266)
{
Left=12
Top=490
Width=115
Font=[MS Sans Serif,8,1,16711680,1]
Caption="Неверный ответ :"
AutoSize=1
Alignment=1
}
Add(Button,3655520,168,427)
{
Left=417
Top=565
Width=240
Font=[MS Sans Serif,8,1,0,1]
Caption="Открыть файл для редактирования"
link(onClick,9694884:doExecute,[])
}
Add(Button,16388909,168,462)
{
Left=680
Top=565
Width=80
Font=[MS Sans Serif,8,1,0,1]
Caption="Сохранить"
link(onClick,776169:doExecute,[])
}
Add(SDialog,776169,245,462)
{
Filter="Файлы тестов (*.tst)|*.tst"
Title="Сохранение файла теста"
FileName="Безымянный"
link(onExecute,3375740:doSave,[(387,468)(387,440)])
}
Add(ODialog,9694884,245,427)
{
Filter="Файлы тестов (*.tst)|*.tst"
Title="Выбор файла теста"
FileName=""
link(onExecute,3375740:doLoad,[])
}
Add(Button,11259189,168,357)
{
Left=220
Top=565
Width=180
Font=[MS Sans Serif,8,1,0,1]
Caption="Добавить вопрос"
link(onClick,911136:doString,[])
}
Add(StringTable,3375740,413,406)
{
Left=5
Top=5
Width=1090
Height=345
Columns=#10:Вопрос=187|16:Верный ответ=187|18:Неверный ответ=187|18:Неверный ответ=187|18:Неверный ответ=187|
Grid=0
Redaction=1
StaticColumn=0
Point(doSelect)
link(onClick,12228346:doEvent1,[])
}
Add(FormatStr,911136,322,357)
{
DataCount=5
Mask="%1;%2;%3;%4;%5"
link(onFString,14756281:doEvent1,[])
link(Str1,251256:Text,[])
link(Str2,16253860:Text,[])
link(Str3,2982944:Text,[])
link(Str4,12883650:Text,[])
link(Str5,10735733:Text,[])
}
Add(Button,12713,168,392)
{
Left=50
Top=565
Width=150
Caption="Сброс"
link(onClick,14756281:doEvent2,[(363,398)(363,370)])
}
Add(Hub,12228346,469,406)
{
link(onEvent1,3375740:doSelect,[(496,412)(496,475)(401,475)(401,447)])
link(onEvent2,130903:doWork3,[(508,419)])
}
Add(MultiStrData,9295044,252,175)
{
Count=5
link(Str,3375740:Select,[(258,108)(460,108)(460,458)(426,458)])
link(onPart1,251256:doText2,[(306,181)(306,132)])
link(onPart2,16253860:doText2,[(316,188)(316,174)])
link(onPart3,2982944:doText2,[(317,195)(317,209)])
link(onPart4,12883650:doText2,[(307,202)(307,251)])
link(onPart5,10735733:doText2,[(298,209)(298,286)])
}
Add(Hub,14756281,378,357)
{
InCount=2
link(onEvent1,3375740:doAdd,[(398,363)(398,412)])
link(onEvent2,2327192:doData,[])
}
Add(DoData,2327192,413,364)
{
Data=String(;;;;)
link(onEventData,130903:doWork2,[])
}
Add(HubEx,130903,504,364)
{
Angle=3
link(onEvent,9295044:doSplit,[(508,97)(239,97)(239,181)])
}
Add(Edit,10735733,350,273)
{
Left=130
Top=530
Width=965
Text=""
}
Add(Label,14728528,217,280)
{
Left=17
Top=530
Width=109
Height=17
Font=[MS Sans Serif,8,1,16711680,1]
Caption="Неверный ответ :"
AutoSize=1
Alignment=1
}


карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
11
Сообщение
...
Прикрепленные файлы
(файлы не залиты)