Основне меню  

   

Реклама  

Скачуйте відеуроки для створення сайту за допомогою SMS Joomla 

реклама

 

 

   

Ми в Facebook  

Калькулятор расчета пеноблоков смотрите на этом ресурсе
Все о каркасном доме можно найти здесь http://stroidom-shop.ru
Как снять комнату в коммунальной квартире смотрите тут comintour.net
   

Реклама в мережі  

   

Статистика  

Користувачі
1
Статті
184
Перегляди статей
862365
   

Пошук по сайту  

   

Ми знаходимось тут  

   

Посібник Delphi  

ДОСТУПНИЙ ВИКЛАД,

ЦІКАВІ ПРИКЛАДИ, ВИХІДНІ КОДИ.

ЦІНА ДИСКА З МАТЕРІАЛАМИ - 500 грн. 

Якщо ваша карта обслуговується ПриватБанком тоді переведіть потрібну суму через Приват24 на карту    5168 7573 0556 9925 або натисніть на посилання "Перейти до оплати", щоб здійснити миттєвий платіж без комісії. Перейти до оплати!

 Звертайтесь за адресою еmail:kuzbyt@ukr.net

 
   

Посібник по C#  

 Вивчаємо сучасну мову  програмування C# 7.0

ПРОГРАМУЄМО в VISUAL STUDIO 2017

ЦІНА ДИСКА З МАТЕРІАЛАМИ - 1000 грн. 

Якщо ваша карта обслуговується ПриватБанком тоді переведіть потрібну суму через Приват24 на карту    5168 7573 0556 9925 або натисніть на посилання "Перейти до оплати", щоб здійснити миттєвий платіж без комісії. Перейти до оплати!

 Звертайтесь за адресою еmail:kuzbyt@ukr.net

 
   

Випадкове фото  

   

Наш відеоканал  

   

Відвідування сайту  

Яндекс.Метрика

 

   

Відеокурс по С++  

   

Рекомендуємо:  

   

Будь-яка програма в своїй роботі використовує якісь вихідні дані.

Для організації введення даних можна використовувати компонент форми TEdit (поле введення), для виведення результатів – Label компонент (поле виведення).

Інший спосіб організації введення і виведення даних - використання вбудованих діалогових вікон Inputbox, Showmessage. Ці діалогові вікна не встановлюються програмістом на форму під час розробки. Оператори їх активації потрібно вставляти в програмний код.

Більш докладно зупинимося на другому способі.

 Ввід даних

Функція 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 встановлюється на формі під час розробки, діалогові вікна виводяться в окремому вікні під час виконання програми, не займають місце на формі. Для їх виведення потрібен відповідний програмний код.

 

Коментарі  

