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

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

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

3. Вставити у форму два об’єкти типу RadioButton: RadioButton1 та RadioButton2 (рис.5). Для цього необхідно обрати закладку Standard палітри компонентів і двічі клацнути мишею на піктограмі RadioButton.

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

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

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

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

Рис.5 Рис.6

8. Запрограмувати кнопки RadioButton1 і RadioButton2 таким чином, щоб напрямок стрілки показував напрямок переведення одиниць виміру. Процедури матимуть такий вигляд:

Procedure TForm1.RadioButton1Click (Sender: TObject);

Begin

Label1.Caption:=’ => ’;

Edit1.SetFocus; {активізувати поле Edit1}

end;

Procedure TForm1.RadioButton2Click (Sender: TObject);

Begin

Label1.Caption:=’ <= ’;

Edit2.SetFocus; {активізувати поле Edit2}

end;

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

Procedure TForm1.Button1Click (Sender: TObject);

{переведення миль у кілометри та навпаки}

Var

rez1,rez2:extended;

Begin

if RadioButton1.Checked=True then begin

rez1:= StrToFloat (Edit1.Text);

rez1:=rez1*1.61;

Edit2.Text:= FloatToStr (rez1);

end;

if RadioButton2.Checked=True then begin

rez2:= StrToFloat (Edit2.Text);

rez2:=rez2/1.61;

Edit1.Text:= FloatToStr (rez2);

end;

end;

Procedure TForm1.Button2Click (Sender: TObject);

Begin

Close;

end;

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

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

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

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

1. Як вставити у форму поле редагування? Які властивості має цей об’єкт?

2. Чим відрізняється поле редагування від текстового поля?

3. Яке призначення функцій StrToFloat та FloatToStr?

4. Опишіть призначення компонента RadioButton? Які властивості цього об’єкта ви знаєте?

5. Як запрограмувати кнопку?

6. Де використовується команда Close?

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