 |
АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомДругоеЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция
Практическая работа №8
Разработка проекта ТЕСТ ПО ФИЗИКЕ
Постановка задачи
Создать программу, выполняющую следующие действия.
| После запуска программы появляется изображение аналогичное рисунку. Пользователь, перемещаясь с помощью клавиш-стрелок по левому списку "Физических величин", выбирает любое слово, нажав клавишу Enter. |
Затем пользователь переходит в правый список "Названий физических величин" и выбирает соответствующее название ранее выбранной физической величины.
Если выбрано правильное название величины, то под словом “ОЦЕНКА” появляется одобрительная реплика: Правильно, если выбрано неправильное слово, то - Ошибка. Снова можно выбрать физическую величину и найти ей правильное название до тех пор, пока не будет найдено соответствие всех
физических величин и их названий.
| Новым в этой работе является: · взаимодействие двух списков ListBox на основе свойств Items и ItemIndex, · создание многострочных надписей в компоненте Label. |
План разработки программы, №8
1. Открыть новый проект.
2. Разместить в форме компоненты в соответствии с рисунком и присвоить заголовки меткам. Обратите внимание, что заголовки меток Физическая величина и Название величины состоят из двух строк и отцентрированы.
Для вывода многострочных надписей в Label задайте:
| Выделенный объект | Вкладка окна Object Inspector | Имя свойства/ Имя события | Значение/Действие |
| Label1 | Properties | AutoSize (изменение размера в зависимости от текста в Caption) | False |
| WordWrap (разрыв строки) | True | ||
| Height Width | Установить подходящие размеры | ||
| Alignment (выравнивание текста) | taCenter |
3. Установить кнопку выхода из программы:
| Выделенный объект | Вкладка окна Object Inspector | Имя свойства/ Имя события | Значение/Действие |
| BitBtn1 | Properties | Caption | &Выход |
| Kind | bkCancel | ||
| Events | BitBtn1Click | Close; |
4. Сохранить код программы и проект под именами, например, Unit8.pas и Pr8.dpr.
5. Запустить программу, затем закрыть окно проекта кнопкой Выход.
6. Выделить ListBox1, в Object Inspector найти свойство Items, справа от него нажать на кнопку с тремя точками. В появившемся окне встроенного редактора ввести физические величины, каждую на новой строке:
| Ватт Ом Вольт Ампер |
Сохраните набранный текст под именем Fiz1.txt. Для этого нажмите правую клавишу мыши и выберите режим Save. Для выхода из встроенного редактора нажмите клавишу OK.
7. Выделить Listbox2 и проделать с ним аналогичную работу, введя названия физических величин:
| Напряжение Сопротивление Сила тока Мощность |
Сохраните набранный текст под именем Fiz2.txt.
8. Выполнить следующие действия:
| Выделенный объект | Вкладка окна Object Inspector | Имя свойства/ Имя события | Значение/Действие |
| 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.
9. Сохранить проект окончательно, запустить и протестировать его.
Поиск по сайту: