Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Практическая работа_Delphi.doc
Скачиваний:
35
Добавлен:
27.10.2018
Размер:
412.67 Кб
Скачать

7.4. Сохраните выполненную работу (File – Save All). Запустите программу на выполнение и проверьте правильность ее работы:

  • Переход с Титульной формы на форму Меню;

  • Переход с формы Меню на форму Тестирования;

  • выполнение тестирования;

  • выход из Тестирования.

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

Создать форму Результат (U_Res).

8.1. Форма Результат должна содержать оценку тестирования и кнопку Выход.

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

Выделенная компонента

Окно инспектора объектов

Имя свойства

Действие

Результат (кнопка)

Events

OnClick

U_Res.Label1.Caption:='Ваш результат: '+ IntToStr(Ball);

U_Res.ShowModal;

Кроме того, нужно описать в модуле F_Menu.pas внешнее имя F_Res, разместив его в блоке реализации (implementation):

uses F_Res;

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

Задание

  1. Создайте тестирующую программу по истории, литературе, математике или какому-либо другому предмету.

  2. Дополните программу разделом "Содержание изучаемой темы".

  3. Внесите изменения в программу так, чтобы в начале запрашивалось Имя тестируемого, которое выводилось бы на экран при выдаче результата прохождения теста.