Практическая работа «Создание теста по географии»
Открыть новый проект.
Работа над проектом состоит из последовательного создания 5 форм:
- Создать титульную форму
2.1. Дать название форме Тест по Географии.
2.2. Разместить в форме метки в соответствии с рисунком и присвоить заголовки им.
2.3. Разместить в форме компонент Image (графический объект), который находится на странице палитры компонентов Additional.
Выделить Image, в Object Inspector найти свойство Picture, справа от него нажать на кнопку с тремя точками. В появившемся окне встроенного редактора Picture Editor нажать кнопку Load, которая вызывает появление окна для выбора заголовка графического файла. Выбранная картинка появится вначале в служебном окне, и если пользователь подтвердит (нажав кнопку OK), то картинка появится и в окне формы.
2.4. Разместить в форме кнопку Выход, обеспечивающую прекращение выполнения задачи.
2.5. Разместить в форме кнопку Продолжить. Пока не задаем действия, которые будут выполняться по нажатию этой кнопки.
2.6. Сохранить форму под именем, например, F_Titul.pas и проект – Pr_Test.dpr.
3. Создать форму меню (U_Menu)
3.1. Командой File, New Form создать новую форму. Выполнить следующие действия.
Выделенный объект
|
Вкладка окна
Object Inspector
|
Имя свойства/
Имя события
|
Значение/Действие
|
Form2
|
Properties
|
Caption
|
Меню
|
Name
|
U_Menu
установка имени формы, под которым компонент будет известен программе.
|
3.2. Создать меню с помощью компонента MainMenu, который находится на странице палитры компонентов Standard. Теперь необходимо создать его опции.
Дважды щелкните на появившейся пиктограмме MainMenu или, выделив компонент MainMenu, щелкните по кнопке в правой половине строки Items Object Inspector. И в том и в другом случае на экране появится окно с заголовком Form2.MainMenu1.
Установите в качестве значения свойства Caption название первого пункта меню Тест. Оно запишется в синем прямоугольнике слева на полосе меню. Нажмите клавишу Enter. Теперь опция готова и можно переходить к созданию следующей.
Каждая опция главного меню может содержать список подопций. Для создания подопций щелкнуть мышью по строке ниже опции и введите первую подопцию. Продолжать ввод, пока не будет создан весь список подопций.
В названиях опций, являющихся значениями свойства Caption, можно указать символ "&" перед тем символом, который будет использоваться для быстрого выбора опции. В нашем примере для опции Тест можно выбрать сочетание клавиш Alt+T. Для этого в строке Caption указать &Тест.
Опция Тест должна содержать подопции Тестирование, Результат, Выход.
Опция Помощь не должна содержать подопций.
Для реализации подопции Выход выполните следующие команды:
Выделенный объект
|
Вкладка окна
Object Inspector
|
Имя свойства/
Имя события
|
Значение/Действие
|
Выход
|
Events
|
OnClick
|
Close;
|
3.3. Сохранить форму под именем F_Menu.pas.
4. Создать переход с Титульной формы на форму Меню. Для этого нужно перейти на Титульную форму и выполнить следующие действия:
Выделенный объект
|
Вкладка окна
Object Inspector
|
Имя свойства/
Имя события
|
Значение/Действие
|
Продолжить (кнопка)
|
Events
|
OnClick
|
U_Menu.ShowModal;
Кроме того, нужно описать в модуле F_Title.pas внешнее имя F_Menu, разместив его в блоке реализации (implementation):
uses F_Menu;
|
5. Сохранить выполненный проект (File, Save All). Запустить программу на выполнение и проверить правильность ее работы:
- перейти с Титульной формы на форму Меню;
- выйти из проекта.
6. Создание формы помощи (U_Instr)
6.1. Командой File, New, Other открыть окно New Items, при помощи которого можно создать новую форму.
На вкладке Forms выбрать форму Tabbed pages. Появится стандартное окно новой формы Tabbed Notebook Dialog.

