Основне меню  

   

Реклама  

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

реклама

 

 

   

Ми в Facebook  

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

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

   

Статистика  

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

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

   

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

   

Посібник 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

 
   

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

   

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

   

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

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

 

   

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

   

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

   

Сайти  

Українські уроки про ІТ

Єдина Країна! Единая Страна!

 

Українські уроки про програмування

 

 
   

На попередньому уроці ми розповідали про організацію введення і виведення даних за допомогою вбудованих діалогових вікон InputBox, ShowMessage.

На цьому уроці ми навчимося створювати додатки, в яких використовуються кілька форм.

Крім того ми вивчимо новий компонент TRadioGroup для створення груп перемикачів. Навчимося застосовувати умовний оператор для аналізу стану перемикачів.

Для початку вам потрібно ознайомитись з новим компонентом TRadioGroup його призначенням і властивостями.

 Компонент TRadioGroup (Група перемикачів) знаходиться на закладці Standard.

 

Компонент TRadioGroup (Група перемикачів) являє собою групу перемикачів, в якій одночасно може бути виділений тільки один перемикач. Коли користувач встановлює один з перемикачів групи, всі інші автоматично скидаються.

Таким чином, будь-які два перемикача можуть бути встановлені одночасно, тільки якщо вони розташовані в різних контейнерах, наприклад в різних групах перемикачів.

Радіокнопки в контейнері TRadioGroup створюються через властивість Items. У групі перемикачів кожен рядок властивості Items ставитися до окремого перемикача і служить його заголовком.

 

Властивість

Опис

Caption

Заголовок групи

Columns

Кількість стовпців в групі перемикачів. За замовчуванням =1

ItemIndex

Визначає номер (починаючи з 0) перемикача, який є виділеним в групі. Якщо спочатку не виділено ні один перемикач, то значення властивості дорівнює -1.

Item

Містить список заголовків перемикачів групи.

Для їх введення заголовків передбачений спеціальний редактор, який викликається клацанням на спеціальній кнопці  , розташованої праворуч в рядку, яка описує властивість Items.

  Властивість Name містить префікс grp, який повідомляє про те, що це група перемикачів.

 Тепер вивчимо оператор розгалуження if- then.

Один з найважливіших операторів Паскаля - умовний оператор. Він дозволяє змінювати порядок виконання операторів в залежності від деякої умови, що представляє собою логічний вираз типу Boolean. Якщо значення дорівнює True, то виконується одна група операторів, якщо False, то інша група операторів або не виконується нічого.

У мові Паскаль є два умовних оператора: if (оператор розгалуження) і case (оператор вибору). Оператор if забезпечує вибір з двох альтернатив, оператор вибору case дозволяє зробити вибір з довільного числа наявних варіантів.

 Умовний оператор If (оператор розгалуження).

Повна форми умовного оператора називається If-then-else, має вигляд:

 If умова

Then [оператор1]
Else [оператор2];

Якщо в якості оператора повинна виконуватися серія операторів, то вони об'єднуються в операторні дужки Begin-End.

If  then
   Begin
   [оператори1]
   End
Else
   begin
   [оператори2]
  End;

Слова if (якщо) і Then (то) -зарезервовані.

Зауваження. Перед ключовим словом else (інакше) крапка з комою не ставиться, вона ставиться після всього оператора If.

Умова є логічні вираження. Прості умови записуються у вигляді рівності або нерівностей. У складних умовах кілька простих умов об'єднуються за допомогою логічних операцій or, and. В цьому випадку прості умови полягають в круглі дужки.На малюнку показана блок-схема повної форми оператора.

 Алгоритм виконання повного умовного оператора:

Перевіряється значення логічного виразу, записаного в умови після слова If Якщо умова істинно (значення виразу умова одно True), то виконується Серія1, вказаний після слова Then. Якщо умова помилкова, то виконується Серія2, записана після слова Else.

Неповна форма умовного оператора називається if-then, має вигляд:

If умова
Then [оператор];

Якщо в якості оператора повинна виконуватися серія операторів, то вони об'єднуються в операторні дужки Begin-End.

If умова Then 
Begin
[оператори]
End;

У неповному розгалуженні гілка Else відсутній. На малюнку показана блок схема оператора if-then. 

 Додавання нової форми

