Теоретичні відомості
Об’єкт Edit використовують для введення користувачем рядка символів з клавіатури та для виведення результатів. У разі необхідності для перетворення одержаного рядка (властивість Text) у число і навпаки використовують стандартні функції Delphi StrToFloat та FloatToStr.
Об’єкти RadioButton використовують для створення у формі засобу для вибору однієї альтернативної можливості серед декількох. Основні властивості даного об’єкту: Checked (стан перемикача), TabOrder (порядок вибору об’єкта клавішею Tab).
Хід лабораторної роботи
Завантажити середовище візуального програмування Delphi.
Задати властивості форми: Caption, Height, Width, Color.
Вставити у форму два об’єкти типу RadioButton: RadioButton1 та RadioButton2 (рис.5). Для цього необхідно обрати закладку Standard палітри компонентів і двічі клацнути мишею на піктограмі RadioButton.
Вставити у форму три текстових поля : Label1, Label2, Label3, (рис.5).
Вставити у форму два об’єкти типу Edit: Edit1 та Edit2 (рис.5). Для цього необхідно обрати закладку Standard палітри компонентів і два рази клацнути мишею на піктограмі Edit. Очистити поля редагування Edit1 та Edit2. Для цього необхідно вилучити значення властивості Text.
Вставити у форму кнопки - об’єкти типу Button з назвами Button1 і Button2 (рис.5).
Змінити заголовки Caption на об’єктах типу RadioButton, Label, Button (рис.6).
Рис.5 Рис.6
Запрограмувати кнопки 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;
Запрограмувати кнопки 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;
Зберегти створену програму у своїй власній папці.
Виконати створену програму. Для переривання роботи програми у випадку неправильного введення вхідних даних необхідно виконати пункт головного меню Run => Program Reset.
Створити exe - файл програми. Закрити Delphi і запустити створену програму.
Контрольні запитання
Як вставити у форму поле редагування? Які властивості має цей об’єкт?
Чим відрізняється поле редагування від текстового поля?
Яке призначення функцій StrToFloat та FloatToStr?
Опишіть призначення компонента RadioButton? Які властивості цього об’єкта ви знаєте?
Як запрограмувати кнопку?
Де використовується команда Close?