Презентация "Создаем программу-тест на Delphi"

Подписи к слайдам:

Создаем

программу - тест

Презентация к уроку информатики

11 класс

Автор: Юдин Андрей Борисович

МКОУ Плесская СОШ

Delphi 7

Объектно-

ориентированное

программирование

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

Открываем вторую форму

  • Delphi 2007. Алгоритмы и программы: О. В. Чеснокова — Санкт-Петербург, НТ Пресс, 2008 г.
  • Основы программирования в интегрированной среде DELPHI: А. Желонкин — Москва, Бином. Лаборатория знаний, 2004 г.
  • Программирование в Turbo Pascal. Переход к Delphi: Ю. А. Шпак — Москва, МК-Пресс, 2006 г.
  • Занимательное программирование: М. Мозговой – СПб, Питер, 2005 г.
  • Delphi. Программирование на языке высокого уровня: Фаронов В.В. Учебник для вузов. – СПб.: Питер, 2003. – 640 с.: ил.
  • И интернет ресурсы:

  • Королевство Delphi - виртуальный клуб программистов http://www.delphikingdom.com
  • Мастера Delphi http://www.delphimaster.ru/
  • Сайт о Lazarus. Алгоритмы, статьи, библиотеки и много всего интересного http://lazarus.su/

20

Список литературы и интернет источников