Компонент форма є об'єктом, відсутнім на палітрі компонентів. Щоб додати нову форму в проект, потрібно вибрати команду Файл - Створити форму або натиснути кнопку Створити форму на панелі інструментів.

 

Появиться нова порожня форма. Називатися вона буде Form2, а відповідний їй файл з вихідними текстами додасться в Редактор коду на нову вкладку Unit2.

 

Після додавання нової форми, проект потрібно зберегти. Для показу форм можна використовувати один з двох методів: Show або ShowModal.Метод Show призначений для показу форми в звичайному вікні, а ShowModal - для показу форми в модальному вікні. Різниця між цими двома видами вікон полягає в тому, що між звичайними вікнами можна переміщатися довільним способом, а перейти в інше вікно з модального вікна можна тільки після його закриття.

Показ форми як звичайного вікна

Щоб викликати форму в звичайному вікні використовують її метод Show. Він показує форму, переміщує її на передній план екрану і робить активною.

У прикладі показаний виклик форми Form3 в звичайному вікні після натискання кнопки Button1.

procedure TForm1.Button1Click (Sender: TObject);

begin

  Form2.Show;

end;

Показ форми як модального вікна

Щоб викликати форму в модальному вікні, треба використовувати метод ShowMoal. Переключитися з модального вікна на інші вікна не вдасться, поки воно не буде закрито. Приклад показу форми Form3 в модальному вікні після натискання кнопки Button2.

procedure TForm1.Button2Click (Sender: TObject);

begin

  Form3.ShowModal;

end;

Модальні вікна добре підходять для завдання всіляких налаштувань, виконання введення проміжних значень, відображення результатів.Тепер у нас є все необхідне, для того щоб створити свій перший додаток з кількома формами.

Проект «Три форми»

Завдання. Створити додаток з трьома формами: Головна, Опції і Про програму. Форму Опції викликати в звичайному вікні. Для виклику форми Про програму використовувати модальне вікно. На малюнку показані головна форма і підформи нашого нового проекту.

 Хід виконання проекту

1. Створіть новий додаток, збережіть файли проекту в папці «Три форми».

2. Додайте на формі Form1 3 кнопки, змініть властивості об'єктів відповідно до таблиці.

 

Компонент

Властивість

Значення

Форма

Name
Caption

frmGeneral
Головна

Кнопка 1

Caption

Опції

Кнопка 2

Caption

Про програму

Кнопка 3

Caption

Закрити

3. Створіть формуForm2. Для цього виберіть в меню Файл команду Створити форму. На екрані з'явитися нова форма Form2, в редакторі коду - нова вкладка unit2.

4. Встановіть на формі компонент RadioGroup для вибору кольору, напис, поле виведення, дві кнопки. Налаштуйте властивості об'єктів відповідно до таблиці.

 

Компонент

Властивість

Значення

Форма

Name
Caption

frmOptions
Опції

RadioGroup

Caption
Items

Колір головної форми
Ввести список

Label1

Caption

Заголовок головного вікна

Edit1

Text

Пусто

Button1
Button2

CaptionCaption

ОК
Вихід

5. Після розміщення на формі компонента TradioGroup, що входять до нього перемикачі задаються перерахуванням їх назв. Ці назви в вводяться в властивість Items.

6. Так як потрібно ввести не одну рядок, а кілька, для їх введення передбачений спеціальний редактор, який викликається клацанням на спеціальній кнопці , розташованої праворуч в рядку, яка описує властивість елементи.

7. На малюнку нижче показаний редактор списку для введення назв перемикачів.

  

8. Велика текстова область вікна редактора призначена для введення назв перемикачів по одному в кожному рядку. Перехід в початок наступного рядка здійснюється при натисканні на клавіші Shift + Enter.

9. Після закінчення введення списку, натисніть на кнопку ОК, і зовнішній вигляд об'єкта RadioGroup1 на формі відразу зміниться.

10. Створіть ще одну форму - Форма Form3, вибравши команду Файл-Створити форму. На екрані з'явитися нова форма Форма Form3 а в редакторі коду - нова вкладка Unit3.

11. Додайте на form3 ОБ'ЄКТИ І КНОПКА напис. Налаштуйте властивості   

Компонент

Властивість

