Презентация "Создаем программу-тест на 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
Список литературы и интернет источников