Практическая работа №10 «Разработка проекта тест по физике»
|
Постановка задачи Создать программу, выполняющую следующие действия. После запуска программы появляется изображение аналогичное рисунку. Пользователь, перемещаясь с помощью клавиш-стрелок по левому списку "Физических величин", выбирает любое слово, нажав клавишу Enter. Затем пользователь переходит в правый список "Названий физических величин" и выбирает соответствующее название ранее выбранной физической величины.
|
Если выбрано правильное название величины, то под словом “ОЦЕНКА” появляется одобрительная реплика: Правильно, если выбрано неправильное слово, то - Ошибка. Снова можно выбрать физическую величину и найти ей правильное название до тех пор, пока не будет найдено соответствие всех физических величин и их названий.
Новым в этой работе является:
|
Общие положения
Delphi – интегрированная среда разработки ( IDE– Integrated Development Environment), используемая для создания и поддержки приложений, которые могут работать под любой 32 разрядной операционной системой типа Windows 95, 98, 2000, NT.
Delphi дает возможность создавать программы в стиле визуального конструирования, т.е. пользователь оформляет свою будущую программу, и видит результаты своей работы еще до запуска самой программы.
Это довольно легкая в изучении среда, и в то же время довольно сложная.
Delphi имеет пользовательский графический интерфейс, подобный Visual Basic и C++. На данный момент множество фирм приняло за стандарт данный интерфейс для собственных приложений.
Весь исходный текст программ на Delphi пишется на языке Object Pascal, практически ничем не отличающимся от принципов, заложенных в Turbo Pascal. Синтаксис, принцип модуля, процедуры, функции, все взято за основу.
Процесс написания приложения разделяется на две части:
Первая часть - программист располагает на окна своей программы необходимые элементы, позиционирует их, устанавливает нужные размеры, меняет свойства;
Вторая часть - собственно, написание программного кода, описание свойств элементов, доступных только во время работы приложения, описание реакций на событие появление окна, нажатия на кнопку и др.
План разработки программы, №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(‘ Тест окончен! ‘ ); |