Объектно-ориентированное программирование. Создаем программу-тест презентация

1

На вкладке Win32
2
Компонент PageControl

Правой кнопкой мыши вызываем меню и добавляем вкладки
3

Выбираем нужную вкладку
Меняем название вкладки
4

5

procedure TForm1.Button1Click(Sender: TObject);
begin
if (edit1.Text='4')then
begin
label2.Caption:='Правильно';
b:=b+1;
end
else
label2.Caption:='Неправильно';
Button1.Visible:=False;
end;
Проверяем правильность ответа
Ветвь «Да», выводим соответствующую надпись
Увеличиваем баллы
Ветвь «Нет», выводим соответствующую надпись
Прячем кнопку, воизбежание повторного ввода ответа
6

7

8
procedure TForm1.Button2Click(Sender: TObject);
begin
if (RadioButton2.Checked=true) then
begin
label4.Caption:='Правильно';
b:=b+1;
end
else
label4.Caption:='Неправильно'; Button2.Visible:=False;
end;
Проверяем правильность ответа
Ветвь «Да», выводим соответствующую надпись
Увеличиваем баллы
Ветвь «Нет», выводим соответствующую надпись
Прячем кнопку, воизбежание повторного ввода ответа

9

procedure TForm1.Button3Click(Sender: TObject);
begin
if (CheckBox1.Checked=true)
and (CheckBox3.Checked=true)
and (CheckBox2.Checked=false)
and (CheckBox4.Checked=false)then
begin
label5.Caption:='Правильно';
b:=b+1;
end
else
label5.Caption:='Неправильно';
Button3.Visible:=False;
end;
Проверяем правильность ответа
Ветвь «Да», выводим соответствующую надпись
Увеличиваем баллы
Ветвь «Нет», выводим соответствующую надпись
Прячем кнопку, воизбежание повторного ввода ответа
10

11

procedure TForm1.Button4Click(Sender: TObject);
begin
label9.Caption:='Набрано баллов - '+inttostr(b);
if (b=3) then
label10.Caption:=' Оценка 5 (отлично)';
if (b=2) then
label10.Caption:=' Оценка 4 (хорошо)';
if (b=1) then
label10.Caption:=' Оценка 3(удовлетворительно)';
if (b=0) then
label10.Caption:=' Оценка 2 (плохо)';
b:=0;
end;
12
Выводим количество набранных баллов
Переводим баллы в оценку
Обнуляем баллы для повторного прохождения теста

procedure TForm1.Button5Click(Sender: TObject);
begin
PageControl1.ActivePageIndex := 0;
edit1.Text:='';
CheckBox1.Checked:=false;
CheckBox2.Checked:=false;
CheckBox3.Checked:=false;
CheckBox4.Checked:=false;
Button1.Visible:=True;
Button2.Visible:=True; Button3.Visible:=True;
label5.Caption:='';
label7.Caption:='';
label8.Caption:='';
label9.Caption:='Набрано баллов - ';
label10.Caption:='Оценка ';
end;
13
Делаем активной вкладку с названием теста
Очищаем окно ввода (первый вопрос)
Убираем галочки в третьем вопросе
Возвращаем кнопки
Удаляем надписи Правильно/Неправильно»
Очищаем итоговые результаты

14

15

16
Создаем новую форму в проекте
Новую форму нужно сохранить

Переключение
17
F12

var
Form1: TForm1;
b:integer;
implementation
uses Unit2,Unit3;
Добавляем новые формы в проект
18

procedure TForm1.Button7Click(Sender: TObject);
begin
Form2.Show;
end;
procedure TForm1.Button8Click(Sender: TObject);
begin
Form3.Show;
end;
Открываем третью форму
19
Открываем вторую форму