Вызвать и рассмотреть список объектов, содержащихся на форме.
Форма построена на основе компоненты TPageControl и содержит несколько перекрывающих друг друга панелей класса TTabSheet. Каждая вкладка может содержать свой набор помещенных на нее компонентов. Чтобы на этапе конструирования добавить новую панель или выбрать ранее вставленную, надо щелкнуть на объекте правой кнопкой мыши и выбрать New Page (новая панель), Next Page (следующая панель) или Previous Page (предыдущая панель). Смена панелей идет циклически.
6.2. Удалить объекты-кнопки OK и Help.
6.3. Заменить название кнопки Cancel на Выход и установить для нее действие Close;
6.4. Изменить название формы, для чего в Object Inspector откройте список объектов, выбрать PagesDlg1:
Выделенный объект
|
Вкладка окна
Object Inspector
|
Имя свойства/
Имя события
|
Значение/Действие
|
PagesDlg1
|
Properties
|
Caption
|
Помощь
|
Name
|
U_Instr
установка имени формы, под которым компонент будет известен программе.
|
6.5. Дать страницам названия Правила работы, Тематика теста, Авторские права, для этого в свойстве Caption замените соответственно TabSheet1, TabSheet2, TabSheet3.
6.6. Заполнить страницы формы Tabbed Notebook Dialog текстом инструкции, для чего на каждую страницу добавьте экземпляр компонента Memo из вкладки Standard палитры компонентов.
Для ввода текста в объект Memo щелкнуть на кнопке с тремя точками свойства Lines. В появившемся окне встроенного редактора ввести необходимый текст.
Для того чтобы вставленный объект совпадал по цвету с формой, выполните следующие действия:
Выделенный объект
|
Вкладка окна
Object Inspector
|
Имя свойства/
Имя события
|
Значение/Действие
|
Memo
|
Properties
|
Color
|
clBtnFace
Установка значения свойства для совпадения по цвету с фоном формы.
|
Ct3D
|
False
Установка значения свойства отмены трехмерного эффекта объекта.
|
BorderStyle
|
bsNone
Установка значения свойства отмены рамки.
|
Font
|
Установка значения свойства выбор нужного шрифта.
|
Alignment
|
Установка значения свойства выравнивания текста.
|
6.7. Сохранить созданную форму под именем F_Instr.pas.
6.8. Создать переход с формы Меню на форму Помощь. Для этого перейти на форму Меню, установить курсор на опцию Помощь, щелкнуть мышью и внести изменения в процедуру обработки:
Выделенный объект
|
Вкладка окна
Object Inspector
|
Имя свойства/
Имя события
|
Значение/Действие
|
Помощь
(опция)
|
Events
|
OnClick
|
U_Instr.ShowModal;
Кроме того, описать в модуле F_Menu.pas внешнее имяF_Instr, разместив его в блоке реализации
(implementation):
uses F_Instr;
|
6.9. Сохранить выполненную работу (File, Save All). Запустить программу на выполнение и проверить правильность ее работы:
- перейти с Титульной формы на форму Меню;
- перейти с формы Меню на форму Помощь;
- выйти из проекта.
7. Создать форму Тестирование (U_Test)
7.1. Построить форму Тестирование на основе стандартной формы Tabbed Notebook Dialog и включить в нее 5 вопросов (5 вкладок TtabSheet).
Пример теста по географии:
1) За начало отсчета географической долготы места принят:
- Экватор
- Меридиан 180 '
- Нулевой меридиан
- Северный полюс
2) Линии, соединяющие на климатических картах точки с одинаковым атмосферным давлением, называются:
- Горизонталями
- Изометмами
- Изобарами
- Изогиетами
3) Артезианскими называются воды:
- Почвенные
- Грунтовые
- Межпластовые ненапорные
- Межпластовые напорные
4) Основным географическим следствием шарообразной формы Земли являются:
- Смена дня и ночи
- Смена времени года
- Широтная зональность
- Высотная поясность
5) Образование пояса низкого атмосферного давления в экваториальных широтах обусловлено прежде всего:
- Низкими температурами воздуха
- Высокими температурами воздуха
- Деятельностью циклонов
- Деятельностью антициклонов
7.2. Самостоятельно создать форму Тестирования и переход на нее из формы Меню. Для этого повторить все шаги, которые были сделаны при создании формы Помощь (см. пункт 6). Сохранить созданную форму под именем F_Test.pas.
7.3. Для правильного контроля выполнения тестирования сделайте так, чтобы последовательно были доступны сначала только первый вопрос, затем только второй и т.д. Для этого предусмотреть дополнительную кнопку завершения тестирования каждого вопроса.
7.4. Сохранить выполненную работу (File, Save All). Запустить программу на выполнение и проверить правильность ее работы:
- перейти с Титульной формы на форму Меню;
- перейти с формы Меню на форму Тестирования;
- выполнить тестирования;
- выйти из проекта
7.5. Для подсчета результата введем переменную Ball, которую необходимо объявить в разделе Var формы Результат. Внести изменения в программу для подсчета баллов.
8. Создать форму Результат (U_Res)
Форма Результат должна содержать оценку тестирования и кнопку Выход.
8.1. Самостоятельно создать форму Результат и переход на нее из формы Меню. Для этого повторите все шаги, которые были сделаны при создании формы Помощь (см. пункт 6).
8.2. Сохранить созданную форму под именем F_Res.pas.
8.3. Создать переход с формы Меню на форму Результат. Для этого нужно перейти на форму Меню и установить курсор на опции Результат, щелкнуть мышью и внести изменения в процедуру обработки:
Выделенный объект
|
Вкладка окна
Object Inspector
|
Имя свойства/
Имя события
|
Значение/Действие
|
Результат
(опция)
|
Events
|
OnClick
|
U_Res.Label1.Caption:='Ваш результат: '+ IntToStr(Ball);
U_Res.ShowModal;
Кроме того, нужно описать в модуле F_Menu.pas внешнее имяF_Res, разместив его в блоке реализации (implementation):
uses F_Res;
|
9. Проверьте правильность работы программы.
Задание для самостоятельного выполнения
|
Задание
|
1
|
Дополните программу разделом "Содержание изучаемой темы".
|
2
|
Внесите изменения в программу так, чтобы вначале запрашивалось Имя тестируемого, которое выводилось бы на экран при выдаче результата прохождения теста.
|
3
|
Для наглядности вывести результат разным цветом.
|
4
|
Усовершенствуйте программу, введя в раздел описания массив констант с номерами правильных ответов, а в программе только сравнивайте индекс переключателя со значением константы.
|
5
|
Ввести дополнительную кнопку Повторить, которая позволяет повторно выполнить задание, указав новое имя.
|
6
|
Создайте тестирующую программу по истории, литературе, математике или какому-либо другому предмету. Тест должен содержать не менее 4 разделов, каждый из которых должен включать не менее 15 вопросов.
|
|