Студопедия Главная Случайная страница Обратная связь

Разделы: Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

Постановка задачи




Создать программу, с помощью которой можно выполнить:

После запуска программы появляется изображение аналогичное рисунку 25.2. Пользователь по своему усмотрению выбирает один из переключателей в группе. В зависимости от правильности ответов появляется одно из сообщений «Плохо!», «Удовлетворительно!», «Хорошо!», «Отлично!».

 

Рисунок 25.2

Пояснения: новыми в этой программе являются группа переключателей RadioGroup, компонент CheckBox и компонент Panel на странице палитры компонентов Стандартные (Standard).

План разработки программы

1. Открыть новый проект. Дать имя форме Тест по Delphi.

2. Сохранить проект в отдельной папке под именем Pr6.pas и Project6.dpr

3. Разместить в форме компоненты в соответствии с рисунком 25.3.

Рисунок 25.3

 

4. Выполнить следующие действия:

Выделенная компонента Окно инспектора объектов Имя свойства, события Действие
Label1 Параметры (Properties) Caption С помощью какой клавиши запускают программу?
Autosize False
WordWrap True
Height
Width
Left
Label2 Параметры (Properties) Caption Какое свойство определяет вид компонента BitBtn?
Autosize False
WordWrap True
Height
Width
Left
Label3 Параметры (Properties) Caption Сколько окон можно увидеть после загрузки интерфейса Delphi?
Autosize False
WordWrap True
Height
Width
Left
Label4 Параметры (Properties) Caption Главный модуль представляет собой файл с расширением:
Autosize False
WordWrap True
Height
Width
Left
Label5 Параметры (Properties) Caption С какого слова начинается главный модуль?
Autosize False
WordWrap True
Height
Width
Left
BitBtn1 Параметры (Properties) Kind bkClose
Caption Выход
События (Events) OnClick Close;
CheckBox1 Параметры (Properties) Caption Начало работы
Panel1 Параметры (Properties) Caption Удалить название
RadioGroup1 Параметры (Properties) Caption Удалить название
Columns (количество отображаемых колонок)
Items Вызвать StringListEditor, дважды щелкнув мышкой рядом со свойством Items. Ввести 5 строк: F2 F5 F7 F9 F12 Введенный текст сохранить в файле test1.txt
RadioGroup2 Параметры (Properties) Caption Удалить название
Columns
Items Ввести 5 строк: Caption Color Kind Enabled Name Введенный текст сохранить в файле test2.txt
RadioGroup3 Параметры (Properties) Caption Удалить название
Columns
Items Ввести 5 строк: Введенный текст сохранить в файле test3.txt
RadioGroup4 Параметры (Properties) Caption Удалить название
Columns
Items Ввести 5 строк: .res .exe .dpr .cfg .pas Введенный текст сохранить в файле test4.txt
RadioGroup5 Параметры (Properties) Caption Удалить название
Columns
Items Ввести 5 строк: Unit Program Begin Var Function Введенный текст сохранить в файле test5.txt

 

5. Для суммирования набираемых пользователем баллов выполните следующие действия:

Выделенная компонента Окно инспектора объектов Имя свойства, события Действие
RadioGroup1 События (Events) OnClick Sum:=0; If RadioGroup1.ItemIndex=3 Then Sum:=Sum+1; Пояснение: Индекс первого переключателя равен 0. Правильный ответ содержит переключатель с меткой F9, имеющий индекс 3.

 

Переменную Sum необходимо объявить в разделе Var перед разделом implementation.

 

6. Вставьте в обработчик событий RadioGroup2Click, RadioGroup3Click, RadioGroup4Click, RadioGroup5Click аналогичные коды, с учетом правильных ответов, но без обнуления переменной Sum, так как оно необходимо лишь один раз перед началом суммирования.

 

7. Выведем на контрольную панель итоговое сообщение в зависимости от набранной суммы баллов.

Выделенная компонента Окно инспектора объектов Имя свойства, события Действие
RadioGroup5 События (Events) OnClick Case Sum of 0..2:Panel1.Caption:=’Плохо!’; 3:Panel1.Caption:=’Удовлетворительно!’; 4:Panel1.Caption:=’Хорошо!’; 5:Panel1.Caption:=’Отлично!’; End;

 

8. Вывести сообщение об окончании тестирования, добавив в обработчик событий RadioGroup5Click код:

ShowMessage (‘Конец теста!’);

 

9. Сохранить проект окончательно, запустить и протестировать его.


Поможем в написании учебной работы
Поможем с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой





Дата добавления: 2015-10-01; просмотров: 391. Нарушение авторских прав; Мы поможем в написании вашей работы!

Studopedia.info - Студопедия - 2014-2022 год . (0.024 сек.) русская версия | украинская версия
Поможем в написании
> Курсовые, контрольные, дипломные и другие работы со скидкой до 25%
3 569 лучших специалисов, готовы оказать помощь 24/7