Разделы презентаций
- Разное
- Английский язык
- Астрономия
- Алгебра
- Биология
- География
- Геометрия
- Детские презентации
- Информатика
- История
- Литература
- Математика
- Медицина
- Менеджмент
- Музыка
- МХК
- Немецкий язык
- ОБЖ
- Обществознание
- Окружающий мир
- Педагогика
- Русский язык
- Технология
- Физика
- Философия
- Химия
- Шаблоны, картинки для презентаций
- Экология
- Экономика
- Юриспруденция
Создаем программу-тест на Delphi
Содержание
- 1. Создаем программу-тест на Delphi
- 2. 1
- 3. На вкладке Win322Компонент PageControl
- 4. Правой кнопкой мыши вызываем меню и добавляем вкладки3
- 5. Выбираем нужную вкладкуМеняем название вкладки4
- 6. 5
- 7. procedure TForm1.Button1Click(Sender: TObject);begin if (edit1.Text='4')then
- 8. 7
- 9. 8procedure TForm1.Button2Click(Sender: TObject);begin if (RadioButton2.Checked=true) then
- 10. 9
- 11. procedure TForm1.Button3Click(Sender: TObject);begin if (CheckBox1.Checked=true)
- 12. 11
- 13. procedure TForm1.Button4Click(Sender: TObject);beginlabel9.Caption:='Набрано баллов - '+inttostr(b);if (b=3)
- 14. procedure TForm1.Button5Click(Sender: TObject);begin PageControl1.ActivePageIndex :=
- 15. 14
- 16. 15
- 17. 16Создаем новую форму в проектеНовую форму нужно сохранить
- 18. Переключение17F12
- 19. var Form1: TForm1; b:integer;implementationuses Unit2,Unit3;Добавляем новые формы в проект18
- 20. procedure TForm1.Button7Click(Sender: TObject);begin Form2.Show;end;procedure TForm1.Button8Click(Sender: TObject);begin Form3.Show;end;Открываем третью форму19Открываем вторую форму
- 21. Delphi 2007. Алгоритмы и программы: О. В.
- 22. Скачать презентанцию
На вкладке Win322Компонент PageControl
Слайды и текст этой презентации
Слайд 7procedure 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
Слайд 98
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;
Проверяем правильность ответа
Ветвь «Да», выводим соответствующую надпись
Увеличиваем баллы
Ветвь «Нет», выводим соответствующую надпись
Прячем кнопку, воизбежание повторного ввода ответа
Слайд 11procedure 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
Слайд 13procedure 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
Выводим количество набранных баллов
Переводим баллы в оценку
Обнуляем баллы для повторного прохождения теста
Слайд 14procedure 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
Делаем активной вкладку с названием теста
Очищаем окно ввода (первый вопрос)
Убираем галочки в третьем вопросе
Возвращаем кнопки
Удаляем надписи Правильно/Неправильно»
Очищаем итоговые результаты
Слайд 19var
Form1: TForm1;
b:integer;
implementation
uses Unit2,Unit3;
Добавляем новые формы в проект
18
Слайд 20procedure TForm1.Button7Click(Sender: TObject);
begin
Form2.Show;
end;
procedure TForm1.Button8Click(Sender: TObject);
begin
Form3.Show;
end;
Открываем третью форму
19
Открываем
вторую форму
Слайд 21Delphi 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
Список литературы и интернет источников
