Файл: Протокол 9 от 11. 05. 2012 г Омск 2012.doc

3.2. Создать меню с помощью компонента MainMenu, который находится на вкладке Standard палитры компонентов. Теперь необходимо создать его опции.

Дважды щелкнуть на появившейся пиктограмме MainMenu или, выделив объект MainMenu, щелкнуть на кнопке в правой половине строки Items. Появится окно с заголовком Forml.MainMenul

Установите в качестве значения свойства 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_Titul.pas внешнее имя F_Menu, разместив его в блоке реализации (implementation): uses F_Menu ;

---

5. Сохранить выполненный проект (File, Save All). Запустить программу на выполнение и проверить правильность ее работы:

перейти с титульной формы на форму «Меню»;

выйти из проекта.

6. Создать форму «Помощь».

Командой File, New открыть окно New Items (рис. 20), при помощи которого можно создать новую форму.

На вкладке Forms выбрать форму Tabbed pages. Появится стандартное окно новой формы Tabbed Notebook Dialog

Вызвать и рассмотреть список объектов, содержащихся на форме. Форма построена на основе компоненты TPageControl и содержит несколько пере­крывающих друг друга вкладок класса TTabSheet. Каждая вкладка может содержать свой набор помещенных на нее компонентов. Чтобы на этапе конст­руирования добавить новую вкладку или выбрать ранее вставленную, надо щелкнуть на объекте правой кнопкой мыши и выбрать New Page (новая па­нель), Next Page (следующая панель) или Previous Page (предыдущая панель). Смена панелей идет циклически.

2. 
   Удалить объекты-кнопки ОК и Help.
   
3. 
   Заменить название кнопки Cancel на «Выход» и установить для нее действие Close;
   
4. 
   Изменить название формы, для чего поместить на форму объект PagesDlgl и выполнить следующие действия:
   

Выделенный объект	Вкладка окна Object Inspector	Имя свойства/ имя события	Действие
PagesDlgl	Properties	Caption	Установка заголовка формы: «Помощь»
		Name	Установка имени компоненты: U_Instr

5. 
   Дать вкладкам названия «Правила работы», «Тематика теста», «Авторские права», для этого в свойстве Caption заменить значения Tab Sheet 1, TabSheet2, TabSheet3.
   
6. 
   Заполнить страницы формы Tabbed Notebook Dialog текстом инструкции, для чего на каждую страницу добавьте экземпляр компонента Memo из вкладки Standard палитры компонентов. Для ввода текста в объект Memo щелкнуть на кнопке с тремя точками свойства Lines. В появившемся окне встроенного редактора ввести необходимый текст.
   

---

Для того чтобы цвет вставленного объекта совпадал с цветом формы, выполнить следующие действия:

Выделенный объект	Вкладка окна Object Inspector	Имя события	Действие
Memo	Properties	Color	Установка значения свойства clBtnFace для совпадения по цвету с фоном формы
		Ct3D	Установка значения свойства False — отмена трехмерного эффекта объекта
		BorderStyle	Установка значения свойства bsNone — отмена рамки
		Font	Установка значения свойства — выбор нужного шрифта
		Alignment	Установка значения свойства — подходящее выравнивание текста

7. 
   Сохранить созданную форму под именем F_Instr.pas.
   

7. 
   Создать переход с формы «Меню» на форму «Помощь». Для этого перейти на форму «Меню», установить курсор на опцию «Помощь», щелкнуть мышью и внести изменения в процедуру обработки:
   

Выделенный объект	Вкладка окна 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) Образование пояса низкого атмосферного давления в экваториальных широтах обусловлено прежде всего:

а) низкими температурами воздуха;

6) высокими температурами воздуха;

в) циклонами;

г) антициклонами.
Ответ: б.

Создать переход с формы «Меню» на форму «Тестирование».

Сохранить созданную форму под именем F_Test.pas.

Для правильного контроля выполнения тестирования сделать так, чтобы последовательно был доступен сначала только первый вопрос, затем только второй и т. д. Для этого предусмотреть дополнительную кнопку завершения тестирования каждого вопроса.

Сохранить выполненный проект (File

---

, Save All). Запустить программу на выполнение и проверить правильность ее работы:

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

Для подсчета результата ввести переменную Ball, которую необходимо объявить в разделе Var формы «Результат». Внести изменения в программу для подсчета баллов.

• 
  Создать форму «Результат» (дать ей имя U_Res).
  
• 
  Форма «Результат» должна содержать оценку тестирования и кнопку «Выход».
  
• 
  Самостоятельно создать форму «Результат».
  
• 
  Сохранить созданную форму под именем F_Res.pas.
  
• 
  Создать переход с формы «Меню» на форму «Результат». Для этого нужно перейти на форму «Меню» и установить курсор на опции «Результат», щелкнуть мышью и внести изменения в процедуру обработки:
  

Выделенный объект	Вкладка окна Object Inspector	Имя события	Действие
Кнопка «Реpeультат»	Events	OnClick	U Res. Label1. Caption :=' Ваш резуль- тат: '+ IntToStr(Ball) ; U_Res . ShowModal ; Кроме того, нужно описать в модуле F_Menu.pas внешнее имя F_Res, размес- тив его в блоке реализации (implementation) : uses F_Res;

9. Проверить правильность работы программы.

Задание для самостоятельного выполнения

1. 
   Создать тестирующую программу по истории, литературе, математике ли какому-либо другому предмету.
   
2. 
   Дополнить программу разделом «Содержание изучаемой темы».
   
3. 
   Внести изменения в программу так, чтобы вначале запрашивалось Имя естируемого, которое также выводилось бы на экран при выдаче результата рохождения теста.
   

---