написание программы-теста

[Anunnax]

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

[Rin]

как сделать появление следующей формы по нажатию на кнопку?

Если Ты имел ввиду появление следующего вопроса на форме после нажатия кнопки, то

label1.Caption:='Что хочешь, то пиши'

Если Ты говорил про форму, то так

Form2.Show;// Откроется Form2, но ты сможешь работать и с Form1
// или
Form2.ShowModal;// Откроется Form2, но пока ты её не закроешь 
// ты не сможешь работать и с Form1

[Anunnax]

Сообщение от Rin

label1.Caption:='Что хочешь, то пиши'

Получается это прописывать для каждой кнопки? А как сделать для цепочки вопросов?

[Anunnax]

Да, писать буду на delphi

[Rin]

Допустим так:Поместить label , radioGroup, кнопку с надписью "Ответить" и определить все начальные данные:вопрос и первые варианты ответов в radiogroup.

const kolichestvo_voprosov=10;
var nomer_voprosa,pravilno:byte;
..........
begin
...........
nomer_voprosa:=1;
repeat
case nomer_voprosa of
1:begin 
 if RadioGroup1.ItemIndex=1 then pravilno:=pravilno+1 ;
Label1.Caption:='Твой след вопрос';
RadioGroup1.Items.Clear;
RadioGroup1.Items.Add('первый вариант ответа');
RadioGroup1.Items.Add('2-й вариант ответа');
RadioGroup1.Items.Add('3-й вариант ответа');
 end;
2: //по анологии 
3://по анологии
4://по анологии
5://по анологии
6://по анологии
7://по анологии
8://по анологии
9://по анологии
10:if RadioGroup1.ItemIndex=0 then pravilno:=pravilno+1 else ;
end;
nomer_voprosa:=nomer_voprosa+1;
until nomer_voprosa>kolichestvo_voprosov;
ShowMessage('правильных ответов'+IntToStr(pravilno));

[kanich]

Кинь мыло. Могу поделиться исходниками, разберешь и сразу все понятно будет.