Основне меню  

   

Реклама  

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

реклама

 

 

   

Ми в Facebook  

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

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

   

Статистика  

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

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

   

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

   

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

 

Коментарі  

0 # Coreyrog 13.04.2019, 14:11
canadiantousapharmacy.com online canadian pharmacies
buy vistagra usa http://canadiantousapharmacy.com/
canadian pharmacies-24h http://canadiantousapharmacy.com/#viagra-from-canada
drugstore online
online drug store
Відповісти | Відповісти цитуючи | Цитата
0 # Coreyrog 13.04.2019, 14:30
canadianorderpharmacy.com canada viagra
northwest pharmacies mail order http://canadianorderpharmacy.com/
canadian medications pharmacy http://canadianorderpharmacy.com/#viagra-uk
canadian pharmacy online 24
northwest pharmacies in canada
Відповісти | Відповісти цитуючи | Цитата
0 # Coreyrog 13.04.2019, 15:28
ukcanadianpharmacy.com canadian discount pharmacies in ocala fl
canadian pharmacy world http://ukcanadianpharmacy.com/
canadian rxlist http://ukcanadianpharmacy.com/#tadalafil-20-mg
canadian pharmaceuticals
pharmacy near me
Відповісти | Відповісти цитуючи | Цитата
0 # Coreyrog 13.04.2019, 16:23
canadiantousapharmacy.com Canadian Pharmacy USA
online pharmacies in usa http://canadiantousapharmacy.com/
canada pharmacies account http://canadiantousapharmacy.com/#low-cost-viagra-20mg
canadian pharmaceuticals stocks
buy vistagra usa
Відповісти | Відповісти цитуючи | Цитата
0 # Coreyrog 13.04.2019, 17:18
canadianpharmacyonl.com canadian discount pharmacies in ocala fl
trust pharmacy canada reviews http://canadianpharmacyonl.com/
canadian drugstore http://canadianpharmacyonl.com/#discount-viagra
canada online pharmacy
pharmacy
Відповісти | Відповісти цитуючи | Цитата
0 # Coreyrog 13.04.2019, 18:09
canadianpharmacyonl.com canadian online pharmacies legal
canada online pharmacies legitimate http://canadianpharmacyonl.com/
Northwest Pharmacy http://canadianpharmacyonl.com/#viagra-from-canada
are canadian online pharmacies safe
canadian online pharmacies rated
Відповісти | Відповісти цитуючи | Цитата
0 # Coreyrog 13.04.2019, 19:02
canadianpharmacyonl.com canadian medications 247
best canadian pharmacies online http://canadianpharmacyonl.com/
canadian viagra http://canadianpharmacyonl.com/#tadalafil-20-mg
canada pharmacies
northwestpharmacy
Відповісти | Відповісти цитуючи | Цитата
0 # Coreyrog 13.04.2019, 19:57
canadianpharmacyes.com drugstore online shopping reviews
canadian pharmacies that are legit http://canadianpharmacyes.com/
pharmacy near me http://canadianpharmacyes.com/#discount-viagra
canadian mail order pharmacies
pharmacy canada 24
Відповісти | Відповісти цитуючи | Цитата
0 # Coreyrog 13.04.2019, 20:54
canadianorderpharmacy.com global pharmacy canada
canadian pharmaceuticals online http://canadianorderpharmacy.com/
canadian discount pharmacies in canada http://canadianorderpharmacy.com/#discount-viagra
canadianpharmacy
canada drugs online
Відповісти | Відповісти цитуючи | Цитата
0 # Coreyrog 13.04.2019, 21:48
canadianpharmacyonl.com online pharmacies india
aarp recommended canadian pharmacies http://canadianpharmacyonl.com/
canada medication http://canadianpharmacyonl.com/#low-cost-viagra-20mg
canadian pharmacycanadian pharmacy
trusted pharmacy canada scam
Відповісти | Відповісти цитуючи | Цитата
0 # Coreyrog 13.04.2019, 22:44
canadianpharmacyes.com canada online pharmacies for men
canadian medications http://canadianpharmacyes.com/
candida viagra http://canadianpharmacyes.com/#viagra-20-mg
buy viagra now
online pharmacy canada
Відповісти | Відповісти цитуючи | Цитата
0 # Coreyrog 13.04.2019, 23:43
canadianpharmacyes.com candida viagra
canadian discount pharmacies in canada http://canadianpharmacyes.com/
canadian drugs http://canadianpharmacyes.com/#buy-viagra
canadian discount pharmacies in ocala fl
canadian drug
Відповісти | Відповісти цитуючи | Цитата
0 # Coreyrog 14.04.2019, 00:42
ukcanadianpharmacy.com northwest pharmacies
canadian pharmaceuticals stocks http://ukcanadianpharmacy.com/
good canadian online pharmacies http://ukcanadianpharmacy.com/#low-cost-viagra-20mg
canadian rx
is trust pharmacy in canada legitimate
Відповісти | Відповісти цитуючи | Цитата
0 # Coreyrog 14.04.2019, 01:32
canadianorderpharmacy.com trusted pharmacy canada scam
drugstore online reviews http://canadianorderpharmacy.com/
canadian pharmacycanadian pharmacy http://canadianorderpharmacy.com/#viagra-levitra
canadian pharmacies-24h
canadian pharmacy world
Відповісти | Відповісти цитуючи | Цитата
0 # Coreyrog 14.04.2019, 02:27
canadiantousapharmacy.com canadianpharmacyusa24h
how safe are canadian online pharmacies http://canadiantousapharmacy.com/
canadian pharmacies without an rx http://canadiantousapharmacy.com/#viagra-5-mg
canadianpharmacyusa24h
drugs for sale usa
Відповісти | Відповісти цитуючи | Цитата
0 # Coreyrog 14.04.2019, 03:25
canadianpharmacyonl.com canadian pharmacys
canadian pharmacy online 24 http://canadianpharmacyonl.com/
canada pharmacies http://canadianpharmacyonl.com/#buy-viagra
northwest pharmacy canada
northwest pharmacies
Відповісти | Відповісти цитуючи | Цитата
0 # Coreyrog 14.04.2019, 04:19
canadianpharmacyes.com best canadian mail order pharmacies
order canadian prescriptions online http://canadianpharmacyes.com/
buy viagrow http://canadianpharmacyes.com/#tadalafil-20-mg
canada vagra
drugs for sale online
Відповісти | Відповісти цитуючи | Цитата
0 # Coreyrog 14.04.2019, 05:12
canadianorderpharmacy.com canadian medications pharmacy
canadian prescriptions online http://canadianorderpharmacy.com/
canada medications cheap http://canadianorderpharmacy.com/#viagra-20-mg
canadian prescription drugstore
global pharmacy canada
Відповісти | Відповісти цитуючи | Цитата
0 # Coreyrog 14.04.2019, 06:07
canadiantousapharmacy.com canada medications information
canada online pharmacy http://canadiantousapharmacy.com/
canada medication list http://canadiantousapharmacy.com/#tadalafil-5mg
northwest pharmacies in canada
canada medication cost
Відповісти | Відповісти цитуючи | Цитата
0 # Coreyrog 14.04.2019, 07:00
ukcanadianpharmacy.com canadian medications online
canadian pharmacy world http://ukcanadianpharmacy.com/
canada medication prices http://ukcanadianpharmacy.com/#low-cost-viagra-20mg
online pharmacies tech school
canadian drugs
Відповісти | Відповісти цитуючи | Цитата
0 # Coreyrog 14.04.2019, 07:53
canadianpharmacyonl.com canadian pharmacy no prescription
most reliable canadian pharmacies http://canadianpharmacyonl.com/
drugstore online http://canadianpharmacyonl.com/#buy-generic-viagra
canadian pharcharmy online24
drugs for sale in uk
Відповісти | Відповісти цитуючи | Цитата
0 # Coreyrog 14.04.2019, 08:55
canadianpharmacyes.com online pharmacies legitimate
canada online pharmacies medication http://canadianpharmacyes.com/
most reliable canadian pharmacies http://canadianpharmacyes.com/#viagra-uk
buy vistagra online safe
canadian pharmaceuticals online
Відповісти | Відповісти цитуючи | Цитата
0 # Coreyrog 14.04.2019, 09:56
canadianorderpharmacy.com canada online pharmacies
drugs for sale on internet http://canadianorderpharmacy.com/
northwest pharmacies online http://canadianorderpharmacy.com/#viagra-20mg
canadian online pharmacies rated
canadian rx world pharmacy
Відповісти | Відповісти цитуючи | Цитата
0 # Coreyrog 14.04.2019, 11:00
ukcanadianpharmacy.com online pharmacies india
canadian pharcharmy online24 http://ukcanadianpharmacy.com/
pharmacy canada plus http://ukcanadianpharmacy.com/#viagra-levitra
north west pharmacies canada
canada pharmacies
Відповісти | Відповісти цитуючи | Цитата
0 # Coreyrog 14.04.2019, 12:04
canadiantousapharmacy.com canadian pharmaceuticals nafta
canadian pharmacy world http://canadiantousapharmacy.com/
canadian pharmacies http://canadiantousapharmacy.com/#low-cost-viagra-20mg
pharmacy canada plus
canadian mail order pharmacies
Відповісти | Відповісти цитуючи | Цитата
0 # Coreyrog 14.04.2019, 13:00
canadianpharmacyonl.com canadian pharmacy no prescription
canadian pharmacy meds http://canadianpharmacyonl.com/
canada medications cheap http://canadianpharmacyonl.com/#viagra-5-mg
buy viagrow pro
canadianpharmacy
Відповісти | Відповісти цитуючи | Цитата
0 # Coreyrog 14.04.2019, 13:59
canadianorderpharmacy.com canadian pharmacy uk delivery
northwest pharmacies mail order http://canadianorderpharmacy.com/
northwest pharmacies online http://canadianorderpharmacy.com/#viagra-5mg
trusted pharmacy canada scam
canada pharmaceuticals online
Відповісти | Відповісти цитуючи | Цитата
0 # Coreyrog 14.04.2019, 14:53
ukcanadianpharmacy.com pharmacy canada plus
no 1 canadian pharcharmy online http://ukcanadianpharmacy.com/
no 1 canadian pharcharmy online http://ukcanadianpharmacy.com/#viagra-5mg
online pharmacy canada
canada medication prices
Відповісти | Відповісти цитуючи | Цитата
0 # Coreyrog 14.04.2019, 15:44
canadianpharmacyonl.com canadian pharmacies stendra
reputable canadian prescriptions online http://canadianpharmacyonl.com/
canadian prescriptions online serc 24 mg http://canadianpharmacyonl.com/#generic-for-viagra
canadian pharmacies that ship to us
top rated canadian pharmacies online
Відповісти | Відповісти цитуючи | Цитата
0 # Coreyrog 14.04.2019, 16:36
canadiantousapharmacy.com pharmacy canada 24
northwest pharmacies in canada http://canadiantousapharmacy.com/
pharmacy canada plus http://canadiantousapharmacy.com/#viagra-uk
online pharmacies in usa
drugs for sale
Відповісти | Відповісти цитуючи | Цитата
0 # Coreyrog 14.04.2019, 17:30
canadianpharmacyes.com canadian pharmacies-24h
trust pharmacy of canada http://canadianpharmacyes.com/
rx from canada http://canadianpharmacyes.com/#generic-for-viagra
pharmacy canada best
canadian online pharmacies reviews
Відповісти | Відповісти цитуючи | Цитата
0 # Coreyrog 14.04.2019, 18:15
ukcanadianpharmacy.com good canadian online pharmacies
drugstore online shopping reviews http://ukcanadianpharmacy.com/
canadian pharmaceuticals for usa sales http://ukcanadianpharmacy.com/#viagra-5mg
best canadian mail order pharmacies
online canadian pharmacy
Відповісти | Відповісти цитуючи | Цитата
0 # Coreyrog 14.04.2019, 19:05
canadianorderpharmacy.com canada medications information
canadian pharmaceuticals for usa sales http://canadianorderpharmacy.com/
canada medication cost http://canadianorderpharmacy.com/#discount-viagra
northwest pharmacies
drugstore online
Відповісти | Відповісти цитуючи | Цитата
0 # Coreyrog 14.04.2019, 19:58
canadianorderpharmacy.com canadian pharmacy meds
drugstore online reviews http://canadianorderpharmacy.com/
order canadian prescriptions online http://canadianorderpharmacy.com/#viagra-generic
Canadian Pharmacy USA
canadian pharmacies online prescriptions
Відповісти | Відповісти цитуючи | Цитата
0 # Coreyrog 14.04.2019, 21:03
canadiantousapharmacy.com trust pharmacy canada
canadian pharmaceuticals companies http://canadiantousapharmacy.com/
canadian discount pharmacies in ocala fl http://canadiantousapharmacy.com/#tadalafil-5mg
global pharmacy canada
canada online pharmacies for men
Відповісти | Відповісти цитуючи | Цитата
0 # Coreyrog 14.04.2019, 22:04
canadianpharmacyonl.com northwestpharmacy
pharmacy times http://canadianpharmacyonl.com/
online pharmacies mexico http://canadianpharmacyonl.com/#viagra-tablets-australia
buy viagra usa
canada medications information
Відповісти | Відповісти цитуючи | Цитата
0 # Coreyrog 14.04.2019, 23:07
canadianpharmacyes.com canadian cialis
buy viagra 25mg http://canadianpharmacyes.com/
canadianpharmacyusa24h http://canadianpharmacyes.com/#discount-viagra
canadian mail order pharmacies
pharmacy canada 24
Відповісти | Відповісти цитуючи | Цитата
0 # Coreyrog 15.04.2019, 00:03
canadianpharmacyonl.com drugstore online shopping
canadian online pharmacies rated http://canadianpharmacyonl.com/
canadian online pharmacies legal http://canadianpharmacyonl.com/#viagra-20mg
north west pharmacy canada
online pharmacies india
Відповісти | Відповісти цитуючи | Цитата
0 # Coreyrog 15.04.2019, 02:00
canadianpharmacyonl.com pharmacy canada online prescriptions
buy viagra usa http://canadianpharmacyonl.com/
northwest pharmacies http://canadianpharmacyonl.com/#generic-for-viagra
are canadian online pharmacies safe
canadian online pharmacies rated
Відповісти | Відповісти цитуючи | Цитата
0 # Coreyrog 15.04.2019, 02:55
canadianorderpharmacy.com canadian pharmacy uk delivery
prescription drugs without prior prescription http://canadianorderpharmacy.com/
canadian online pharmacies legitimate http://canadianorderpharmacy.com/#viagra-5-mg
online pharmacies
the best canadian online pharmacies
Відповісти | Відповісти цитуючи | Цитата
0 # Coreyrog 15.04.2019, 03:47
canadianorderpharmacy.com pharmacy canada 24
canada online pharmacies for men http://canadianorderpharmacy.com/
candida viagra http://canadianorderpharmacy.com/#buy-viagra-online
canadian medications 247
pharmacy canada plus
Відповісти | Відповісти цитуючи | Цитата
0 # Coreyrog 15.04.2019, 05:33
canadiantousapharmacy.com canadian pharmacycanadian pharmacy
canadian pharmacies online prescriptions http://canadiantousapharmacy.com/
are canadian online pharmacies safe http://canadiantousapharmacy.com/#viagra-20-mg
canada pharmaceuticals online
trusted pharmacy canada
Відповісти | Відповісти цитуючи | Цитата
0 # MichaelToove 23.04.2019, 01:16
canadianpharmacyonl.com canadian pharmacies online prescriptions
trust pharmacy canada http://canadianpharmacyonl.com/
online pharmacy canada http://canadianpharmacyonl.com/#viagra-20-mg
canada online pharmacies legitimate
canadian pharmacies-24h
Відповісти | Відповісти цитуючи | Цитата

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

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

   

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

 
   

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

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


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

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

 

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

 

 

© (C) Sambir, I.Kuzbyt