1.4. Создание программы
Создадим программу, показанную на рисунке 4.0, предназначенную для осуществления вычислений по выбранной формуле:
Рис 4.0
Последовательность действий:
Поместим на форму кнопки типа Button (вкладка Standard палитры компонентов) и BitBtn (вкладка Additional палитры компонентов), два компонента Edit, четыре компонента Label, один компонент ComboBox и один ListBox (со вкладки Standard).
Назначте кнопке Button1 надпись Вычислить,
Для того, чтобы кнопка BitBtn осуществляла операцию закрытия программы следует в её свойстве Kind установите значение bkClose или на странице Events щёлкните дважды на событии OnClick и наберите в операторных скобках begin - end
Begin
Close;
End;
Где Close - стандартный метод завершения всех программ. В данном случае он закрывает форму и завершает приложение.
Придайте полям Edit1 и Edit2 нужные размеры и откорректируйте местоположение. Теперь вернёмся в Инспектор объектов, удалите в их свойстве Text ненужное значение Edit1, и содержимое окна редактора на форме очистится
ComboBox представляет собой раскрывающийся список выбора, в котором значение можно либо выбрать из списка, либо задать самому, а ListBox - обычный список выбора; предопределённые значения в списки задаются в свойстве Items, имеющим строковый тип. Их ввод осуществляется в StringListEditor. (рис 4.1)
Рис 4.1.
Зададим компоненту ComboBox в свойство Items значения 1, 2, 3, 4, 5, а компоненту ListBox A+B, A-B, A*B.
Попробуйте поэкспериментировать со свойством Font у различных компонентов (Label, ListBox и т.д.).
Теперь напишем процедуру вычисления для кнопки Button1:
begin
if ListBox1.ItemIndex=0 then
Result.Text:=FloatToStr(StrToFloat(A.Text)+StrToFloat(ComboBox1.Text))
else
if ListBox1.ItemIndex=1 then
Result.Text:=FloatToStr(StrToFloat(A.Text)-StrToFloat(ComboBox1.Text))
else
if ListBox1.ItemIndex=2 then
Result.Text:=FloatToStr(StrToFloat(A.Text)*StrToFloat(ComboBox1.Text));
end;
2. Контрольные вопросы.
1. Какие типы файлов используются в Delphi - проекте?
2. Основные назначения каждого типа файлов в Delphi - проекте.
3. Охарактеризуйте обобщенную структуру Delphi - проекта?
4. Как загрузить в систему созданный ранее проект?
5. Как создать проект?
6. Как установить параметры компиляции проекта?
3. Задание к выполнению лабораторной работы.
1. Ознакомится с описанием лабораторной работы.
2. Написать программу согласно своему варианту.
3. Выполнить программу на ЭВМ и получить результат.
4. Оформить отчёт.
4. Варианты заданий.
Спроектировать программу вычисления;
1 |
C=A-B |
C=A+B |
2 |
C=A*B |
C=B-A |
3 |
C=A2+B |
C= A-B3 |
4 |
C=2A+2B |
C=(A+B)*(A-B) |
5 |
C= |
|
Лабораторная работа №4.