# TyroneVot 23.09.2018, 00:32
cialis online cialis from usa pharmacy cialissi.com
tadalafil 20 mg mexico http://cialissi.com/
cialis http://cialissi.com/
Cialis canada
cialis tadalafil tadalafilhow does cialis affect a womancombinaison viagra cialisbuy cheap cialis soft on the netcialis storiesprescription for cialis softdaily cialis vs viagra
http://integrityautogroup.org/__media__/js/netsoltrademark.php?d=cialissi.com
Відповісти | Відповісти цитуючи | Цитата
# TyroneVot 23.09.2018, 02:01
buy cialis online cialis 20mg use cialisvi.com
generic for cialis 20mg http://cialisvi.com/
purchasing cialis on the internet reviews http://cialisvi.com/
buy cialis
viagra im vergleich zu cialisstatut magasinier sp cialiscialis generic identifycialis absorptioncialis genericocialis online pharmacy indiavardenafil cialis comparehow does cialis wor
http://sex-anuncio.com/__media__/js/netsoltrademark.php?d=cialisvi.com
Відповісти | Відповісти цитуючи | Цитата
# TyroneVot 23.09.2018, 03:31
cialis cialis tadalafil 10mg cialissi.com
cialis from usa pharmacy http://cialissi.com/
cialis 20 mg http://cialissi.com/
buy cials online
viagra and cialis on saleviagra cheaper than cialis1cheap generic cialisalternatief voor cialisbetter viagra cialiscialis feel new againyoung men cialis
http://adautoauction.com/__media__/js/netsoltrademark.php?d=cialissi.com
Відповісти | Відповісти цитуючи | Цитата
# TyroneVot 23.09.2018, 03:38
generic cialis online buy cialis online no prescription cialisonla.com
buy cialis delhi http://cialisonla.com/
cialis 20 mg best price broomfield http://cialisonla.com/
Cialis canada
qual eo melhor viagra ou cialiscialis erection peniscanada levitra cialis viagracialis user forumwat is generieke cialis
http://southern-agricultural.com/__media__/js/netsoltrademark.php?d=cialisonla.com
Відповісти | Відповісти цитуючи | Цитата
# DouglasAnows 26.10.2018, 20:06
canada drugs online canadian pharcharmy online canadianpharmacyonli.com
online pharmacies http://canadianpharmacyonli.com/
global pharmacy canada http://canadianpharmacyonli.com/
northwest pharmacies
http://tradingdogs.com/__media__/js/netsoltrademark.php?d=canadianpharmacyonli.com
drugstore online
http://xn--h1acdfggnhdg.xn--p1ai/bitrix/redirect.php?event1=&event2=&event3=&goto=http://canadianpharmacyonli.com/
online drug store
Відповісти | Відповісти цитуючи | Цитата
# DouglasAnows 26.10.2018, 20:27
canada pharmacies online prescriptions canadian drugs canadianpharmacytousa.com
drugs for sale http://canadianpharmacytousa.com/
pharmacy canada reviews http://canadianpharmacytousa.com/
drugstore online
http://touriosity.com/__media__/js/netsoltrademark.php?d=canadianpharmacytousa.com
most reliable canadian online pharmacies
http://kinosklad.ru/bitrix/rk.php?goto=http://canadianpharmacytousa.com/
pharmacy canada best
Відповісти | Відповісти цитуючи | Цитата
# DouglasAnows 26.10.2018, 21:46
canada pharmacy online northwest pharmacies mail order canadianpharmacyonli.com
canadian online pharmacies legitimate http://canadianpharmacyonli.com/
canadian medications pharmacy http://canadianpharmacyonli.com/
online canadian pharmacy
http://tradingdogs.com/__media__/js/netsoltrademark.php?d=canadianpharmacyonli.com
trusted pharmacy canada
http://svetovoz.ru/bitrix/rk.php?goto=http://canadianpharmacyonli.com/
canadian government approved pharmacies
Відповісти | Відповісти цитуючи | Цитата
# DouglasAnows 27.10.2018, 09:02
canadian online pharmacy canadian medications online canadianpharmacytousa.com
online pharmacy canada http://canadianpharmacytousa.com/
most reliable canadian pharmacies http://canadianpharmacytousa.com/
drugstore online india
http://touriosity.com/__media__/js/netsoltrademark.php?d=canadianpharmacytousa.com
canadian pharmacies
http://xn----itbvodfh.xn--p1ai/bitrix/rk.php?goto=http://canadianpharmacytousa.com/
canadian pharmacy no prescription
Відповісти | Відповісти цитуючи | Цитата
# Princess 28.10.2018, 15:23
I appreciate, cause I found exactly what I was looking for.
You've ended my four day lengthy hunt! God Bless you man. Have a great day.
Bye

my blog post - visit this web-Site: https://twitter.com/
Відповісти | Відповісти цитуючи | Цитата

Додати коментар

Захисний код
Оновити

   

Поділіться з друзями

 
   

Сайт для перевірки своїх знань з програмування на сайті:http://www.quizful.net/test

Онлайн тести  для програмістів: https://proghub.ru/


 Розробка сайтів, інтернет-магазинів під ключ. Створення програмного забезпечення для обліку в магазинах,

гуртовнях, ведення власного бізнесу та інших. Написання дипломних та курсових робіт з програмування, баз даних.

 

Звертайтесь за адресою email:kuzbyt@ukr.net

 

 

© (C) Sambir, I.Kuzbyt