3. Дополнительные задания
Изменить интерфейс программы: шрифты, цвет экрана и букв.
Сделать так, чтобы когда курсор мыши находится в поле ListBox1, появлялась подсказка о том, что надо сделать (см. задание №2 урока Современные программные средства).
Разместите на форме кнопку Выход.
Задание №2 Тест по физике
1. Постановка задачи
Создать программу, с помощью которой можно выполнить:
После запуска программы появляется изображение аналогичное рисунку 23.6. Пользователь, перемещаясь с помощью клавиш-стрелок по левому списку "Физических величин", выбирает любое слово, нажав клавишу Enter. Затем пользователь переходит в правый список "Названий величин" и выбирает соответствующее название ранее выбранной физической величины. Если выбрано правильное название величины, то под словом “ОЦЕНКА” появляется одобрительная реплика: Правильно, если выбрано неправильное слово, то - Ошибка. Снова можно выбрать физическую величину и найти ей правильное название до тех пор, пока не будет найдено соответствие всех физических величин и их названий (рис.23.6).
Рисунок 23.6
Пояснение. Новым в этой программе является взаимодействие двух списков ListBox на основе свойств Items и ItemIndex; окно сообщений ShowMessage.
2. План разработки программы
Открыть новый проект. Дать название форме Тест по физике.
Разместить в форме компоненты в соответствии с рисунком 23.7 и присвоить заголовки меткам. Обратите внимание, что заголовки меток Физическая величина и Название величины состоят из двух строк и отцентрированы. Свойству Kind кнопки BitBtn1 задайте значение bkCancel.
Рисунок 23.7
Сохранить проект в отдельной папке под именем, например, Pr4.pas и Project4.dpr
Запустить программу, затем закрыть окно проекта кнопкой Выход.
Выделить ListBox1, в окне Инспектора объектов (Object Inspector) найти свойство Items, справа от него нажать на кнопку с тремя точками. В появившемся окне встроенного редактора ввести физические величины, каждую на новой строке:
Ватт
Ом
Вольт
Ампер
Сохраните набранный текст под именем Fiz1.txt. Для этого нажмите правую клавишу мыши и выберите режим Save. Для выхода из встроенного редактора нажмите клавишу OK.
Выделить ListBox2 и проделать с ним аналогичную работу, введя названия физических величин:
Напряжение
Сопротивление
Сила тока
Мощность
Сохраните набранный текст под именем Fiz2.txt.
Выполнить следующие действия:
Выделенная компонента |
Окно инспектора объектов |
Имя свойства |
Действие |
ListBox1 |
Events |
OnKeyPress |
If key=#13 then Num1:=ListBox1.ItemIndex; |
ListBox2 |
Events |
OnKeyPress |
If key=#13 then begin case ListBox2.ItemIndex of 0: Num2:= 2; 1: Num2:= 1; 2: Num2:= 3; 3: Num2:= 0; end; if Num1=Num2 then begin Label4.Caption:='Правильно'; CountR:=CountR+1 end Else Label4.Caption:= 'Ошибка'; if CountR=5 then ShowMessage(‘ Тест окончен! ‘ ); |
В разделе Var переменные Num1, Num2 и CountR объявите как целочисленные перед разделом implementation.
Сохранить проект, запустить и протестировать его.