procedure Button28Click(Sender:
TObject);
procedure Button29Click(Sender:
TObject);
procedure Button30Click(Sender:
TObject);
procedure Button31Click(Sender:
TObject);
procedure Button32Click(Sender:
TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
r:integer; //переменная
для хранения результата тестирования
implementation
uses Unit3, Unit2;
{$R *.dfm}
procedure TForm1.N9Click(Sender: TObject);
begin
Form3.Show;
//показывает окно "О программе"
end;
procedure TForm1.N3Click(Sender: TObject);
begin
Application.Terminate; //закрывает
приложение при нажатии на
кнопку "выход"
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
StatusBar1.Panels[1].Text:='Тест не
выбран'; //отображение в строке
статуса режима
end;
procedure TForm1.Timer_sysTimer(Sender: TObject);
begin
StatusBar1.Panels[2].Text:=datetostr(now);
//отображает дату и время в статусной
строке
StatusBar1.Panels[3].Text:=timetostr(now);
end;
procedure TForm1.N2Click(Sender: TObject);
begin
GroupBox1.Visible:=true;
//показ панели для ввода данных
Panel1.Visible:=false; //скрываем
панели с вопросами
Panel2.Visible:=false;
Panel3.Visible:=false;
Panel4.Visible:=false;
end;
procedure TForm1.ConfirmButClick(Sender: TObject);
begin
r:=0; //обнуление результатов
if (Edit1.Text='') or (edit2.Text='') then ShowMessage('Заполните
все поля!')
else //проверка
все ли поля с данными заполнены
begin
Memo1.Lines.Clear; //очищаем окно
для отображения информации
Memo1.Lines.Add(#13#10+'Удачного
тестирования,'+Edit1.Text+#13#10);
StatusBar1.Panels[5].text:=edit1.Text+' '+Edit2.Text;
if ComboBox1.Text='Вариант
№1' then //если выбран 1 вариант,
то
begin
GroupBox1.Visible:=false;
//скрываем панель для ввода
данных
Memo1.Lines.Add('Вариант
№1'); //выводим в информационное
окно вариант
StatusBar1.Panels[1].Text:='Вариант
№1'; //выводим в строку состояния
вариант
Panel1.Visible:=true;
//активируем окно с 1 вариантом
GroupBox2.Visible:=true; //переходим
к первому вопросу
end
else if ComboBox1.Text='Вариант
№2' then //если выбран 2 вариант,
то
begin
GroupBox1.Visible:=false; //скрываем панель
для ввода данных
Memo1.Lines.Add('Вариант №2'); //выводим
в информационное окно вариант
StatusBar1.Panels[1].Text:='Вариант №2'; //выводим
в строку состояния вариант
Panel2.Visible:=true; //активируем окно
сo 2 вариантом
GroupBox10.Visible:=true; //переходим к первому
вопросу
end
else if ComboBox1.Text='Вариант №3' then
//если выбран 3 вариант, то
begin
GroupBox1.Visible:=false; //скрываем панель
для ввода данных
Memo1.Lines.Add('Вариант №3'); //выводим
в информационное окно вариант
StatusBar1.Panels[1].Text:='Вариант №3'; //выводим
в строку состояния вариант
Panel3.Visible:=true; //активируем окно
с 3 вариантом
GroupBox18.Visible:=true; //переходим к первому
вопросу
end
else if ComboBox1.Text='Вариант №4' then
//если выбран 4 вариант, то
begin
GroupBox1.Visible:=false; //скрываем панель
для ввода данных
Memo1.Lines.Add('Вариант №4'); //выводим
в информационное окно вариант
StatusBar1.Panels[1].Text:='Вариант №4'; //выводим
в строку состояния вариант
Panel4.Visible:=true; //активируем окно
с 4 вариантом
GroupBox26.Visible:=true; //переходим к первому
вопросу
end
else
//если вариант не выбран,
ShowMessage('Вариант не выбран!'); //выводим
сообщение
end;
Memo1.Lines.Add(#13#10+#13#10+'Выберите
один из четырех вариантов
ответа');
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if RadioGroup1.ItemIndex=(-1) then ShowMessage('не
выбран ни один из вариантов ответов')
else
begin
if RadioGroup1.ItemIndex=2
then //если выбран правильный вариант
ответа, то
r:=r+1;
//записываем в результат + 1 балл
GroupBox2.Visible:=false;
GroupBox3.Visible:=true;
//переходим к следующему вопросу
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if RadioGroup2.ItemIndex=(-1) then ShowMessage('не
выбран ни один из вариантов ответов')
else
begin
if RadioGroup2.ItemIndex=0
then //если выбран правильный вариант
ответа, то
r:=r+1;
//записываем в результат + 1 балл
GroupBox3.Visible:=false;
GroupBox4.Visible:=true;
//переходим к следующему вопросу
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
if RadioGroup3.ItemIndex=(-1) then ShowMessage('не
выбран ни один из вариантов ответов')
else
begin
if RadioGroup3.ItemIndex=2
then //если выбран правильный вариант
ответа, то
r:=r+1;
//записываем в результат + 1 балл
GroupBox4.Visible:=false;
GroupBox5.Visible:=true;
//переходим к следующему вопросу
end;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
if RadioGroup4.ItemIndex=(-1) then ShowMessage('не
выбран ни один из вариантов ответов')
else
begin
if RadioGroup4.ItemIndex=3
then //если выбран правильный вариант
ответа, то
r:=r+1;
//записываем в результат + 1 балл
GroupBox5.Visible:=false;
GroupBox6.Visible:=true;
//переходим к следующему вопросу
end;
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
if RadioGroup5.ItemIndex=(-1) then ShowMessage('не
выбран ни один из вариантов ответов')
else
begin
if RadioGroup5.ItemIndex=3
then //если выбран правильный вариант
ответа, то
r:=r+1;
//записываем в результат + 1 балл
GroupBox6.Visible:=false;
GroupBox7.Visible:=true;
//переходим к следующему вопросу
end;
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
if RadioGroup6.ItemIndex=(-1) then ShowMessage('не
выбран ни один из вариантов ответов')
else
begin
if RadioGroup6.ItemIndex=0
then //если выбран правильный вариант
ответа, то
r:=r+1;
//записываем в результат + 1 балл
GroupBox7.Visible:=false;
GroupBox8.Visible:=true;
//переходим к следующему вопросу
end;
end;
procedure TForm1.Button7Click(Sender: TObject);
begin
if RadioGroup7.ItemIndex=(-1) then ShowMessage('не
выбран ни один из вариантов ответов')
else
begin
if RadioGroup7.ItemIndex=3
then //если выбран правильный вариант
ответа, то
r:=r+1;
//записываем в результат + 1 балл
GroupBox8.Visible:=false;
GroupBox9.Visible:=true;
//переходим к следующему вопросу
end;
end;
procedure TForm1.Button8Click(Sender: TObject);
begin
if RadioGroup8.ItemIndex=(-1) then ShowMessage('не
выбран ни один из вариантов ответов')
else
begin