Similar presentations:
Объектно-ориентированное программирование. Создаем программу-тест
1.
Презентация к уроку информатики11 класс
Автор: Юдин Андрей Борисович
МКОУ Плесская СОШ
2.
13.
2На вкладке
Win32
Компонент
PageControl
4.
3Правой кнопкой
мыши вызываем
меню и
добавляем
вкладки
5.
4Выбираем
нужную вкладку
Меняем название
вкладки
6.
57.
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.
79.
Проверяемправильность
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.
911.
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.
1113.
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.
1416.
1517.
16Создаем новую
форму в проекте
Новую форму
нужно сохранить
18.
17Переключение
19.
18var
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/