Введення й виведення даних


Lazarus. ВВІД І ВИВІД ДАНИХ
Будь-яка програма в своїй роботі використовує якісь вихідні дані.
Для організації введення даних можна використовувати компонент форми TEdit (поле введення), для виведення результатів – Label компонент (поле виведення).
Інший спосіб організації введення і виведення даних - використання вбудованих діалогових вікон InputboxShowmessage. Ці діалогові вікна не встановлюються програмістом на форму під час розробки. Оператори їх активації потрібно вставляти в програмний код.
Більш докладно зупинимося на другому способі.
Ввід даних
Функція InputBox () виводить на екран діалогове вікно, в якому можна ввести дані. Аргументами цієї функції є три рядки, а значенням функції - рядок введена користувачем.
У загальному вигляді рядок програмного коду з використанням функції InputBox виглядає так:
Змінна: = InputBox ( 'Заголовок', 'Підказка', 'Значення за замовчуванням');
де:
Змінна - змінна рядкового типу, значення якої повинно бути отримано від користувача;
Заголовок - текст заголовка вікна;
Підказка – текст, який пояснює зміст повідомлення;
Значення за замовчуванням - текст, який буде знаходитися в полі введення, коли вікно з'явитися на екрані.
Наприклад,
n: = InputBox ( Введення числа ',' Введіть число: ',' ');
Результат показаний на рисунку:
Якщо користувач клацне по кнопці ОК, то значенням функції стане рядок, введений користувачем в текстове поле. Якщо користувач клацне по кнопці Скасувати, то значенням функції стане рядок «Значення за замовчуванням».
Значення функції InputBox завжди рядкового типу (String), тому в разі, якщо потрібно ввести число, то введений рядок повинна бути перетворений в число за допомогою відповідної функції перетворення.
Як приклад візьмемо завдання перерахунку ваги з фунтів в кілограми
Введення вихідних даних з вікна введення і подальше перетворення даних може виглядати так:
funtStr:= InputBox(‘Фунти-кілограми’,’Введіть вагу в фунтах:’,’ ‘);
funtFloat:=StrToFloat(funtStr);

Вивід даних
Результат роботи програми найчастіше виводять у вікно повідомлення ShowMessage, або в поле виведення (компонент Label).
Вивід у вікно повідомлення ShowMessage
Для виведення результату використовується процедура ShowMessage (). Вона виводить на екран діалогове вікно з текстом з командною кнопкою OK.
Загальний вигляд інструкції виклику процедури ShowMessage:
ShowMessage ('Повідомлення');
де Повідомлення - текст, який буде виведений у вікні.
Наприклад, для того щоб вивести результат в програмі перерахунку ваги з фунтів в кілограми, можна додати такий рядок коду:
ShowMessage(‘Вага в кілограмах: ‘+ FloatToStr(kg));
Результат показано на рисунку.

Вивід в поле виведення (Label)
Компонент TLabel (Поле виведення), в який буде здійснюватися вивід, встановлюють на формі під час розробки. Вміст цього поля визначається значенням властивості Caption.
Для того щоб вивести результати в це поле, потрібно в програмному коді помістити оператор присвоювання, який буде змінювати значення властивості Напис на потрібне вам значення.
Наприклад, для того щоб вивести результат в поле виведення Label1 в розглянутій вище задачі, потрібно використовувати наступний оператор:
Label1.Caption:=FloatToStr(kg) + ‘кг‘;

Практична робота №1
Завдання. Помістити на форму дві кнопки: Введення даних і Вихід. Користувач повинен ввести прізвище, ім'я та вік. Для введення даних використовувати функцію InputBox. Після закінчення введення анкетні дані вивести в поле (КОМПОНЕНТ виведення Label).


Хід виконання
1. Створити новий проект. Папку проекту назвати Анкетні дані.
2. Розмістити на формі дві кнопки і напис так, як показано на малюнку вище.
3. Написати програмний код для кнопки Введення даних.
 procedure TForm1.Button1Click(Sender: TObject);
begin
        label1.Caption:=InputBox('Ввід анкетних даних', 'Введіть прізвище, ім’я, вік:','');
end;
4. Написати програмний код для кнопки Вихід
procedure TForm1.Button2Click(Sender: TObject);
begin
        Close;
end;
5. Зберегти проект. Перевірити роботу програми.
Після клацання на кнопці Введення даних має з'явитися діалогове вікно. Введіть в нього вихідні дані.
Після натискання на клавішу Enter введені дані повинні відобразитися на формі. Результат показаний на рисунку.
На цьому уроці ми розглянули способи організації введення і виведення даних в середовищі Lazarus. Для введення даних ми використовували діалогове вікно InputBox, для виведення - діалогове вікно ShowMessage і компонент форми TLabel (Поле виведення).
Компонент TLabel встановлюється на формі під час розробки, діалогові вікна виводяться в окремому вікні під час виконання програми, не займають місце на формі. Для їх виведення потрібен відповідний програмний код.

Комментариев нет:

Отправить комментарий