1.50M
Category: programmingprogramming

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

1.

Презентация к уроку информатики
11 класс
Автор: Юдин Андрей Борисович
МКОУ Плесская СОШ

2.

1

3.

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

4.

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

5.

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

6.

5

7.

6
Проверяем
правильность
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;

8.

7

9.

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

10.

9

11.

10
Проверяем правильность
ответа TObject);
procedure TForm1.Button3Click(Sender:
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;

12.

11

13.

12
Выводим количество
набранных баллов
Переводим баллы
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;

14.

13
Очищаем
окногалочки
Убираем
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;

15.

14

16.

15

17.

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

18.

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

19.

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

20.

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

21.

20
Список литературы и интернет источников
1.
2.
3.
4.
5.
Delphi 2007. Алгоритмы и программы: О. В. Чеснокова — СанктПетербург, НТ Пресс, 2008 г.
Основы программирования в интегрированной среде DELPHI: А.
Желонкин — Москва, Бином. Лаборатория знаний, 2004 г.
Программирование в Turbo Pascal. Переход к Delphi: Ю. А. Шпак
— Москва, МК-Пресс, 2006 г.
Занимательное программирование: М. Мозговой – СПб, Питер, 2005
г.
Delphi. Программирование на языке высокого уровня: Фаронов
В.В. Учебник для вузов. – СПб.: Питер, 2003. – 640 с.: ил.
И интернет ресурсы:
1.
2.
3.
Королевство Delphi - виртуальный клуб программистов
http://www.delphikingdom.com
Мастера Delphi
http://www.delphimaster.ru/
Сайт о Lazarus. Алгоритмы, статьи, библиотеки и много всего
интересного http://lazarus.su/
English     Русский Rules