Значення

Форма

Name
Caption

frmAbout
Про програму

Button1

Caption

Вихід

   12.    Програмний код для форми Головна (модуль Unit1) У модулі Unit1 в розділі Implementation необхідно записати директиву uses:

uses Unit2, Unit3;
Це необхідно для того щоб модулі Unit2, Unit3 форм Опції і Про програму були видимі в головному модулі Unit1.
13. Написати обробники подій для кнопок форми Головна. Перша кнопка форми Головна (кнопка Параметри) викликає в Форму Опції з звичайному вікні допомогою методу Show.
Процедура TfrmGeneral.Button1Click (Sender: TObject);
begin
 frmOptions.Show;
end;
14. Перша кнопка форми Головна (кнопка Про програму) викликає форму Про програму в модальному вікні за допомогою методу ShowModal.
 
Процедура TfrmGeneral.Button2Click (Sender: TObject);
begin
 frmAbout.ShowModal;
end;
15. Третя кнопка форми Головна (Кнопка ОК) закриває головне вікно.
 
procedure TfrmGeneral.Button3Click(Sender: TObject);
begin
  Close;
end;

 16. Відкриваємо програмний код форми Опції (модуль Unit2) .В модулі Unit2 в розділі implementation записати директиву uses:

  uses Unit1;

Це необхідно для того щоб головний модуль Unit1 форми Головна був бачимо в цьому модулі.

17.    Створити обробник завантаження форми Опції, в який записати програмний код, що передає текст заголовка головної форми в поле Edit1.

 

procedure TFrmOptions.FormCreate(Sender: TObject);
begin
  frmOptions.Edit1.text:=frmGeneral.Caption;
end;

Кнопка ОК форми Опції. Після клацання на цій кнопці буде відбуватися зміна кольору головної форми.

procedure TFrmOptions.Button1Click(Sender: TObject);
begin
if radioGroup1.ItemIndex=0 then frmGeneral.color:=clWhite;
if radioGroup1.ItemIndex=1 then frmGeneral.color:=clRed;
if radioGroup1.ItemIndex=2 then frmGeneral.color:=clBlue;
if radioGroup1.ItemIndex=3 then frmGeneral.color:=clGreen;

end; 

18.     Кнопка Закрити форми Опції. Після клацання на кнопці Цією закривається вікно Опції.

procedure TFrmOptions.Button2Click(Sender: TObject);
begin
  close;

end;

19.    Переходимо в програмний код форми Про програму (модуль Unit3) .В модулі Unit3 в розділі implementation записати директиву uses

uses Unit1;

Модуль Unit1 форми Головна повинен бути видимий в цьому модулі. 

20. Кнопка ОК форми Про програму закриває вікно.

procedure TfrmAbout.Button1Click(Sender: TObject);
begin
  Close;

end;

21.Проект готовий. Збережіть проект і перевірте його роботу.

На цьому уроці ми створили проект, що складається з трьох форм, використовували різні методи для виклику форм: просте вікно і модальне вікно. У нашому додатку ми вперше застосували компонент RadioGroup (Група перемикачів), використовували умовний оператор для обробки вибору користувача. 

 

 

Коментарі  

