Главная | Регистрация | Вход | RSSПятница, 2025-07-18, 7:58 AM

Наталья Кольникова

Меню сайта
Категории раздела
Интерактивные приложения [3]
Excel [2]
Данный раздел содержит практические и теоретические работы по разделу курса информатики "Excel"
Кумир [3]
Данный раздел содержит информацию по ЯП "Кумир"
Подготовка к ЕГЭ, ОГЭ [0]
различная информация в помощь учащимся при подготовке к экзамену по информатике
Изучаем Delphi [3]
практические работы по ООП в Delphi
Рабочие программы [2]
Путь в школу
Как Ваш ребенок идет в школу?
Всего ответов: 23
Наш опрос
Оцените мой сайт
Всего ответов: 46
Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0

Каталог файлов

Главная » Файлы » Изучаем Delphi

Практическая работа "Создание теста по географии"
[ Скачать с сервера (94.8 Kb) ] 2016-01-03, 8:38 PM

Практическая работа «Создание теста по географии»

  1. Открыть новый проект. 

Работа над проектом состоит из последовательного создания 5 форм:

 

  1. Создать титульную форму 

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. Сохранить выполненный проект (FileSave All). Запустить программу на выполнение и проверить правильность ее работы:

  • перейти с Титульной формы на форму Меню;
  • выйти из проекта.

 

6. Создание формы помощи (U_Instr)

6.1. Командой FileNewOther открыть окно 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 замените соответственно TabSheet1TabSheet2TabSheet3.

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. Сохранить выполненную работу (FileSave 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 вопросов.

 

Категория: Изучаем Delphi | Добавил: talix82
Просмотров: 2792 | Загрузок: 68 | Рейтинг: 0.0/0
Всего комментариев: 0
avatar
Вход на сайт
Сслыки на сайты
Поиск
Друзья сайта

Кольникова Наталья Сергеевна © 2025
uCoz