Разработка лабораторного практикума "Создание тестирующей программы" — страница 10

  • Просмотров 17221
  • Скачиваний 443
  • Размер файла 211
    Кб

реализуется в десять этапов, в каждом из них происходит усложнение задачи. На первом этапе создается заставка, содержащая название тестирующей программы. В качестве примера производится тестирование на знание программы Microsoft Excel из пакета программ Microsoft Office 2000. Необходимо создать проект для запуска заставки тестирующей программы, которая будет отображаться на экране 10 секунд (рис.1). Для этого необходимо задать свойства

компонентов (табл.2), и создать процедуру завершения показа заставки TForm1.Timer1Timer (Приложение 1). Таблица 2 Свойства компонентов Form1 Caption Приглашение к тестированию WindowState максимальное окно Color clGreen Image1 Picture вставка из файла, в котором сохранена копия экрана окна EXCEL Label1 Caption Программа тестирования по пакету Microsoft EXCEL WordWrap True Font Times New Roman, 20 p, полужирный, белый, выровнен по центру Color clGreen Timer1 Interval 5000 Events OnTimer – Close; (закрытие формы) Рис.1.

Задание 1, форма 1 На втором этапе создается проект для запуска вопроса с вводом ответа тестирующей программы (Project2, Unit2.pas, Form2). Пример проекта приведен на рис.2. Рис.2. Проект второго этапа Таблица 3 Свойства компонентов Form2 Caption Вопрос с вводом ответа WindowState нормальное окно Color clInfoBk Label1 Caption Текст вопроса WordWrap True Font Times New Roman, 16 p, полужирный, синий, выровнен по центру, на белом фоне Edit1 Font Times New Roman, 16 p, красный Button2 (Exit) процедура закрытия

формы Button1 (OK) обработка введенного ответа Для этого необходимо задать свойства компонентов (табл.3), и создать процедуру проверки правильности ответа на вопрос TForm2.Button1Click (Приложение 1). На форме показывается вопрос, и в поле ввода ожидается ответ. После ввода ответа происходит его передача в переменную S (блок 2), перевод всех букв в верхний регистр, и проверка этой переменной (блок 3). Если введенный ответ совпадает с правильным, то

происходит вывод сообщения о правильности ответа (блок 5), и закрытие формы (блок 6). Иначе происходит вывод сообщения о том, что ответ неверен (блок 4). На форме также присутствует кнопка Exit, которая позволяет прервать работу программы и выйти в систему (кнопка выхода). На третьем этапе необходимо создать проект для запуска заставки, а затем через 10 сек вопроса с вводом ответа (Project3, Unit1.pas, Unit2.pas). Для этого необходимо открыть первый

проект, добавить в него модуль Unit2 из проекта 2. В коде модуля Unit1 необходимо в разделе описания модулей добавить второй модуль (Unit2), а в процедуре Timer1Timer убрать команду Close, вместо которой необходимо отключить таймер, сделать первую форму невидимой, и активизировать вторую форму (Приложение 1 и 2). А также в коде модуля Unit2 вместо Close необходимо ввести команду Application.Terminate (блок 2). На четвертом этапе нужно создать проект для вопроса с