Да этих тестов, экзаменаторов и т.п. на форуме море .
------------ Д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
}