# TyroneVot 29.07.2018, 14:17
cialisonl.com cialis discount price
tadalafil 5 mg http://cialisonl.com/
fake cialis http://cialisonl.com/#generic-cialis
Відповісти | Відповісти цитуючи | Цитата
# TyroneVot 30.07.2018, 00:43
generic cialis pharmacy tadalafil 40 mg best price cialisbuys.com/buy-real-cialis-from-online-india.h tml
we choice cialis pfizer india http://cialisbuys.com/buy-real-cialis-from-online-india.h tml
buy cialis from canadian pharmacy http://cialisbuys.com/buy-real-cialis-from-online-india.h tml
cialis sypmtomsconfusion herpes cialis side effectseffet du cialis a long termecialis cialis viagra viagraside effects of taking cialis and viagra togethercialis canadian geneicdoes viagra and cialis work the same waycialis 5 mg once day genericocialis 20 mg 2 tablet fiyatwat als cialis niet werktstay hard cialiscialis online pharmacy review
Відповісти | Відповісти цитуючи | Цитата
# TyroneVot 30.07.2018, 20:15
cialisonla.com cost of cialis per pill
cialis y deporte http://cialisonla.com/
what does cialis look like http://cialisonla.com/
Відповісти | Відповісти цитуючи | Цитата
# TyroneVot 02.08.2018, 20:14
cialis 20mg prix en pharmacie belgique cialis 5 mg funziona babecolate.com/cialis-20mg-prix-en-pharmacie-belgi que.html
buy cialis online usa http://babecolate.com/cialis-20mg-prix-en-pharmacie-belgi que.html
brand cialis http://babecolate.com/cialis-20mg-prix-en-pharmacie-belgi que.html
cialis 10mg durationcialis in der eu kaufencost of cialis vs viagra vs levitrafda approval of cialispurchase cialis on the webcialis soft from indonesia8 generic cialis softtabscialis two bathtubs fearus healthcare inc cialisbuy cialis online nowgeneric cialis mexicancialis 5 mg price
Відповісти | Відповісти цитуючи | Цитата
# TyroneVot 03.08.2018, 16:56
buy viagra canadian pharmacy viagra viabiovit.com/viagra-without-perscription-cheap.ht ml
generic viagra online uk http://viabiovit.com/viagra-without-perscription-cheap.ht ml
generic viagra uk http://viabiovit.com/viagra-without-perscription-cheap.ht ml
scary movie 4 viagra deutschremedio casero como el viagraalternatives of viagra in indiaviagra movie love and other drugsel viagra y su usoque hace la viagra en una mujerviagra casera sandiadiscount generic viagra soft tabsviagra kop flashbackviagra free sites resultsthai viagraside effects viagra tabglycocarn viagraviagra enduranceprecio viagra pfizer mexicoelimination du viagraviagra spray r$viagra efter udlosningcan i take viagra while on paxil
Відповісти | Відповісти цитуючи | Цитата
# TyroneVot 04.08.2018, 09:46
cialisonla.com genuine cialis
where can i get cialis http://cialisonla.com/
cialis per paypa http://cialisonla.com/
Відповісти | Відповісти цитуючи | Цитата
# TyroneVot 05.08.2018, 01:59
kawanboni.com prices for cialis 50mg
is 10mg of cialis enough http://kawanboni.com/
non prescription cialis online pharmacy http://kawanboni.com/
Відповісти | Відповісти цитуючи | Цитата
# Coreyrog 05.08.2018, 12:11
viagraky.com viagra pfizer buy online
how to buy viagra safely online http://viagraky.com/
where can i buy generic viagra online safely http://viagraky.com/index.html#buy-generic-viagra
viagra original online bestellenusing viagra first timeviagra alle erbe ultimatedoes viagra give you energybuy viagra cheap viagra order viagrabest place to buy viagra ukjual viagra sidoarjozoloft viagra interactionus pharmacy that sell viagravendo viagra cordobase necesita receta para comprar viagra en mexicogenuine viagra prices ukfunkar viagra pa kvinnorwas kostet viagra mit rezept in osterreichjual viagra resmitake viagra abroadsi puo' prendere il viagra con la pressione altaviagra diva pour femmebuy cheap viagra online canadian pharmacy
Відповісти | Відповісти цитуючи | Цитата
# Coreyrog 06.08.2018, 01:52
viabiovit.com buy viagra pill
uk viagra prices http://viabiovit.com/
buy viagra super active online http://viabiovit.com/#viagra-generic
generic viagra for sale onlineen donde puedo comprar viagraorigin of the name viagratansiyon ilac? kullananlar viagra kullanabilir mii dont need viagra im welshwhy take viagra on an empty stomachviagra in actionviagra website hackfilm om viagraviagra pills for sale cheapviagra generika pfizer kaufenviagra et cialis pas cher
Відповісти | Відповісти цитуючи | Цитата
# Coreyrog 06.08.2018, 15:50
viabiovit.com buy generic viagra online cheap
viagra online rx http://viabiovit.com/
viagra uk prescription http://viabiovit.com/#buy-viagra
viagra pool commercialalcohol and viagra interactiongenic viagraembarrassing viagra storieslas mujeres pueden tomar el viagrahearing loss due to viagraviagra tablet fiyatresult of viagrageneric names of viagratry viagra before you buycheap 25mg viagraviagra for diabeticsviagra factcheapest viagra price usa pharmacieslangzeitschaden durch viagrawhat does too much viagra do
Відповісти | Відповісти цитуючи | Цитата
# TyroneVot 06.08.2018, 20:30
no perscription cialis buy cialis soft cialisvv.com
taking cialis http://cialisvv.com/
do you have to take cialis everyday http://cialisvv.com/
kamagra viagra cialispuedo tomar viagra y cialis juntoscialis 5mg daily couponwhy is cialis so costlyperformance anxiety cialis softdangers of generic cialis pillswat kost cialis bij de apotheekcialis for normal mencialis alcohol headachescialis in jamaica no prescription
Відповісти | Відповісти цитуючи | Цитата
# TyroneVot 07.08.2018, 10:10
cialissv.com prezzo cialis a buon mercato
buy cialis canadian pharmacy http://cialissv.com/
preis cialis 20mg schweiz http://cialissv.com/
Відповісти | Відповісти цитуючи | Цитата
# Coreyrog 08.08.2018, 15:48
withoutadoctorsprescriptions.com buy viagra online safely
honest place to buy viagra http://withoutadoctorsprescriptions.com/
viagra buy viagra http://withoutadoctorsprescriptions.com/#viagra-uk
viagra und zuckerkrankheitcreatine et viagrageneric viagra from ciplavar kan man fa tag pa viagralyrica e viagrahimalayan viagra costviagra international launguageis viagra detectable on drug testsprecio del viagra en farmacias de barcelonabustine come viagradrugs comparable to viagra
Відповісти | Відповісти цитуючи | Цитата
# RogerPaulp 10.08.2018, 07:42
download coreldraw graphics suite 12 portable adobe illustrator cs6 16 0 0 32 64 bit shooter hp compaq presario c700 audio driver download for xp
mac os x snow leopard rg softonic lavasoft ad aware 2018 pro v7.1.1.10 cracked download command and conquer 3 les guerres du tiberium patch 1.09
Відповісти | Відповісти цитуючи | Цитата
# RogerPaulp 11.08.2018, 02:09
adobe photoshop cs3 portable german system requirements eclipse rcp indigo linux gtk.tar.gz download windows xp unated edition v7 service pack 2 uee
download daemon tools pro serial key keygen new microsoft .net framework all versions download kaspersky anti virus free download 2018 full version with key for windows vista
Відповісти | Відповісти цитуючи | Цитата
# RogerPaulp 12.08.2018, 05:52
beyond good and evil gamecube iso malwarebytes anti malware 1.51.0 free download hp 430 laptop drivers for windows 7 professional 32 bit
grand theft auto iv crack only razor1911 rar teu aplicaciones windows 1.7.1 firefox portable 3 0 rc3 en usera
http://acezpas.ugu.pl/hanusatus/ashampoo-burning-studio-8-02-crack-free-download.html
Відповісти | Відповісти цитуючи | Цитата
# TyroneVot 13.08.2018, 14:26
cialissy.com buy cialis au
canadian cialis online http://cialissy.com/
viagra cialis buy uk http://cialissy.com/
Відповісти | Відповісти цитуючи | Цитата
# RogerPaulp 15.08.2018, 11:08
dragon medical practice edition 2 free download pt supreme commander forged alliance keygen an.apk championship manager 97 98 free download android
windows 7 ultimate working loader 32 bit product key adobe acorbat reader xi setup serial key miracle on 34th street 1947 full movie
http://ezgesria.ugu.pl/reraxotyv/advanced-systemcare-84-pro-key-2018.html
Відповісти | Відповісти цитуючи | Цитата
# TyroneVot 16.08.2018, 10:37
buycialisonli.com best cialis dosage
buying cialis online from canada http://buycialisonli.com/
buy discount cialis online http://buycialisonli.com/#cialis-canada
Відповісти | Відповісти цитуючи | Цитата
# TyroneVot 17.08.2018, 21:02
buycialisonla.com cialis online
best online cialis pharmacy reviews http://buycialisonla.com/
cialis pills sale http://buycialisonla.com/
Відповісти | Відповісти цитуючи | Цитата

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

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

   

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

 
   

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


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

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

 

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

 

 

© (C) Sambir, I.Kuzbyt