Основне меню  

   

Реклама  

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

реклама

 

 

   

Ми в Facebook  

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

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

   

Статистика  

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

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

   

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

   

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

   

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

   

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

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

 

   

Посібник Delphi  

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

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

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

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

 

Коментарі  

# cialis from canada 14.05.2018, 11:48
cialis online napol cialis kaufen
generic cialis with dapoxetine cialis great britain
cheap viagra pharmacy Viagra coupon
buy viagra cheaply Tadalafil 20 mg
cialis mit grapefruitsaft http://cialisonl.com/cialis-cost
how to order viagra online http://rldta.com/viagra-generika
Відповісти | Відповісти цитуючи | Цитата
# viagra vs cialis 15.05.2018, 09:09
cialis online deutschland cialis tablets
cialis online nederland cialis cost
where to buy viagra online uk Viagra coupon
where can i purchase viagra online Viagra kaufen
bulk cialis http://cialisees.com/#generic-cialis
where can i buy viagra pills http://viagrayosale.com/#viagra-for-daily-use
Відповісти | Відповісти цитуючи | Цитата
# tadalafil 15.05.2018, 09:45
cost of cialis cvs cialis 5 mg
cialis 5 mg buy tadalafil
online viagra Viagra 20mg
how to buy viagra without seeing a doctor Tadalafil 5mg
cialis generika http://cialisees.com/cialis-coupon
viagra no presc http://viagraessale.com/tadalafil-20-mg
Відповісти | Відповісти цитуючи | Цитата
# cilas 15.05.2018, 21:31
how to purchase cialis on line online cialis
cialis purchasing viagra or cialis
viagra alternatives Generic for viagra
sildenafil buy online Viagra 20 mg
achat cialis en europe http://cialisees.com/cialis-great-britain
where i can buy viagra http://viagravipsale.com/#viagra-generic
Відповісти | Відповісти цитуючи | Цитата
# cialis prices 16.05.2018, 02:17
cialis wir preise sialis
cialis pills boards cialis 20mg
where can i buy viagra over the counter Tadalafil 20 mg
buy pfizer viagra online Viagra daily
sialis http://cialisees.com/#tadalafil
pfizer viagra http://viagravonline.com/viagra-5mg
Відповісти | Відповісти цитуючи | Цитата
# tadalafil 20 mg 30.05.2018, 00:44
what is cialis tadalafil 10 mg
cialis 20mg preis cf cialis 5mg
cialis per paypa http://cialisky.com/
Відповісти | Відповісти цитуючи | Цитата
# tadalafil 10 mg 30.05.2018, 04:11
enter site very cheap cialis cialis without a doctor's prescription
costo in farmacia cialis cialis 20 mg
cialis flussig http://cialisky.com/
Відповісти | Відповісти цитуючи | Цитата
# Cialis canada 01.06.2018, 02:55
wow look it cialis mexico Tadalafil
cialis 5mg prix Buy cialis
cialis coupons http://cialisees.com/
Відповісти | Відповісти цитуючи | Цитата
# Cialis generic 01.06.2018, 05:49
we recommend cialis best buy Generic cialis
enter site natural cialis Cialis 20mg
buying cialis on internet http://cialisees.com/
Відповісти | Відповісти цитуючи | Цитата
# Cialis tablets 01.06.2018, 15:21
cialis with 2 days delivery Cialis online
buy cialis Cialis prices
cialis daily http://cialisees.com/
Відповісти | Відповісти цитуючи | Цитата
# Cialis online 02.06.2018, 17:50
no prescription cialis cheap Cheap cialis
buy cialis online nz Generic for cialis
sublingual cialis online http://cialisiv.com/
Відповісти | Відповісти цитуючи | Цитата
# Cialis 20mg 03.06.2018, 18:52
where to buy cialis in ontario Cialis from canada
canadian cialis Generic for cialis
cialis with 2 days delivery http://babecolate.com/
Відповісти | Відповісти цитуючи | Цитата
# Tadalafil 03.06.2018, 20:48
buy original cialis Generic cialis
generic cialis with dapoxetine Cialis tablets australia
cialis et insomni http://babecolate.com/
Відповісти | Відповісти цитуючи | Цитата
# cialis 5mg prix 07.06.2018, 22:00
5 mg cialis coupon printable tadalafil 20 mg
cialis therapie tadalafil
buy viagra online uk no prescription Viagra 20 mg best price
how to get viagra from doctor Low cost viagra 20mg
cialis 100mg suppliers http://cialisb.com/#cialis-20mg
viagra buy http://viabiovit.com/#generic-for-viagra
Відповісти | Відповісти цитуючи | Цитата
# tadalafil 5mg 07.06.2018, 22:30
buy cialis online cheapest cialis online
cialis super acti cialis 20mg
buy viagra online no rx Viagra daily
viagra pfizer buy online Viagra prices
miglior cialis generico http://babecolate.com/#generic-cialis
online generic viagra pharmacy http://viagraky.com/#viagra-generic
Відповісти | Відповісти цитуючи | Цитата
# tadalafil 20 mg 08.06.2018, 06:54
look here cialis cheap canada cialis 5mg prix
how to buy cialis online usa tadalafil 20 mg
where to order viagra online Viagra generico online
find viagra online Buy viagra
opinioni cialis generico http://babecolate.com/#generic-for-cialis
how to buy viagra online safely http://viabiovit.com/#viagra-uk
Відповісти | Відповісти цитуючи | Цитата
# Coreyrog 08.06.2018, 12:27
viagra dose sizesemail sending out viagra linksexpired viagra pillsvioxx viagra celebrexgibts viagra in apothekehow to buy cheap viagraviagras effects on womanviagra tablet featureswhere to buy viagra in pretoriael viagra se puede tomar con antibioticosviagra punti venditawie oft kommen mit viagra
online viagra cheap viagra tablets
online pharmacy viagra uk where to buy viagra
how to buy viagra safely online http://viabiovit.com/#tadalafil-5mg
viagra in guardian malaysiawhat does viagra do if a girl takes itheadquarters for viagraphu nu dung viagra duoc chongczy viagra dziala z alkoholemjus de grenade viagraoriginal viagra in bangkokviagra frozen embryo transferviagra alo mama downloadbuying viagra illegal100mg viagra wirkungviagra vendettaforum viagra sur le netviagra nao faz malviagra ship to canada
Відповісти | Відповісти цитуючи | Цитата
# Coreyrog 12.06.2018, 22:43
film rappresentante viagraclonidine and viagra interactionavailability of viagra in lahorelyrics of stop stop stop stop by viagrawhere to buy viagra in shopsrisks generic brands viagraviagra versus high blood pressurewas kostet viagra in spanienparoxetina x viagraviagra kopen groningenchicles efecto viagra
viagra purchase uk viagra without a doctor prescription
viagra online uk online viagra
pharmacy viagra prices http://rldta.com/#tadalafil-20-mg
remedio casero parecido al viagracomprare viagra su internet e sicurophim noi v? viagrapink viagra for ladieswalgreens and viagracan you chew viagraviagra paypal accepted australiaviagra zincviagra chebviagra online canadawhere to buy viagra online in australiacialis vs viagra reviewsbuy viagra online buystories of men giving women viagrapro y contra del uso del viagrahow much does viagra cost in australiarecent status of viagra lawsuits
Відповісти | Відповісти цитуючи | Цитата
# Coreyrog 14.06.2018, 21:44
buy real viagra online uk viagra tablets
buy viagra online without a prescription viagra pills
what is viagra http://viagraiy.com/#low-cost-viagra-20mg
Відповісти | Відповісти цитуючи | Цитата
# Coreyrog 16.06.2018, 19:39
gaddafi viagra soldiersviagra vir mansviagra aumento de tamanomio ragazzo viagraviagra apotek 1viagra es con receta chilefemale viagra contentviagra and axironhealth benefit of viagradoes viagra help stage frightinteraction of nitrates and viagrageneral practitioner viagraquem tem problema de pressao pode tomar viagragoverno distribui viagrasiti che vendono viagratansiyon viagragernic viagra
herbal viagra viagra 100mg
safe to buy viagra online cheap viagra
uk buy viagra viagra tablets
buy sildenafil generic generic viagra online
non prescription drugs similar to viagrapharmacie viagra marocer det lovlig a kjope viagra pa nettetdoes viagra work with coke50mg viagra softtabswhy do i need a prescription for viagrakan man kobe viagra pa apoteketdoes smoking weed effect viagrathe side affect of viagraviagra jelly for sale ukviagra generico impotenciaseri?se internetapotheke viagrazocor and viagrahow many times per week can you take viagra
Відповісти | Відповісти цитуючи | Цитата

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

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

   

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

 
   

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


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

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

 

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

 

 

© (C) Sambir, I.Kuzbyt