Хід лабораторної роботи. 1. Завантажити середовище візуального програмування Delphi

1. Завантажити середовище візуального програмування Delphi.

2. Задати властивості форми: Caption, Height, Width, Color.

3. Вставити у форму три текстових поля: Label1, Label2, Label3, (рис.7).

4. Вставити у форму багаторядкове поле редагування (об’єкт Memo). Для цього необхідно обрати закладку Standard палітри компонентів і двічі клацнути мишею на піктограмі Memo. Для властивості Lines потрібно витерти значення Memo1.

5. Вставити у форму комбінований список (об’єкт ComboBox). Для цього необхідно обрати закладку Standard палітри компонентів і двічі клацнути мишею на піктограмі ComboBox. Очистити поле властивості Text компонента ComboBox1. У діалогове вікно властивості Items ввести назви трьох міст на вибір.

6. Вставити у форму один об’єкт типу Edit: Edit1 (рис.7). Очистити поле редагування Edit1.

7. Вставити у форму кнопки - об’єкти типу Button з назвами Button1 і Button2 (рис.7).

8. Змінити заголовки Caption на об’єктах типу Label, Button (рис.8).

Рис.7 Рис.8

9. Запрограмувати кнопки Button1 і Button2. Процедури матимуть такий вигляд:

Procedure TForm1.Button1Click (Sender: TObject);

Var

b,kol,sum: real;

{b – вартість квитку в залежності від напрямку; kol – кількість квитків; sum – загальна сума}

Begin

Memo1.Text:=’ ‘;

if ComboBox1.Text=’Львів’ then b:=115.5;

if ComboBox1.Text=’Дніпропетровськ’ then b:=130.75;

if ComboBox1.Text=’Бровари’ then b:=30.5;

kol:= StrToFloat (Edit1.Text);

sum:=b*kol;

Memo1.Lines.Add(‘Напрямок: ’+ComboBox1.Text);

Memo1.Lines.Add(‘Загальна сума: ’);

Memo1.Lines.Add(FloatToStr(sum)+’ грн.‘);

end;

Procedure TForm1.Button2Click (Sender: TObject);

Begin

Close;

end;

10. Зберегти створену програму у своїй власній папці.

11. Виконати створену програму. Для переривання роботи програми у випадку неправильного введення вхідних даних необхідно виконати пункт головного меню Run => Program Reset.

12. Створити exe - файл програми. Закрити Delphi і запустити створену програму.

Контрольні запитання

1. Як задати спільні властивості для групи об’єктів?

2. Як вставити у форму багаторядкове поле редагування Memo?

3. Як у багаторядковому полі задати наявність смуг прокручування?

4. Які властивості багаторядкового поля редагування ви знаєте?

5. Як вставити у форму комбінований список ComboBox?

6. Які властивості має комбінований список?

Поиск по сайту: