Народна Освіта » Інформатика » Алгоритми роботи з об'єктами та величинами

НАРОДНА ОСВІТА

Алгоритми роботи з об'єктами та величинами

Елементи для введення даних. Текстове поле

Властивості текстового поля

Для обробки певної інформації в середовищі VB.NET необхідно навчитися вводити дані до пам’яті комп’ютера. Нерідко для цього використовують ряд елементів керування, про можливості яких мова піде далі. Найчастіше вживаним елементом введення даних є текстове поле, що утворюється на формі за допомогою елемента керування ТехtВох.

Деякі властивості його вам уже відомі, оскільки вони характерні й для багатьох інших елементів керування — Text, BackColor, ForeColor, Font, Visible, Enabled, AutoSize. Властивості, які притаманні переважно текстовому полю наведено в табл. 6.1.

Таблиця 6.1. Основні властивості елемента керування TextBox

Властивість текстового поля

Пояснення

MaxLength

максимальна довжина

MultiLine

можливість розташування тексту в кілька рядків

PasswordChar

символ пароля

Readonly

можливість змінювати текстову інформацію

ScrollBars

встановлення лінійок прокрутки

TextAlign

вирівнювання тексту

Wordwrap

визначає, чи автоматично переносити текст на новий рядок

 

ТехІВох у режимі конструктора мас своє мето (рис. 6.1), завдяки якому молена встановити одну з важливих його властивостей — Ми№І_іпе (розміщення тексту в декілька рядків).

ВСТАНОВЛЕННЯ ВЛАСТИВОСТЕЙ В ПРОГРАМНОМУ КОДІ

Змінюють властивості текстового поля в програмному коді подібно, як і для інших елементів керування. Одним з основних призначень текстового поля с відображення в ньому текстової інформації. Розглянемо деякі особливості програмних кодів для редагування текстових повідомлень. Щоб ввести текст у текстовому полі, програмний код мас такий вигляд: TextBoxl.Text = «Текстове повідомлення»

Якщо в текстове поле необхідно дописати деякий текст, то для цього застосовують код наступного змісту:

TextBoxl.Text = TextBoxl.Text + «Текстове повідомлення»

Якщо с потреба розташувати текст у декілька рядків, у режимі конструювання встановлюють властивість MultiLine = True. А в програмному коді, щоб дописати текст з наступного рядка, додають команду vbNewLine. 'Перейти на наступний рядок та дописати текст «Текстове повідомлення» TextBoxl.Text = TextBoxl.Text + vbNewLine + «Текстове повідомлення» 'Дописати текст «Текстове повідомлення» та перейти на наступний рядок TextBoxl.Text = TextBoxl.Text + «Текстове повідомлення» + vbNewLine Докладніше з можливостями використання текстових полів ви ознайомитеся, виконуючи практичні вправи.

Часто при виконанні програмного коду виникає потреба очистити текст від напису. Це можна зробити двома способами:

TextBoxl.Text = «» або TextBoxl.Text = Nothing

 

Завдання. Створити проект, що містить форму реєстрації учасників змагань за зразком (рис. 6.2). Після введення даних у текстові поля та натиснення кнопки Зареєструвати дані в рядок записуються до текстового напису розташованого під текстовими полями, а текстові поля очищаються від написів. При наступному введенні даних і натисненні кнопки Зареєструвати дані розташовуються під попереднім записом.

1.  Створіть форму за зразком (рис. 6.2), встановіть початкові властивості елементів керування самостійно. Задайте елементам керування імена, вказані у виносках.

2. Введіть код для кнопки Зареєструвати для події Click.

‘Дописати текст до попереднього та перейти на наступний рядок L.Text = L.Text + Pr.Text + « » + Im.Text + « » + Dn.Text + vbNewLine 'Очищення текстових полів від написів

Pr.Text = Nothing Im.Text = Nothing Dn.Text = Nothing

3. Запустіть проект та перевірте правильність його виконання.

4. Збережіть проект під назвою Вправа_30_Прізвище.

ВПРАВА 31

Завдання. Створити форму із заголовком «Текстові вікна та мітки» та виконати вказані нижче дії.

 

1. Розмістить у вікні форми два текстові поля і дві мітки.

2. Надайте текстовим полям імена Т1 і Т2, а міткам — L1 і L2.

3.  Очистіть від тексту всі написи на створених об’єктах. Для міток встановіть властивість AutoSize = False, BorderStyle = Fixed3d.

4. Задайте вирівнювання в текстових полях по центру, а в мітках — до правого краю.

5. Встановіть у текстових полях розмір шрифту — 14 пт, колір — червоний; в мітках розмір шрифту — 12 пт, колір — синій.

6.  Зробіть так, щоб при введенні тексту до текстового поля Т1 він відображався в полі мітки L1, аналогічно текст поля Т2 — у L2.

Значення властивості Text об’єкта L1 повинно дорівнювати значенню властивості Text об’єкта T1 (LI.Text = ТІ.Text).

7. Зробіть так, щоб при натисненні лівої клавіші миші на L1 текст з поля Т1 вилучався (ТІ.Text = Nothing).

8.  Зробіть так, щоб при подвійному натисканні на L2 текст у полі Т2 вирівнювався по лівому краю (T2.TextAlign = HorizontalAlignment.Right).

9. Запустіть проект та перевірте правильність його виконання.

10. Збережіть проект під назвою Вправа_31_Г1різвище.

ВПРАВА 32 САМОСТІЙНО

 

Завдання. Створити проект, що містить реєстраційну форму працівника за зразком (рис. 6.3). Після введення даних до відповідного текстового поля попереднє поле стає неактивним.

Після введення даних до останнього текстового поля і одноразового клацання лівою клавішею миші на відповідній мітці текстове поле стає неактивним. Для зміни напису у відповідних текстових полях слід клацнути два рази на відповідні їм мітки. (При переході від одного текстового поля до іншого слід застосувати подію зміни фокусу ЬозіРосиє). Зберегти проект під назвою Вправа_32_Прізвище.

Висновки

Елемент керування TextBox призначений для введення та виведення даних.

Щоб розташувати текст у два рядки, використовз'ють властивість MultiLine.

Щоб ввести текст у текстовому полі, після знака «=» записують потрібний текст виділений лапками.

Щоб дописати текст, застосовують код такого змісту:

TextBoxl.Text = TextBoxl.Text + «Текстове повідомлення»

Щоб перемістити текст на наступний рядок, додають команду vbNewLine.

Очищують текстове поле від напису, застосовуючи такий програмний код:

TextBoxl.Text = «» або TextBoxl.Text = Nothing

Контрольні запитання та завдання

1. За допомогою якого елемента керування молена створити текстове поле?

2. За допомогою якої властивості можна змінити текстовий напис?

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

4. Якою командою молена переводити текст на наступний рядок?

5. Як очистити текстове поле від написів?

Питання для роздумів

1. Для чого використовують властивість Мах1_епдіИ? У яких випадках використовз’ють цю властивість?

2. Текстове поле молена використовзвати не тільки для введення даних, а й для виведення. Що потрібно зробити, щоб дані, виведені як результат, не молена було змінити?

Завдання для досліджень

У текстових полях Т1 і Т2 містяться деякі написи. При натисненпі на кношез’ ці написи мають поміпятися місцями. Який програмний код для цього необхідно записати?

Використання перемикачів і прапорців

Уводити дані можна, не лише набираючи текст або числа до текстового поля, а й обираючи один із запропонованих програмою варіантів. Це молена робити за допомогою так званих перемикачів і прапор-

 

ців, які створюють за допомогою елементів керуванні

RadioButton та

 

CheckBox відповідно. Як правило, ці еле-

менти керування використовують, щоб створити форми для тестування, опитування, голосування тощо.

ВИКОРИСТАННЯ ПЕРЕМИКАЧІВ

 

Елементи керування класу «перемикачі»

 

RadioButton дають змогу вибирати

на формі лише одне значення з деякого набору запропонованих значень (рис. 6.4).

Даний елемент керування може бути в одному з двох станів: перемикач увімкнено — * ;

перемикач вимкнено —

Вибираючи один з виглядів перемикача, змінюється його властивість Checked. Якщо пере

 

микач увімкнено, то Checked = True, якщо вимкнено — Checked = False.

Якщо потрібно на формі розташз'вати декілька грз'п з перемикачами, для цього використовзчоть елемент керування

 

GroupBox. Прикладом такого

грзчіз'вання молсе 63'ти форма, що містить декілька запитань на одній формі (рис. 6.5). ГрЗтіЗ'вания елементів необхідно перед-

бачити заздалегідь, до моменту вставлення їх на форму. Спочаткз' на формі слід розташувати елементи керз'вания GroupBox, а потім на пих розташз'вати елементи керзшаппя RadioButton. Основною властивістю елемента GroupBox є його підпис, який встановлює коршлувач, вико-ристовуючи властивість Text.

ВПРАВА33

Завдання. Створити проект «Найбільші міста України», в якому можна буде вибрати інформацію про одне з найбільших міст України. Після вибору міста в текстовому полі буде з’являтися інформація про рік його заснування, кількість населення та площу. Інформацію про міста можна знайти в мережі Інтернет або завантажити з файла Вправа_33 у папці Files на диску.

1. Створіть форму за зразком (рис. 6.6). Задайте перемикачам імена Я1, Я2, ЯЗ і R4 відповідно. Мітці розташованій над текстовим полем надайте ім'я І, для текстового поля —Т.

 

2. Задайте коди, щоб відображалася інформація про місто, вибране за допомогою перемикача.

а) Клацніть два рази на перемикачі Р1.

У результаті має з'явитися вікно коду, де буде

відображено заголовок процедури CheckedChanged (Зміна значення властивості Checked), що є подією за умовчанням для елемента керування RadioButton.

б) Введіть код для даної процедури.

'Надання об'єкту Label тексту, що має R1, а саме слова «Київ»

L.Text = Rl.Text

‘Формування та виведення тексту в текстовому полі T.Text = «Засноване у V столітті» + vbNewLine +_

«Кількість населення - 2904000» + vbNewLine + «Площа - 847,67 км кв.»

в) Для інших перемикачів задайте коди самостійно.

3. Запустіть проект та перевірте правильність його виконання.

Примітка. Часто після запуску проекту один з елементів керування RadioButton знаходиться вже в увімкненому стані, хоча за умовчанням у всіх перемикачів значення властивості Checked = False. Щоб такого не траплялося і всі перемикачі при запуску проекту були вимкнені, потрібно під час конструювання проекту для кожного RadioButton змінити значення властивості Checked спочатку на True, а потім знову на False.

4. Збережіть проект під назвою Вправа_33_Прізвище.

ВИКОРИСТАННЯ ПРАПОРЦІВ

 

 

 

Елементи керування класу «прапорці»

CheckBox використовують для того, щоб користувач мав змоіу обрати одне або декілька значень з деякого набору пропонованих значень (рис. 6.7).

Даний елемент керування може бути в одному з трьох станів, які можна встановлювати під час конструювання, змінюючи властивість CheckState:

® — перемикач увімкнено (CheckState = Checked);

□ — перемикач вимішено (CheckState = Unchecked); ^ — перемикач не мас визначеного етапу (CheckState = Indeterminate).

Після запуску проекту відображення прапорців можна змінити па стан увімкнено - або вимкнено —. У результаті чого змінюється властивість Checked, що набуває значення True або False відповідно.

 

Розташовуючи грзши прапорців, як і у випадку з перемикачами, застосовують елемент керування GroupBox.

ВПРАВА 34

Завдання. Створити проект «Дитяча кав’ярня «Золотий ключик»» (рис. 6.8), у якому користувач має обрати бажані страви, натискаючи на відповідні прапорці, що знаходяться біля їхніх назв. Встановлюючи прапорець, відповідний елемент керування стає неактивним. При натисненні на кнопку Редагувати замовлення прапорці стають порожніми та активними. Після вибору прапорців і натиснення на кнопку Сформувати замовлення з’являється вікно з текстовим повідомленням «Замовлення» (рис. 6.8), що містить перелік обраних страв.

1.  Розташуйте на формі елементи керування за зразком (рис. 6.8) самостійно. Спочатку додайте два елементи керування GroupBox, у яких потім розташуйте прапорці.

2. Задайте прапорцям імена С1, ..., С8 відповідно.

3.  У довільному місці форми додайте елемент керування Label, для якого надайте ім’я Zam, властивість Text залишіть у ньому порожньою, для властивості Visible встановіть значення False.

Даний елемент керування буде невидимим, але в ньому буде формуватися текст, який після натиснення кнопки Сформувати замовлення буде розташовано у вікні повідомлення.

4. Задайте коди, щоб при виборі страви за допомогою прапорця значення його тексту додавалося до об’єкта Zam, а сам прапорець ставав неактивним.

а) Клацніть два рази на прапорці С1. У результаті має відобразитися вікно коду, де буде записано заголовок процедури CheckedChanged, що є подією за умовчанням для елемента керування CheckBox.

б) Введіть код для даної процедури.

‘Додавання до текстового напису значення тексту обраного прапорця L.Text = L.Text + Cl.Text + vbNewLine ‘Прапорець стає неактивним Cl.Enabled = False

в) Для інших прапорців задайте коди самостійно.

5. Задайте код для кнопки Редагувати замовлення.

а) Введіть код, який буде робити прапорець порожнім та активним.

'Прапорець стає порожнім Cl.Checked = False 'Прапорець стає активним Cl.Enabled = True

б) Для інших прапорців допишіть код аналогічно.

в) Запишіть код для очищення об’єкта Zam від попередніх записів.

'Очищення текстового напису Zam.Text = Nothing

6.  Створіть код для кнопки Сформувати замовлення, у результаті якого має з’являтися текстове повідомлення з обраними стравами. MsgBox(Zam.Text, 0 + 64, «Замовлення»)

У даному коді Zam. Тext — текст, сформований в об’єкті Zam, 0+64 — кнопка Ok і значок «Інформація», «Замовлення» — заголовок текстового повідомлення.

7. Запустіть проект та переконайтеся у правильності його виконання.

8. Збережіть проект під назвою Вправа_34_Прізвище.

Висновки

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

Якщо в програмі виникає потреба вибрати один або більше варіантів з деякого набору запропонованих значень, використовують прапорці, які встановлюють на формі за допомогою елементів керування CheckBox.

Основною властивістю перемикачів і прапорців с властивість Checked. Якщо перемикач увімкнено, то Checked = True, якщо вимкнено — Checked = False.

Якщо на формі потрібно розташувати декілька груп, застосовуючи перемикачі або прапорці, використовують елемент керування GroupBox.

Контрольні запитання та завдання

1. Для чого використовують перемикачі та прапорці?

2. За допомогою яких елементів керування можна встановити перемикачі та прапорці?

3. Яка властивість визначає стан перемикачів?

4. У яких станах може знаходитися елемент керування СЬіескВох? Завдяки якій властивості ці етапи встановлюють?

5. Як розташувати на формі декілька груп перемикачів або прапорців?

Питання для роздумів

1. Вкажіть відмінності у використанні перемикачів і прапорців? 2. Наведіть приклади використання перемикачів (прапорців).

І Завдання для досліджень

1. Наведіть приклади використання перемикачів (прапорців) у текстовому редакторі MS Word.

2. Встановіть залежність між властивостями CheckState та Checked для прапорців. Які зміни відбуваються з властивістю CheckState при зміні властивості Checked?

Списки

 

Ще одним засобом для введення та виведення даних с списки (рис. 6.9). У VB.NET використовують два елементи керування для відтворення списків:

 

ListBox, що відтворює звичайні списки;

 

ComboBox. який створює випадаючі списки.

У списки можна сформувати назви річок, прізвища, розміри шрифтів, оцінки учнів тощо.

Кожен елемент списку мас свій помер. Нумерація в списках починається з нуля.

Формувати список можна як у режимі конструктора, так і під час виконання програмного коду. До списку можна додавати елементи, вилучати елементи, повністю очищати список.

ЕЛЕМЕНТ КЕРУВАННЯ LISTBOX

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

Щоб добавити значення до списку, є декілька способів.

 

У режимі конструктора відкрити діалогове вікно у властивості Items та ввести елементи списку (кожний елемент списку з нового рядка).

Це ж діалогове вікно можна відкрити в меню елемента керування ListBox, обравши команду Изменить злементьі...

(Змінити алемепти) (рис. 6.10).

Для опрацювання списків за допомогою програмних кодів використо-взпоть методи, можливості яких представлено в табл. 6.2.

Таблиця 6.2. Методи для опрацювання списків

Метод Опис

Приклад

Add

Додавання значення в кінець списку

ListBox.Items.Add(«січень»)

AddRange

Додавання значень усього списку

ListBoxl.Items.AddRange(ListBox2.Items)

Insert

Додавання значення під номером п із розсуванням списку

ListBox.Items.Insert(0, «лютий»)

Clear

Очищення списку

ListBox.Items.Clear()

RemoveAt

Вилучення елемента за вказаним номером

ListBox.Items.RemoveAt(0)

Remove

Вилучення елемента за вказаним значенням

ListBox.Items.Ветоуе(«лютий»)

Щоб визначити номер обраного мишкою елемента списку, використовують властивість Selectedlndex, а для виведення самого значення елемента списку — властивість Selected Item.

Щоб визначити значення елемента списку за його номером, використо-взчоть команду Listbox. Items. Item(n), де n — номер елемента списку.

Можливості створення та використання списків розглянемо, виконуючи вправи.

ВПРАВА 35

 

 

Завдання. Створити проект «Цифри», в якому об’єкт «список» містить перелік цифр записаний у вигляді тексту («нуль», «один», «два» і т. д.). При виборі елемента списку в текстовому написі розташованому поряд із списком записується відповідне значення у вигляді цифри (рис. 6.11).

1.  Розташуйте на формі елементи керування ListBox і Label. Надайте їм імена LB і Cifra відповідно. Задайте необхідні властивості елементам керування.

2. У режимі конструктора створіть список із значеннями «нуль», «один», «два» і т. д.

3. Введіть код, який здійснює реалізацію проекту.

а) Клацніть два рази на об’єкті список. У результаті має відобразитися вікно коду, де буде записано заголовок

процедури веІесІесІІпсіехСНапдесІ, що є подією за умовчанням для елемента керування І-ізІВох.

б) Введіть код для даної процедури.

‘Надання напису значення номеру елемента списку Сі-Рга-Техг = ІЬ.Беїесїесіїпсіех

4. Запустіть проект та переконайтеся у правильності його виконання.

5. Збережіть проект під назвою Вправа_35_Прізвище.

ЕЛЕМЕНТ КЕРУВАННЯ СОМВОВОХ

Ще один вид списків реалізовано за допомогою елемента керування

 

Combo Box, що мас вигляд випадаючого списку. Список розгортається після натиснення кнопки зі стрілкою. Після вибору елемента зі списку вій згортається, а вибраний елемент розташовується на текстовому полі.

Для створення та обробки елементів списку використовують ті самі властивості і методи, що і для елемента керування ListBox. На відміну від об'єкта ListBox, у ComboBox є властивість Text, що визначає значення тексту, який відображено в ньому, коли список згорнутий.

ВПРАВА 36

Завдання. Створити проект «Оцінки» (рис. 6.12), в якому в звичайному списку міститься перелік учнів, у випадаючих списках — перелік навчальних предметів і кількість балів. Після вибору прізвища інформація розташовується в об’єкті «напис» і список стає неактивним. Після вибору предмета та оцінки інформація потрапляє до текстового поля і здійснюється перехід на наступний рядок, значення обрані для наступного предмета та оцінки додаються в текстовому полі нижче. Кнопка Редагувати робить список з учнями активним, очищує напис, текстове поле та обрані значення у випадаючих списках. Кнопка Надіслати результат виводить текстове повідомлення (рис. 6.12), заголовком якого є прізвище та ім’я учня, а повідомлення містить інформацію про його успішність.

 

1.  Створіть форму за зразком (рис. 6.12, а), розташувавши на ній один список, два випадаючі списки, дві кнопки, напис і текстове поле.

2. Список назвіть ім'ям LB і введіть декілька прізвищ та імен учнів.

3.  Для випадаючих списків задайте імена СВ1 і СВ2 відповідно. До списку СВ1 введіть перелік навчальних предметів, до СВ2 — оцінки від 1 до 12.

4. Напису надайте ім’я PR, текстовому полю — Осіп, для текстового поля властивість Readonly (Тільки для читання) встановіть True. Інші властивості елементів керування встановіть самостійно.

5.  Введіть код для події вибору значення зі списку учнів. У результаті чого прізвище та ім'я учня мають відобразитися в об'єкті «напис», а список повинен стати неактивним.

а) Клацніть два рази на об’єкт ListBox.

б) Введіть код для даної процедури.

'Запис обраного прізвища та імені до об’єкта напис Pr.Text = LB.Selectedltem 'Список стає неактивним LB.Enabled = False

6. Введіть код для події вибору значень із випадаючих списків, після чого вони записуються до текстового поля.

а)  Клацніть два рази на об’єкт СВ2. У результаті має відобразитися вікно коду, де буде записано заголовок процедури SelectedlndexChanged, що є подією за умовчанням для елемента керування ComboBox.

б) Введіть код для даної процедури.

Осіп.Text = Осіп.Text + CBl.Text + « » + CB2.Text + vbNewLine Подія має відбуватися після покрокового вибору значень спочатку в списку СВ1, а потім — у СВ2. Отже, з даного коду видно, що до попереднього тексту буде додано текстове значення поля СВ1, далі через пробіл додано значення текстового поля СВ2 і здійснено перехід на наступний рядок завдяки команді vbNewLine.

7. Введіть код для кнопки Редагувати самостійно. В результаті список має стати активним, напис, текстове поле та значення, обрані у випадаючих списках, — порожніми.

8.  Введіть код для кнопки Надіслати результат, що виводить текстове повідомлення, в якому заголовком є прізвище та ім’я учня, а текст повідомлення містить інформацію про його успішність.

MsgBox(Ocin.Text, 0 + 64, Pr.Text)

 

9. Запустіть проект та переконайтеся у правильності його виконання.

10. Збережіть проект під назвою Вправа_36_Пріз-вище.

Висновки

Для створення списків використовують елементи керування ListBox і ComboBox.

Елемент керування ListBox дозволяє створити звичайний список, елементи якого завпеди відображені на формі. Елемент керування ComboBox дозволяє сформувати випадаючий список.

Щоб сформувати список у режимі конструктора, використовують властивість Items.

Для опрацювання списків за допомогою програмних кодів використовують такі методи: Add (додавання елемента), AddRange (додавання списку), Insert (додавання елемента на вказане місце), Clear (очищення списку), RemoveAt (вилучення вказаного за номером елемента), Remove (вилучення вказаного елемента).

Щоб визначити номер обраного мишею елемента списку, використовують властивість Selectedlndex, а щоб вивести саме значення елемента списку — властивість Selectedltem.

Щоб визначити значення елемента списку за його номером, використовзчоть команду Listbox.Items.Item(n), де /і — номер елемента списку.

Контрольні запитання та завдання

1. Для чого використовують списки?

2. За допомогою яких елементів керз'вання можна створити списки?

3. Як ввести елементи списку в режимі констрзчстора?

4. Як додати елементи списку, використовз'їочи програмний код?

5. Вкажіть методи, які дозволяють вштучити елементи зі списку.

6. За допомогою якої властивості можна визначити значення обраного в списку елемента? номер обраного в списіу елемента?

Питання для роздумів

Iе. Вкажіть відмінності у використанні елементів керзшаппя ListBox і ComboBox.

Завдання для досліджень

1. Наведіть приклади використання списків у MS Excel.

2’. Визначте призначення властивості Sorted, яку використовують для елементів керз'вання ListBox і ComboBox. У яких випадках зміна її значення є доцільною?

Типи величин

ОСНОВНІ ПОНЯТТЯ МОВИ ПРОГРАМУВАННЯ

Вам уже відомо, що однією із складових мови програмування с алфавіт. Алфавіт мови програмування VB.NET складається з таких символів:

• латинських літер та літер кирилиці;

• цифр від 0 до 9;

• символів арифметичних операцій (+, *, /, Л);

• символів відношення (=, <, > і т. ін.);

• розділових символів (крапка, кома, двокрапка і т. ін.);

• спеціальних символів (!,#,$ і т. ін.)

Створюють програмний код у мові програмування за допомогою так званих службових слів, що мають фіксоване стандартне призначення. Наприклад, End — кінець, Sub — процедура.

ПОНЯТТЯ ВЕЛИЧИНИ

Об'єкти, над якими виконуються певні операції в середовищі Visual Basic, прийнято називати величинами. Величини характеризуються іменем, типом і значенням.

Величинами в мові програмування називають об’єкти, над якими виконуються певні операції.

Правила запису імені величин:

• першим символом в імені має бути літера;

• ім’я може складатися з букв, цифр та символу підкреслення «_»;

• ім’я мас бути унікальним і не збігатися з ключовими словами (Sub, End, Now тощо);

• ім’я не може містити більше, ніж 255 символів.

Величини можуть бути різних типів, деякі основні типи величин представлені в табл. 6.3. Залежно від того, який тип мас величина, для неї виділяється певний обсяг у байтах па ділянці пам’яті.

Таблиця 6.3. Основні типи величин

Тип

Опис

Діапазон значень

Приклади

Integer

Цілі числа

* ± 2 млрд

-100, 0, 30000

Long

Довгі цілі числа

*±1017

-2000000000

Single

Десяткові числа до 6 знаків після крапки

*±ю38

-3,58; 78,00001

String

Текстові (рядкові)

до 65000 символів

“Hello", “2455"

Boolean

Логічні величини

True або False

True, False

Величини, значення яких е сталими під час виконання програми, прийнято називати константами.

Для опису копстапт у програмному коді записують команду:

Const <назва 1> = оначення 1>, <назва 2> = <значення 2> Наприклад,

Const pi = 3.14, t = «Інформатика»

Величини, які під час виконання програми можуть набувати різних значень, називають змінними.

ОГОЛОШЕННЯ ЗМІННИХ У ПРОГРАМІ

Перед використанням змінної її необхідно оголосити. Оголошують змінну, як правило, використовуючи команду Dim. Після переліку змінних вказується службове слово As, а за ним — тип змігших. Загальний вигляд оголошення змінних такий:

Dim <перелік змінних через кому> As <тип>

Якщо програма містить декілька типів змінних, тоді загальний вигляд їх буде такий:

Dim <перелік змінних 1> As стип 1>, <перелік змінних 2> As <тип 2> або

 

Dim <перелік змінних 1> As <тип 1>

Dim <перелік змінних 2> As <тип 2>

Наприклад,

Dim N, S As Integer

Dim al, a2 As Boolean, x2, zxc As Single Dim ab2. Текст As String

Висновки

Об’сісти, над якими виконуються певні операції в середовищі програмування, називають величинами. Вачичипи характеризуються іменем, типом і значенням.

Основні типи величин: Integer (цілі числа), Single (дійсні числа), String (текст), Boolean (логічний тип).

Величини, значення яких с сталими під час виконання програми, називають константами. Для опису констант у програмному коді викоритовують команд)' Const.

Величини, які під час виконання програми можуть набувати різних значень, називають змінними. Оголошують змінну, використовуючи команду Dim.

Контрольні запитання та завдання

1. Що таке величина? Чим вона характеризується?

2. Які правила використовують для запису імепі величин?

3. Назвіть основні типи величин.

4. Що таке константа? Як її описати?

5. Що таке змінна? Як описують змінні?

Питання для роздумів

1. Навіщо використовують різні типи даних цілих чисел? 2. Чи обмежена кількість змінних у програмі?

Завдання для досліджень

1. Визначте, які ще типи змінних використовують у середовищі програмування. Вкажіть їх можливі значення та призначення.

Присвоєння значень величинам

ОПЕРАТОР ПРИСВОЄННЯ

Щоб падати змінній деякого значення, для цього використовують оператор присвоєння. Власне його можливості вам уже відомі з попереднього розділу. Нагадаємо його загальний вигляд та принцип його виконання.

Оператор присвоєння мас вигляд:

<3мінна> = <вираз>

Виконуючи команду такого виду, програма спочатку виконує вираз, після чого присвоює його значення змінній, тобто записує значення виразу в ділянку пам’яті, що відведена для змінної.

Наприклад:

1. хі = Б (змінна хі одержує значення 5);

2. сі = - сі (значення змінної сі буде замінено па протилежне за знаком значення);

3. х = х + 1 (поточне значення змінної х буде збільшено на 1).

Отже, з наведених прикладів видно, що кожне наступне присвоювання значення змінній стирає її попереднє значення.

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

Так, неправильною буде команда tl.Visible = 5, оскільки властивість Visible може набувати тільки значення True або False.

Зазначимо також, якщо змінна а була оголошена типу Integer, то в результаті виконання дії присвоєння а = 2.3, змінна набуде значення 2 (відбздеться округлення дробового числа до цілого).

Коли змінну оголошено, її можна використовувати в програмному коді. Перше присвоєння значення змінній називають ініціалізацією. Зручним способом є поєднання оголошення та ініціалізації змінної.

Програмні коди наведені нижче є ідентичними.

Оголошення ЗМІННОЇ 3 наступною ініціалізацією

Поєднання оголошення та ініціалізації змінної

Dim a As Integer а = 100

Dim a As Integer = 100

Іноді, використання змінної, якій не було присвоєно початкове значення, може призвести до збою програми.

Для присвоєння змінним певних даних використовують елементи керування. Одним з поширених способів є використання текстового поля. Для присвоєння даних, що знаходяться в текстовому полі на формі, слід записати команду присвоювання, яка мас такий загальний вигляд:

<Ім’я змінної> = <Ім,я текстового поля>.Тех!

Наприклад, а = Textboxl.Text

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

Так, для присвоєння значення змінної елементові керування Label, треба записати команду, що мас такий загальний вигляд:

<Ім’я мітки>.Text = <Ім'я змінної:»

Наприклад,

Labell.Text = S

Для виведення значення змінної в текстове повідомлення, код записують таким чином:

MsgBox(S)

ВВЕДЕННЯ ДАНИХ ЗАСОБАМИ ДІАЛОГОВОГО ВІКНА

Присвоїти змінним значення можна, ввівши дані за допомогою діалогового вікна, яке викликають, використовуючи вбудовану функцію ІпріДВох. Функція ІпрігіВох мас такий синтаксис:

<змінна> = ІприіВох(<запрошення>, <заголовок>, <початковезначення>,_ <х-коорд. вікна>, <у-коорд. вікна>)

< змін на > — набуває значення виконання функції. Якщо введення значення закінчується натисненням Ок, то результатом функції о введене значення, а якщо Отмена, то результом о порожній рядок.

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

<заголовок — напис у рядку заголовка.

<початкове значення> — це значення, яке буде введено автоматично (за замовчуванням), якщо користувач погоджується з ним.

<х-коорд. вікна>, <у-коорд. вікна> — координати розташування вікна відпоєно екрана монітора.

При зверненні до фз'пкції ІпрійВох відкривається вітаю (рис. 6.13), па якому виводиться Запрошення і Заголовок, а в текстовому полі відображається Початкове значення.

 

Наприклад, виклик даного віїспа може бути описано наступним чином: а = Іпрі^Вох( «Введіть ваше прізвище та ім’я”, «Введення особистихданих»,_ «Петренко Іван»)

У функції ІпрійВох усі параметри, крім першого, можна пе застосовувати. Для використання цієї функції достатньо запису скороченої форми: <змінна> = ІприіВох(<запрошення>)

ВПРАВА 37_

 

Завдання. Створити проект, у якому деяким змінним мають бути присвоєні введені на формі прізвище та ім’я (рис. 6.14). Після натиснення на кнопку Привітання має з'явитися повідомлення у форматі «Привіт, <Ім'я> <Прізвище>».

1. Створіть форму за зразком (рис. 6.14). Надайте текстовим полям імена Т1 і Т2 відповідно. Інші властивості елементів керування встановіть самостійно.

2. Введіть код для кнопки Привітання.

‘Оголошення змінних

Dim Рг, Im As String

‘Присвоєння змінній Рг значення текстового поля ТІ Рг = ТІ.Text

‘Присвоєння змінній Im значення текстового поля Т2 Im = T2.Text 'Виведення текстового повідомлення

І^Вох(«Привіт, » & Іш & « » & Рг, 0 + 32, «Привітання»)

3. Запустіть проект та переконайтеся у правильності його виконання.

4. Збережіть проект під назвою Вправа_37_Прізвище.

ВПРАВА 38

Завдання. Створити проект, у якому деяким змінним мають бути присвоєні введені за допомогою діалогових вікон прізвище та ім’я. Після натиснення на кнопку Привітання має з'явитися повідомлення у форматі «Привіт, <1м'я> <Прізвище>».

 

1. Розташуйте на формі лише одну кнопку Привітання.

2. Введіть код для кнопки Привітання.

'Оголошення змінних Dim Pr, Im As String 'Присвоєння значення змінній Рг Pr = InputBox(«Введіть своє прізвище»,«Введення прізвища»)

'Присвоєння значення змінній Im

Im = ІприїВох(«Введіть своє ім’я»,«Введення імені»)

'Виведення текстового повідомлення

MsgBox(«npnBiT, » & Im & « » & Pr, 0 + 32, «Привітання»)

3. Запустіть проект та переконайтеся у правильності його виконання.

4. Збережіть проект під назвою Вправа_38_Прізвище.

Висновки

Щоб надати змінній деякого значення, використовують оператор присвоєння. Загальний вигляд оператора такий: <змінна> = <вираз> Щоб вводити дані, можна використовзгвати діалогове вікно, що викликається за допомогою вбудовапої функції ІпріЛВох, яка мас вигляд: <змінна> = ІпрЩВох(<запрошення>, <заголовок>, <початкове значення>,_ <х-коорд. вікна>, <у-коорд. вікна>)

Контрольні запитання та завдання

1. Опишіть принцип виконання команди присвосния.

2. Що таке ініціалізація?

3. За допомогою якої команди можна ввести дані через діалогове вікно? Опишіть її синтаксис.

Питання для роздумів

Iе. Вкажіть команду присвоєння для збільшення змінної а в два рази. 2. Чим відрізняється ініціалізація від присвоєння?

Завдання для досліджень

1. Що буде записало в діалоговому вікні для введення даних, якщо у функції ІпрігіВох не вказати параметр заголовка?

2. Який вигляд буде мати програмний код, у якому пропущено один з параметрів функції ІпрігіВох?

Співвідношення типів даних та елементів для введення даних

У попередніх параграфах ми розглянули використання різних елементів керування, що дозволяють вводити та виводити різні типи даних при запуску проекту на виконання. Призначення розглянутих елементів керування наведено в табл. 6.4.

Таблиця 6.4. Призначення основних елементів керування

Елемент керування

Призначення

Label

(текстовий напис)

Виведення текстового повідомлення

TextBox

(текстове поле)

Введення та виведення тексту

Button

(кнопка)

Запуск програмного коду

RadioButton (перемикач)

Вибір одного із запропонованих значень

CheckBox (прапорець)

Вибір одного або більше із запропонованих значень

ListBox

(список)

Представлення списку елементів

ComboBox

(випадаючий список)

Представлення випадаючого списку

Також ми розглянули можливість виведення даних за допомогою вікна текстового повідомлення, що здійснюється за допомогою команди MsgBox, та введення даних за допомогою команди InputBox.

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

ВВЕДЕННЯ ТА ВИВЕДЕННЯ ЧИСЛОВИХ І ТЕКСТОВИХ ВЕЛИЧИН

Числові величини в мові програмування мають такі основні типи: Integer, Long, Single; а текстові величини мають тип String. Усі елементи керування, крім ListBox, мають властивість Text, завдяки якій можна виводити числові та текстові величини у вигляді напису на даному елементі керування.

Змінним, яга оголошені як числові або текстові величини, можна присвоїти значення властивості Text. Якщо величина була оголошена числовою, а властивість Text замість чисел містить літери, то при виконанні програмного коду буде видало помилку про невідповідність типів, але не навпаки, оскільки будь-яке число може бути визначено як набір символів, представлених у вигляді цифр.

 

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

Форма Forml містить значення елементів керування Label і TextBox, як на рис. 6.15.

У вікні коду описано змінні таким чином:

Dim a, b As Integer, х, у, z As String Розглянемо приклади кодів присвоєння змінним деяких значень:

а = Label .Text — змінна а набуде значення «100»; х = Label.Text — зміннах набуде значення «100»; b = TextBox.Text — присвоєння помилкове, оскільки значення властивості Text є текстом, а змінна b мас тип Integer (ціле число); у = Text Box. Text — змінна у отримає значення «100 гри»; z = Forml.Text — зміннаг отримає значення «Приклад».

Для виведення даних у програмному коді здійснюють присвоєння властивості Text різних елементів керування значень змінних. Наприклад, Label.Text = а — на мітку Label буде виведено числове значення змінної а.

TextBox .Text = х — у текстовому полі TextBox буде виведено текстове значення змінної х.

У більшості випадків значення властивості Text для введення та виведення даних використовують переважно для елементів керування Label, TextBox, ComboBox.

Зазначимо також, що є випадок, коли властивості Text елемента керування TextBox не можна присвоїти значення числової величини. Це тоді, коли його властивість MultiLine приймає значення True. В цьому випадку TextBox може отримувати тільки значення текстових змінних типу String.

Що ж робити, коли все ж таки виникає потреба вивести до такого текстового поля числові значення? У такому разі треба числову величину перевести в рядковий тип з допомогою функції Cstr(<iM,B величиню).

Зрз'чиими для введення та виведення значень величин є елементи керування ListBox і ComboBox, які призначені для створення та відображення списків.

Для присвоєння змінній елемента списку використовують команди: <змінна> = Listbox.Items.Item(n) — присвоєння змінній значення елемента списку під номером п;

<змінна> = Listbox. Selectedltem — присвоєння змінній значення виділеного елемента.

Аналогічно коди записують і для випадаючого списку ComboBox. Щоб до списку занести значення змінної, використовують команди: ListBoxl. Items - Add (<змінна>) —додати значення змінної до списку. ListBoxl.Items.Insert(п, <змінна>) —додати значення змінної до списку під номером п (у цьому випадку попередні позиції списку не повинні бути порожніми).

ВВЕДЕННЯ ТА ВИВЕДЕННЯ ЛОГІЧНИХ ВЕЛИЧИН

Величини логічного типу одержують значення перевалено від перемикачів і прапорців.

Інформація, яку отримують від користувача елементи керування RadioButton (перемикач) і CheckBox (прапорець), — це встановлення одного зі станів: увімкнено (True) або вимішено (False). Значення такого типу можуть отримувати змінні логічного типу, що при оголошенні змінних записують як Boolean.

Щоб присвоїти змінним значення, що відображають стан перемикачів і прапорців, можна записати команди в такому вигляді:

Dim a, b As Boolean

а = RadioButtonl.Checked

b = CheckBoxl.Checked

Як бачимо, саме значення властивості Checked визначає стан перемикачів і прапорців.

Значення Тrue або False змінні логічного типу можуть отримати і з інших елементів керування з властивості Text. Проте ця властивість може набувати лише значення True або 1 у разі істинності та False або 0, якщо потрібно повідомити про хибне значення. Інакше програма сповістить про помилковий код. Також при виведенні значення логічних змінних до властивості Text буде виведено тільки одне із значень True або False.

Значення логічних змінних можна надавати таким властивостям, як Visible, Enabled тощо.

Наприклад, Button .Visible = а — оскільки змінна а мас тип Boolean, то иабз'вас значення True або False.

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

ВПРАВА39

Завдання. Створити проект, у якому реалізувати введення двох значень за допомогою елементів керування TextBox. У програмному коді реалізувати присвоєння цих значень змінним різних типів та виведення результату їх додавання до елементів керування Label.

1. Створіть проект за зразком (рис. 6.16), надавши елементам керування імена, що вказані у виносках зображення форми.

2. Задайте коди для процедури натиснення на кнопку.

а)  Натисніть два рази на кнопку та у вікні програмного коду введіть опис змінних: Dim al, а2 As Integer, bl, Ь2 As Single, cl, c2 As String

б) Введіть код для присвоєння змінним значень відповідних текстових

полів: аі = ТІ.Text а2 = T2.Text bl = ТІ.Text Ь2 = T2.Text cl = ТІ.Text с2 = T2.Text

в) Введіть код для виведення результатів додавання змінних одного типу до елементів керування Label: Ll.Text = al + а2 L2.Text = bl + Ь2 L3.Text = cl + c2

 

3. Запустіть проект на виконання та введіть до текстових полів два цілих числа. Наприклад, 5 і 6. Натисніть кнопку Обчислити. Проаналізуйте виведені результати: результати додавання цілих і дійсних чисел є однаковими (11), при додаванні рядкових величин цифри мають бути написані поруч «56».

4.  Змініть значення текстових полів на дробові числа. Наприклад, 5,5 і 4,2. Натисніть кнопку Обчислити. Проаналізуйте виведені результати: при додаванні значень змінних цілого типу результат буде округлено до цілого значення (10), при додаванні чисел дійсного типу буде результат 9,7, а при додаванні рядкових величин знову символи будуть дописані один за одним (5,54,2).

5. Змініть значення текстових полів на деякий текст. Натисніть кнопку Обчислити. В результаті програма має повідомити про помилку в її коді. Адже відбудеться присвоєння змінним числового типу текстових значень, що неприпустимо.

6. Поекспериментуйте із введенням різних значень до текстових полів.

7. Збережіть проект під назвою Вправа_39_Прізвище.

Висновки

Введення та виведення числових і текстових величин у більшості випадків здійснюють за допомогою значень властивості Text елементів керування Label, TextBox, ComboBox.

Якщо властивість MultiLine елемента керування TextBox набуває значення True, властивості Text можна присвоїти тільки значення змінних рядкового типу.

Щоб перевести числову величину в рядковий тип, використовують фзапсцію Cstr().

Введення та виведення значень змінних можливе до властивості Item елементів керування ListBox і ComboBox, що призначені для створення та відображення списків.

Величніш логічного типу одержують значення переважно від перемикачів і прапорців.

Контрольні запитання та завдання

1. Які елементи керування можуть відображати значення числових і текстових величин?

2. За допомогою яких елементів керування можна вводити числові та текстові значення?

3. З яких елементів керування одержують значення логічного типу?

Питання для роздумів

1. Що спільного в елементах керування Label і Button?

2\ Чи може список містити елементи різних типів? Поясніть, чому.

Завдання для досліджень

1. Визначте, яке значення набуває за умовчанням змінна логічного типу. 2. Дослідіть, яким буде резз'льтат обчислень, якщо у вправі 39 знак додавання замінити па віднімання. Поясніть одержані результати.

Числові величини

АРИФМЕТИЧНІ ОПЕРАЦІЇ

 Часто при обробці дапих використовують числові величини цілого та дійсного типу. До числових величин відносять змінні типу Integer, Long, Single тощо. Щоб описати дії з числовими даними, використовзчоть арифметичні вирази. Вони дають змогу використовз'вати різноманітні математичні формули. Користувач самостійно створює арифметичні вирази, комбінуючи константи, змінні, фзтпсції та поєднуючи їх із символами арифметичних операцій (табл. 6.5).

Операція або функція

Пояснення

Приклад

Пріоритет операції

+

додавання

2 + 6 = 8

5

віднімання

2 - 6 = -4

5

множення

2 * 6 = 12

2

/

ділення

7 / 2 = 3,5

2

\

ділення націло

7 \ 2 = 3

3

Mod

остача від ділення

7 Mod 3 = 1

4

л

піднесення до степеня

U)

>

II

VO

1

(І ВПРАВА 40

 

Завдання. Створити проект визначення площі прямокутника за його сторонами, в якому при натисненні на кнопку Пуск обчислюється значення площі.

Створюючи проекти, які потребують обчислень, бажано дотримуватися певної послідовності дій, що буде представлена при виконанні даної вправи. В залежності від складності розв'язання задачі деякі дії можна пропускати.

1. Визначте вхідні та вихідні дані.

Визначте імена змінних, яким вони будуть присвоєні.

Вхідні: a, b — сторони прямокутника.

Вихідні: S— площа прямокутника.

2.  Визначте математичну модель розв’язання задачі. (В даному випадку математична модель — це формула, за якою дана задача має бути розв’язана). Згідно визначеної формули (формул) встановіть, які можливо ще проміжні змінні будуть використані при розв’язанні задачі.

S=ab.

 

Як видно з обраної формули, для розв’язання даної задачі проміжні змінні не потрібні.

3. Створіть форму для реалізації проекту за зразком (рис. 6.17).

4.  Надайте імена текстовим полям Т1 і Т2, а мітці, що має містити результат, — L. Встановіть для мітки L властивості AutoSize = False, BorderStyle = Fixed3D.

5. Запишіть програмний код кнопки Обчислити.

‘оголошення змінних Dim a, b, S As Integer

‘присвоєння змінній а вмісту першого текстового поля а = ТІ.Text

‘присвоєння змінній b вмісту другого текстового поля

b = T2.Text

‘формула обчислення площі S = а * Ь

‘присвоєння мітці значення площі S Ll.Text = S

Зауваження.За умови введення даних за допомогою функції InputBox і виведення результату з використанням процедури MsgBox для реалізації даного проекту використанням елементів керування на формі можна знехтувати. А програмний код записати для події клацання на форму в такому вигляді:

‘оголошення змінних Dim a, b, S As Integer ‘присвоєння значення змінній а а = InputBox(«a=»)

‘присвоєння значення змінній b b = InputBox(«b=»)

‘формула обчислення площі S = а * b

‘виведення значення площі S MsgBox(«S=» & S)

6. Запустіть проект та переконайтеся у правильності його виконання.

Після запуску проекту необхідно ввести два числа та натиснути кнопку Обчислити. Переконайтеся, що результат виконання програми є добутком цих чисел. Наприклад, для чисел 5 і 6 результат має бути ЗО.

Процес перевірки правильності виконання програми за різних умов і значень називають тестуванням програми.

 

7. Збережіть проект під назвою Вправа_40_ Прізвище.

Зверніть увагу, що в більшості випадків, код програми з використанням змінних складається з чотирьох частин (рис. 6.18): оголошення змінних, введення даних, обробка даних, виведення результату. В залежності від умови задачі деякі частини можуть бути опущені.

ЗАДАЧІ НА ЦІЛОЧИСЕЛЬНЕ ДІЛЕННЯ

Розв’язуючи різноманітні задачі з програмування, часто виникає потреба у визначенні цифр цілого числа. Використовуючи арифметичні операції ділення наділо та визначення остачі від ділення (Mod), можна вивести формули, що дозволять визначити цифру числа будь-якої розрядності. В таблиці 6.6 наведено, як знаходити цифри чисел до четвертого розряду. Пропоновані формули стануть у нагоді при подальшому розв'язуванні задач.

Необхідно знайти

Вираз

Приклади

Остання цифра числа

a Mod 10

18 Mod 10 = 8 325 Mod 10 = 5 1789 Mod 10 = 9

Знаходження першої цифри двоцифрового числа

а \ 10

18 \ 10 = 1 32 \ 10 = 3

Знаходження першої цифри трицифрового числа

а \ 100

185 \ 100 = 1 327 \ 100 = 3

Знаходження першої цифри довільного числа

а \ 10Л(п-1), дел — розрядність числа

123456 \ 10Л5 = 1 78934555 \ 10л7 = 7

Знаходження другої цифри трицифрового числа

а \ 10 Mod 10

736 \ 10 = 73 -* 73 Mod 10 = 3

Знаходження другої цифри чотирицифрового числа

а \ 100 Mod 10

7362 \ 100 = 73 73 Mod 10 = 3

Знаходження третьої цифри чотирицифрового числа

а \ 10 Mod 10

7362 \ 10 = 736 -» 736 Mod 10 = 6

 

Завдання. Створити проект обчислення суми квадратів цифр цілого трицифрового числа.

Ц ВПРАВА 41

 

 

1. Визначте вхідні та вихідні дані.

Вхідні: a— трицифрове число.

Вихідні: у — сума квадратів цифр числа.

2. Визначте математичну модель розв’язання задачі.

а) Знайти цифри числа: а1 = а \ 100 — перша цифра; а2 = а \ 10 Mod 10 — друга цифра; аЗ = аMod 10 — третя цифра.

б) Знайти суму квадратів цифр числа:

у = а1Л2 + а2л2 + аЗл2.

3. Створіть форму для реалізації проекту за зразком (рис. 6.19).

4. Надайте імена текстовому полю Т, а мітці — L.

5. Запишіть програмний код для кнопки:

‘оголошення змінних Dim а, аі, а2, аЗ, у As Integer ‘введення числа а = T.Text

‘визначення першої цифри числа аі = а \ 100

'визначення другої цифри числа а2 = а \ 10 Mod 10 ‘визначення третьої цифри числа al = a Mod 10

‘знаходження суми квадратів цифр у = а1Л2 + а2л2 + аЗл2 L.Text = у

6. Запустіть проект та переконайтеся в правильності його виконання. (При а = 234 вийде у = 29).

7. Збережіть проект під назвою Вправа_41_Прізвище.

ВПРАВА 42_САМОСТІЙНО

Завдання. Створити проекти для розв’язування задач.

а) Обчислити добуток другої та третьої цифр цілого чотирицифрового числа.

б) Обчислити суму цифр чотирицифрового числа.

в) Знайти суму першої та п’ятої цифр п'ятицифрового числа.

г) ' Знайти добуток цифр, що стоять на парних місцях шестицифровогс числа.

ґ)’ Нехай в будинку £ поверхів та т квартир на поверсі. Дано К — номер квартири. Визначте, на якому вона поверсі та в якому під'їзді.

Висновки

Щоб записати арифметичний вираз, використовують такі арифметичні операції: «+» (додавання), «-» (віднімання), «*» (множення), «/» — ділення, «\» — ділення паціло, «Mod» — остача від ділсппя, «А» — піднесення до степеня.

Щоб знайти останню цифру будь-якого числа, використовують вираз a Mod 10.

Щоб знайти перш}' цифру довільного числа, використовують вираз а \ 10л(п-1), де п — розрядність числа.

Контрольні запитання та завдання

1. Назвіть типи числових величин.

2. Вкажіть пріоритет арифметичних операцій.

3. Що таке тестування програми?

4. Як зпайти першу' цифру двоцифрового числа? трицифрового числа? довільного числа?

5. Як знайти останню цифру довільного числа?

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

2\ Для розв’язування яких задач можна використати арифметичні операції цілочисельного ділення?

Завдання для досліджень

1. Вкажіть вирази, за допомогою яких можна визначити цифри чотирицифрового числа.

2. Визначте загальну формулу для знаходження другої цифри довільного числа.

Стандартні математичні функції

Для виконання більш складних обчислень у математиці використовують різноманітні функції. В мові програмування Visual Basic.NET також с власні математичні функції. Аргумент функції завжди беруть у дужіш. Аргументом може бути константа, змінна, арифметичний вираз або інша функція.

Математичні функції в кодах програми записують разом з префіксом Math.

Наприклад, щоб присвоїти змінній а значення модуля числа Ь, треба записати код:

а = Math.Abs(b),

де Abs — функція обчислення модуля числа.

У таблиці 6.7 наведено деякі основні математичні функції класу Math. Можливо деякі з них ви ще навіть не вивчали на уроках математики, проте згодом вони вам стануть у пагоді при розв’язуванні різноманітних задач. Щоб дізнатися про призначення деяких функцій, які не представлені в таблиці, потрібно після введення в програмному коді префікса Math навести курсор на будь-яку функцію. Відразу з’явиться спливаюча довідка з поясненням призначення та синтаксису даної функції.

Функція

Математичний

запис

Пояснення

Приклад

Abs(x)

X

модуль числа

Math.Abs(-4.5) = 4,5

Ceiling(x)

 

найменше ціле, яке більше від заданого дробового числа

Math.Ceiling(l.l) = 2

Cos(х)

COS X

косинус числа (кут вимірюється в радіанах)

Math.Cos(3.14) = 0,999

Floor(x)

 

найбільше ціле, яке менше від заданого дробового числа

Math.Floor(l.1) = 1

PI

n

число п

Math.PI = 3,1415926

Round(x,n)

 

округлення числа, де х — число, п — кількість цифр у дробовій частині

Math.Round(10.56,1) = 10,6

Sin(x)

sin X

синус числа

Math.Sin(1.3) « 0,96

Sqrt(x)

Vx

корінь квадратний з числа

Math.Sqrt(100) = 10

Tan(x)

tgx

тангенс числа

Math.Tan(l.S) » 14,1

 

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

Також зверніть увагу на написання дійсних чисел: у програмному коді для розділення цілої та дробової частини використовують крапку, а в елементах керування — кому.

 

ВПРАВА 43

Завдання. Дано цілі значення а, Ь, с. Створити проект для обчислення значеньх тау за вказаними нижче формулами.

 

1. Створіть форму за зразком (рис. 6.20).

2. Надайте імена текстовим полям Т1, Т2 і ТЗ відповідно, а міткам, що мають містити результат, — І_1 і 1_2.

3. Запишіть програмний код для кнопки Обчислити.

'оголошення змінних

Dim a, b, с As Integer., х, у As Single 'введення даних а = ТІ.Text b = Т2.Text с = ТЗ.Text

'введення формули обчислення значення х х = (Math.Sqrt(a + 1) - Math.Abs(c)) / (b Л 2 + 1)

‘введення формули обчислення значення у у = Math.Sqrt(a *b*c + a/b) + Math.Abs(a)

‘виведення значень х та у на мітки Ll.Text = х L2.Text = у

Оскільки результатом виконання програми є дійсне число, і велика кількість знаків після коми не завжди є суттєвою, можна при виведенні результату зменшити кількість знаків після коми, застосувавши функцію форматування. Так, замість коду Ll.Text = х можна записати

Ll.Text = Format(x, «0.000»). У цьому записі визначено, що після коми в числі буде три знаки.

4. Змініть програмний код, застосувавши до змінних, що містять результат, функцію форматування.

5.  Запустіть проект та переконайтеся в правильності його виконання. (При а=1,Ь = 1,с = 1 ви маєте отримати:х = 0,207;у = 2,414).

6. Збережіть проект під назвою Вправа_43_Прізвище.

Висновки

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

Математичні функції в кодах програми записують разом із префіксом Math.

Основні математичні функції: Abs(x) —модульчисла; Round(x,n)— округлення числа, Sqrt(x) — корінь квадратний з числа.

Контрольні запитання та завдання

1. Як правильно записати математичні функції в програмз'ванні?

2. За допомогою якої функції можна знайти корінь з числа або виразу?

3. Як виконати округлення числа до двох знаків після коми?

1. Як у середовищі програмування дізнатися про призначення математичної функції?

2\ Який тип буде мати результат виконанні функції Ма1:Ь.АЬ5(х)? Маііі.БдгІДх)?

Завдання для досліджень

1. Дізнайтеся більш докладно про можливості використання функції FormatQ.

Величини текстового типу

Комп’ютер може виконувати різноманітні дії не лише з числовими величинами, а й з текстовими. Нагадаємо, що текстові величніш в середовищі програмування мають тип String. Змінна типу String — це рядок символів досить великої довжини, приблизно до двох мільярдів символів. Значення рядкових змінних записують у лапках, наприклад, «Приклад тексту».

Над текстовими даними визначена лише операція додавання, для цього використовують символи «+» або «&». Так рівносильними будуть програмні коди:

а = «ком» + «пот» та а = «ком» & «пот»

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

Таблиця 6.8. Основні функції для роботи з рядковими величинами

Функція

Призначення

Приклад

Вираз

Результат

АБС(рЯДОК)

Визначає код символу

х = Asc(«д»)

228

СИг(код символу)

Визначає символ за його кодом

а = Chr(228)

«Д»

Брасе(довжина)

Виводить рядок пробілів заданої довжини

а = Space(5)

« »

1_еп(рядок)

Визначає довжину рядка без урахування лапок

х = Len(«Привіт»)

6

1_5е1(рядок,

довжина)

Визначає задану кількість символів 3 початку рядка

а = LSet(«компот»,3)

«ком»

Місі(рядок,

позиція,

довжина)

Визначає задану кількість символів вибраної з рядка тексту, починаючи із заданої позиції

а = Міс1(«трапеція»,1,4)

«трап»

И:гіт(рядок)

Вилучає пробіли на початку рядка

а = Ltrim(« привіт »)

«привіт »

Вігіт(рядок)

Вилучає пробіли наприкінці рядка

а = Rtrim(« привіт »)

« привіт»

Тгіт(рядок)

Вилучає пробіли

на початку та наприкінці

рядка

а = Trim(« привіт »)

«привіт»

Іп51г(рядок,

підрядок)

Номер позиції першого входження підрядка в рядок

х = InStr(«lH<|>opMaTHKa», «форма»)

3

Вер1асе(рядок, під рядок 1, підрядок2, початок)

Знаходить у рядку підрядом та змінює на підрядок2, починаючи із заданої позиції

а = Replase(«KOTHK», «кот»,«рот»,1)

«ротик»

ІСаБе(рядок)

Перетворює всі великі літери на малі

а = LCase(«Програма»)

«програма»

исазе(рядок)

Перетворює всі малі літери на великі

а = UCase(«Програма»)

«ПРОГРАМА»

ЗігРеуегее

(рядок)

Розташовує символи в зворотному порядку

а = StrReverse(«$opMa»)

«амроф»

ВПРАВА 44

Завдання. Створити проект, у якому замінити в тексті всі літери «а» на «о».

1. Визначте вхідні та вихідні дані. Визначте імена змінних, яким вони будуть присвоєні. Вхідні: х —даний текст.

Вихідні: у — змінений текст.

2. Задайте програмний код для події клацання на формі.

Dim х, у As String

х = ІприіЬох(«Введіть текст»)

'Заміна в заданому рядку одного символу на інший, починаючи з 1-го у = Replace(x, «а», «о», 1)

MsgBox(y)

3. Збережіть проект під назвою Вправа_44_Прізвище.

ВПРАВА 45

Завдання. Створити проект, у якому із слова «програмування» утворюються нові слова: «амур», «пара», «варан», «ураган». Дані слова вивести в текстовому повідомленні в стовпчик.

1. Визначте вхідні, вихідні дані та проміжні змінні.

Визначте імена змінних, яким вони будуть присвоєні.

Вхідні: а — даний текст.

Вихідні: f— нові слова, розташовані в стовпчик.

Проміжні: b, с, d, g — нові слова.

2. Задайте програмний код для події клацання на формі.

Dim a, b, с, d, g, f As String

a = «програмування»

'амур

b = Mid(a, 6, 2) + Mid(a, 8, 1) + Mid(a, 5, 1)

'пара

c = Mid(a, 1, 1) + Mid(a, б, 1) + Mid(a, 5, 1) + Mid(a, 10, 1)

'варан

d = Mid(a, 9, 2) + Mid(a, 5, 2) + Mid(a, 10, 2)

'ураган

g = Mid(a, 8, 1) + Mid(a, 5, 2) + Mid(a, 4, 1) + Mid(a, 10, 2)

'поєднання слів в одну змінну з переходом на новий рядок після_ кожного слова

f = b + vbNewLine + с + vbNewLine + d + vbNewLine + g MsgBox(f)

3. Самостійно додайте принаймні ще три слова.

4. Збережіть проект під назвою Вправа_45_Прізвище.

ВПРАВА 46

Завдання. Створіть проект, у якому користувач має ввести своє ім’я маленькими літерами, а в текстовому повідомленні має бути виведено це ж ім’я з великої літери.

1. Визначте вхідні, вихідні дані та проміжні змінні.

Визначте імена змінних, яким вони будуть присвоєні.

Вхідні: а — ім’я, введене маленькими літерами.

Вихідні: х — ім’я, у якому перша літера велика, інші — маленькі. Проміжні: b, с, d, g — нові слова.

2. Задайте програмний код для події клацання на формі.

Dim a, b As String

а = InputBox(«BeefliTb ім’я маленькими літерами»)

‘Одержання першої літери b = LSet(a, 1)

‘Перетворення маленької літери на велику b = UCase(b)

'Відкидання у даному імені першої літери а = МісІ(а, 2, 1_еп(а))

‘З’єднання першої великої літери з іншою частиною імені

Ь = Ь + а

Мб§Вох(Ь)

З’. Організуйте введення також прізвища та по батькові маленькими літерами. Здійсніть виведення прізвища, імені та по батькові в стовпчик у текстовому повідомленні, починаючи з великої літери.

4. Збережіть проект під назвою Вправа_46_Прізвище.

Висновки

Текстові величини мають тип String.

Значення рядкових змінних записують у лапках.

Над текстовими даними визначена операція додавання, для якої використовують символи «+» або «&».

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

Контрольні запитання та завдання

1. Який тип мають текстові величини?

2. Як виконати додавання текстових значень?

3. За допомогою якої функції можна знайти довжину рядка?

4. Як вилучити зайві пробіли в тексті?

5. Яга функції дозволяють із заданого тексту виділити його частину?

Питання для роздумів

1. Як у заданому тексті вилучити деякий текст?

2. Як встановити пробіл між двома текстовими величинами а і Ь, значення яких необхідно розташувати послідовно?

Завдання для досліджень

1. Як можна порівняти текстові величини?

Складання та виконання лінійних алгоритмів опрацювання величин в навчальному середовищі програмування

ПРАКТИЧНА РОБОТА №10

 

Завдання 1. Створити проект для розв'язання задачі.

Автобус, що рухався зі швидкістю а км/год, доїхав до міста за Ь хв. З якою швидкістю повинен рухатись велосипедист, щоб проїхати ту саму відстань до міста за с год та (і хв? Відповідь подати в км/год.

1. Визначте вхідні та вихідні дані.

Вхідні: а — швидкість автобуса; Ь — час, який рухався автобус; с, (І — кількість годин і хвилин, що має рухатися велосипедист.

 

Вихідні: Уи — швидкість велосипедиста.

2. Визначте математичну модель розв’язання задачі:

Для зручності запишемо дані у вигляді таблиці.

 

Швидкість

Час

Відстань

Автобус

а (км/год)

ь(хв)

 

Велосипедист

?

с (год) с/ (хв)

 

Таи = Ь І 60 (год) — час, який рухався автобус, у годинах.

Баи = а • Іаи (км) — відстань, яку проїхав автобус.

Ти = с + (і І 60 (год) — час, який рухався велосипедист, у годинах.

Уи = ваи ■ Ти (км/год) — швидкість велосипедиста.

Створивши математичну модель, ми визначили, що для розв’язання задачі потрібно застосувати проміжні змінні: Таи, Баи, Ти.

3. Створіть форму для реалізації проекту та введіть необхідний програмний код.

4. Збережіть проект під назвою ПР10_Завдання1_Прізвище.

Завдання 2. Створити проект для знаходження гіпотенузи прямокутного трикутника за її катетами. Реалізувати введення значень катетів і послідовне виведення у вигляді списку обчислень гіпотенузи при різних значеннях катетів.

 

1. Визначте вхідні, вихідні дані.

Визначте імена змінних, яким вони будуть присвоєні. Вхідні: а, Ь — катети.

Вихідні: с — гіпотенуза.

2. Визначте математичну модель розв’язання задачі.

3. Створіть форму за зразком (рис. 6.21), надайте спискам імена 1_В1 і 1_В2.

4. Введіть програмний код для процедури натиснення на кнопку.

 

Dim a, b, c As Single, x As String a = InputBox(«a=»,«Перший катет») b = InputBox(«b=»,«Другий катет») c = Math.Sqrt(a л 2 + b A 2)

'Рядкова змінна одержує значення двох катетів відокремлених відступом х = CStr(a) + vbTab + CStr(b)

'Виведення значень катетів до першого списку LB1.Items.Add(x)

 

'Виведення значення гіпотенузи з форматуванням до другого списку LB2.Items.Add(Format(с, «0.0»))

5. Запустіть проект та перевірте правильність його виконання, увівши декілька разів значення катетів.

6'. Самостійно додайте ще один список, у якому реалізуйте виведення результату знаходження синусу кута, що лежить навпроти катета а.

7. Збережіть проект під назвою ПР10_Завдання2_Прізвище.

Величини логічного типу. Програми з розгалуженням

У сьомому класі, вивчаючи мову програмування Scratch, ви ознайомилися з командами розгалуження. Ці команди використовують, коли виконання тієї чи іншої дії залежить від виконання певної умови.

Вибір однієї з двох послідовностей дій залежно від виконання або невиконання деякої умови називають розгалуженням.

Алгоритм, що містить одну або галька умов і, відповідно, дві та більше гілок, називають алгоритмом з розгалуженням.

ЛОГІЧНІ ВИРАЗИ

Щоб сформувати умови в команді розгалуження, використовують логічні вирази. Логічний вираз може набувати значення True (істинність) або False (хибність).

Простий логічний вираз — це два арифметичні вирази, з’єднані символом відношення (табл. 6.9).

Таблиця 6.9. Символи відношень

Символ

Дія порівняння

-

дорівнює

>

більше

<

менше

>=

більше або дорівнює

<=

менше або дорівнює

о

не дорівнює

Приклади простих логічних виразів та їх значення наведено в таблиці 6.10. Таблиця 6.10. Приклади простих логічних виразів

a = 2, b = 3

Логічний вираз

Значення

a = b

False

a + b = 5

True

a >= b

False

a <> b

True

a + b <> b — a

True

 

Вирази, з’єднані між собою логічними операціями And (і), Or (або), Not (не), є складеними логічними виразами (табл. 6.11).

Для визначення істинності або хибності складених логічних виразів використовують так звані таблиці істинності.

Таблиця б. 11. Логічні операції

Оператор

Назва

Пріоритет

Not (не)

Логічне заперечення

1

And (І)

Логічне множення

2

Or(або)

Логічне додавання

3

 

Таблиця 6.12. Таблиця істинності операції Not (логічне заперечення)

Логічне заперечення. Операція Not (логічне заперечення), що застосовується до виразу X, дає хибний результат, якщо вираз X є істинним, і навпаки (табл. 6.12).

Логічне множення (кон’юнкція). Операція And (логічне множення), що застосовується до виразів X та Y, дає істинний результат, якщо обидва вирази є істинними (табл. 6.13).

 

 

Логічне додавання (диз’юнкція). Операція Or (логічне додавання), що застосовується до виразів X та Y, дає істинний результат, якщо принаймні один вираз є істинним (табл. 6.14).

Приклади складених логічних виразів та їх значення наведено в таблиці 6.15.

Одним з поширених прикладів використання складених умов є подвійні нерівності. Так, нерівність виду 1 < х < 5 у програмному коді слід записувати у вигляді складеного логічного виразу: 1 < х And х <= 5.

Значення логічних виразів можна присвоювати логічним величинам. Наприклад, х = у < 5. Значення, яке отримає змінна х буде True або False. Такі величини мають тип Boolean.

КОМАНДИ РОЗГАЛУЖЕННЯ

 

 

У VB.NET с дві форми умовного оператора — однорядкова та багаторядкова. Однорядкова форма використовується в простих випадках, коли в кожній гілці с не більше одного оператора. Вона мас вигляд:

If <умова> Then <команда 1>_ Else <команда 2>

Якщо If значення умови с істинним, то Then виконується команда 1, інакше Else виконується команда 2.

їй відповідає відома вам із сьомого класу блок-схема з повним розгалуженням (рис. 6.22).

 

Із схеми видно, що слову «так» відповідає команда Then, а слову «ні» — команда Else. Даний вид команди розгалуження може бути представлений і в неповній формі, коли гілка Else є відсутньою (рис. 6.23).

|| ВПРАВА 47

Завдання. Створити проект знаходження максимального числа з двох заданих чисел аі Ь.

1. Визначте вхідні та вихідні дані.

Вхідні: а, b —дані числа.

Вихідні: max — більше з двох чисел.

2. Побудуйте блок-схему реалізації алгоритму розв’язання задачі (рис. 6.24).

3. Запишіть програмний код об’єкта форма для події Click (подія має відбуватися при клацанні на формі).

Dim a, b, max As Integer

‘Введення двох чисел за допомогою діалогових вікон а = InputBox(«a=», «Введення першого числа») b = InputBox(«b=», «Введення другого числа»)

‘Перевірка умови та визначення більшого числа If а > b Then max = a Else max = b MsgBox(«max = » & max)

4. Запустіть проект та перевірте правильність його виконання.

5. Збережіть проект під назвою Вправа_47_Прізвище.

Завдання. Створити проект, що дозволяє визначити, чи є задане число апарним. Якщо так, то вивести повідомлення про це.

 

1. Визначте вхідні та вихідні дані.

Вхідні: а— дане число.

Вихідні: повідомлення про парність числа.

2. Побудуйте блок-схему реалізації алгоритму розв’язання задачі (рис. 6.25).

Dim a As Integer

а = InputBox(«a=», «Введення числа»)

Перевірка умови парності

If a Mod 2=0 Then Мб§Вох(«число парне»)

4. Запустіть проект та перевірте правильність його виконання.

5. Збережіть проект під назвою Вправа_48_Прізвище.

 

3. Запишіть програмний код для події клацання на формі.

Висновки

 

Вибір однієї з двох послідовностей дій залежно від виконання або невиконання деякої умови називають розгалуженням.

Алгоритм, що містить одну або кілька умов і, відповідно, дві та більше гілок, називають алгоритмом з розгалуженням.

Щоб сформувати умову в команді розгалуження, використовують логічні вирази. Логічний вираз може набувати значення True (істинність) або False (хибність).

Простий логічний вираз— це два арифметичні вирази, з’єднані символом відношення (=, >, <, >=, <=, <>).

Вирази, з’єднані між собою логічними операціями And (і), Or (або), Not (не), є складеними логічними виразами.

Операція Not (логічне заперечення), що застосовується до виразу X, дає хибний результат, якщо вираз X є істинним, і навпаки.

Операція And (логічне множення), що застосовується до виразів X та Y, дає істинний результат, якщо обидва вирази є істинними.

Операція Or (логічне додавання), що застосовується до виразів X та Y, дає істинний результат, якщо принаймні один вираз є істинним.

Логічні величинимають тип Boolean.

Однорядкова формарозгалуження мас вигляд:

If <умова> Then <команда 1> Else <команда 2>

 

Контрольні запитання та завдання

1. Що таке алгоритм з розгалуженням?

2. Що таке простий логічний вираз? Наведіть приклади.

3. Що таке складений логічний вираз? Наведіть приклади.

4. Поясніть принципи виконання операцій логічного заперечення, множення, додавання.

5. Який пріоритет логічних операцій?

6. Який тип мають логічні величини?

7. Опишіть синтаксис однорядкової форми розгалуження.

8. Які бувають види команд розгалуження?

Питання для роздумів

1. Яке значення отримає логічний вираз а > 8, якщо а = 5? а = 10? 2\ Яке значення отримає логічний вираз а > 4 And а + b < = 4, якщо а = 5, Ь = -2? а = 10, Ь = 2?

3. Яке значення отримає логічний вираз Not (Not (а =5)), якщо а = 5? а = 0? 4\ Яке значення логічного виразу a Or Not (а)?

Завдання для досліджень

1’. Як потрібно розставити дужіш в логічному виразі

a Or b And a Or с And b, щоб його значення було істинним, якщо а = False, b — True, с = True?

2. Визначте значення змінної х після виконання програмного коду: а = 5 b = б

If а + b mod 10 = 1 Then х = b - a Else х = b + а MsgBox(x)

Алгоритми з розгалуженнями для опрацювання величин

У попередньому параграфі ми розглянули однорядкову форму розгалуження, яка використовується в тому випадку, коли в кожній гілці є не більше одного оператора. Якщо ж у гілці потрібно використати більше одного оператора, використовують багаторядкову форму розгалуження, яка мас такий вигляд:

If <умова> Then <команда 1>

 

<команда 2>

Else

<команда 3> скоманда 4>

End If

їй відповідає блок-схема зображена па рис. 6.26.

Звичайно, багаторядковий вигляд може мати і неповна формавказівки розгалуження. В цьому випадку гілка Else буде відсутньою і програмний код матиме вигляд:

If <умова> Then <команда 1>

<команда 2>

End If

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

І ВПРАВА 49

Завдання. Розробити проект для знаходження значення виразу:

 

 

 

1. Визначте вхідні та вихідні дані. Вхідні: х — дане число.

Вихідні: у — результат обчислення або повідомлення про відсутність розв’язків.

2. Побудуйте блок-схему реалізації алгоритму розв’язання задачі (рис. 6.27). Для розв'язання задачі введено дві

логічні змінні а та Ь, які будуть набувати результатів виконання умов, що враховують область допустимих значень представленого виразу.

Так, підкореневий вираз чисельника має бути додатним, отже а = х > 0, а знаменник не може дорівнювати нулю — b = х - 2 о 0.

3. Запишіть програмний код для події клацання на формі.

Dim х, у As Single, a, b As Boolean х = InputBox(«x=»)

Присвоєння логічній змінній а умови того, що підкореневий вираз є додатним а = х > 0

'присвоєння логічній змінній b умови того, що знаменник не дорівнює нулю b = х - 2 о 0 If a And b Then

у = Math.Sqrt(x)/(x+2)

MsgBox(«y=» & у)

Else

МБ§Вох(«розв’язків немає»)

End If

Зауваження. Програмний код для розв’язання задачі можна створити без використання логічних величин. У цьому випадку логічний вираз буде більш громіздким, проте програмний код — дещо коротшим.

Dim х, у As Single х = InputBox(«x=»)

'врахування в умові області допустимих значень виразу If х > 0 And х - 2 <> 0 Then у = Math.Sqrt(x)/(x+2)

MsgBox(«y=» & у)

Else

MsgBox(«po3BJB3KiB немає»)

End If

4. Запустіть проект та перевірте правильність його виконання.

5. Збережіть проект під назвою Вправа_49_Прізвище.

ВПРАВА50

Завдання. Створити проект для знаходження значення виразу.

 

 

1. Визначте вхідні та вихідні дані. Вхідні: х — дане число.

Вихідні: у— результат обчислення.

2. Побудуйте блок-схему реалізації алгоритму розв’язання задачі (рис. 6.28).

3. Запишіть програмний код для події клацання на формі.

Dim х, у As Single х = InputBox(«x=»)

If х < 5 Then

у = (4 * x л 2 + 1) / (x - 5)

Else

y=3*xA2-2 End If

MsgBox(«y=» & y)

З наведеного програмного коду видно, що коли виконується умова х < 5, значення убуде знайдено за першою формулою, якщо умова не виконується, то для визначення увикористовується друга формула.

4. Запустіть проект та перевірте правильність його виконання.

5. Збережіть проект під назвою Вправа_50_Прізвище.

ВПРАВА 51

 

Завдання. Створити проекти для знаходження значення виразів:

 

Висновки

Якщо в гілці вказівки розгалуження потрібно використати більше одного оператора, використовують багаторядкову форму розгалуження, що має такий вигляд: If <умова> Then

<команда 1>

<команда 2>

Else

<команда 3>

<команда 4>

End If

Багаторядковий вигляд може мати і неповна форма вказівки розгалуження. В цьому випадку гілка Else буде відсутньою і програмний код буде такий: If <умова> Then

<команда 1>

<команда 2>

End If

Контрольні запитання та завдання

1. У яких випадках використовують багаторядкову форму' розгалуження?

2. Опишіть загальний вигляд багаторядкової форми розгалуження.

Питання для роздумів

1. Чим відрізиясться однорядкова форма розгалуження від багаторядкової?

2. У яких випадках доцільно використовувати логічні змінні в програмному коді?

Завдання для досліджень

1. Як зміниться програмний код у вправі 49, якщо а = х <= 0: Ь = х - 2 = 0?

2. Як зміниться програмний код у вправі 50, якщо після слова І-Р буде вказано умову а > 5?

Вкладені розгалуження

 

Багаторядкова форма розгалуження мас також розширену модифікацію, якщо в програмі розглядається більше однієї умови.

If <умова1> Then <команда 1>

Elself <умова2> Then <команда 2>

Else

<команда 3>

End If

їй відповідає блок-схема, зображена на рис. 6.29.

ВПРАВА 52

Завдання. Створити проект розв’язання задачі.

 

Дано ціле число. Якщо воно додатне, то додати до нього 1; якщо від'ємне то додати до нього 2; якщо дорівнює 0 то додати 3. Вивести змінене число.

1. Визначте вхідні та вихідні дані. Вхідні: а — дане число.

Вихідні: а— змінене число.

2. Побудуйте блок-схему реалізації алгоритму розв’язання задачі (рис. 6.30). Зауваження. Як видно з блок-схе-

ми, тут розглядається лише дві умовк а < 0 та а > 0, оскільки умова а = 0 б протилежною до двох попередніх. Отже її не потрібно вказувати, бо вона враховується в гілці «інакше» другої умови.

3. Запишіть програмний код для події клацання на формі.

Dim a As Integer а = InputBox(«a =»)

'перевірка умови 1 If а > 0 Then а = а + 1 'перевірка умови 2 Elself а < 0 Then а = а + 2

Else

а = а + З End If

MsgBox(«3MiHeHe число =» & а)

4. Запустіть проект та перевірте правильність його виконання.

5. Збережіть проект під назвою Вправа_52_Прізвище.

ВПРАВА 53

 

Завдання. Створити проект для знаходження значення виразу.

 

1. Визначте вхідні та вихідні дані. Вхідні: х — дане число. Вихідні: у— результат обчислення.

блок-схеми, умова 2 (х < 3) має тільки другу частину умови подвійної нерівності (- 3 < х < 3), вказаної в завданні. Це пов’язано з тим, що умова (- 3 < х) вже врахована, оскільки вона є протилежною до вказаної умови 1 (х > - 3).

 

2. Побудуйте блок-схему реалізації алгоритму розв'язання задачі (рис. 6.31). Зауваження. Як видно з

 

3. Запишіть програмний код для події клацання на формі. Dim х, у As Single If х < - 3 Then у = 2 * х - Б Elself х <= 3 Then у = х л 2

Else

 

у = Math.Abs(10 - x)

End If

MsgBox(«y=» & y)

4. Запустіть проект та перевірте правильність його виконання.

5. Збережіть проект під назвою Вправа 53 Прізвище.

Висновки

При застосуванні в кладених умов використовують багаторядкову форму розгалуження, що мас вигляд:

If <умова1> Then <команда 1>

Elself <умова2> Then <команда 2>

Else

<команда 3>

End If

Контрольні запитання та завдання

1. Які особливості мас багаторядкова форма розгалуження з вкладеними умовами?

2. Наведіть приклади використання вкладених умов.

Питання для роздумів

1. Як можна записати умову: - 5 < х < 5?

Завдання для досліджень

1. Як зміниться програмний код у вправі 52, якщо вказати а = 0 як першу умову, а як другу — а < 0?

2. Як зміниться програмний код у вправі 53, якщо як першу умову вказати- 3 < х And х < 3,а як другу— х > З?

Складання алгоритмів опрацювання величин, їх налагодження і виконання

Якщо припуститися помилки в написанні програмного коду, то система визначить її автоматично та повідомить про це. І навіть підкаже, як виправити помилку. Проте існують випадки, коли програма буде складена без помилок, але результат її роботи буде не правильним. Це

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

Щоб запустити покрокове виконання програми, треба натиснути клавішу Я11. Після чого перший рядок програмного коду буде підсвічепо жовтим кольором і навпроти нього буде розташована жовта стрілка (рис. 6.32).

 

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

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

Так при тестуванні програмного коду доцільним буде визначення значення змінної до виконання програмного коду і після.

— до виконання програмного коду (аі = а \ 10)

— після виконання програмного коду (аі = а \ 10)

 

Проте кожний раз наводити курсор на змінну не дуже зручно. Щоб вирішити цю проблем}', в середовищі передбачено закріплення бажаних змінних таким чином, аби їх значення було постійно відображено при покроковому виконанні програми. Це можна зробити після наведення курсора на змінну та натиснення значка у вигляді канцелярської кнопки. До того ж у цьом}' режимі молена ввести коментар до змінної. Це зручно коли потрібно вказати її призначення. Закріплена змінна буде мати такий вигляд, як на рис. 6.33.

 

Відмінити закріплення змінних молена, навівши на змінну та обравши у відповідному мешо змінної комапду Открепить от источника (Від’єднати від джерела).

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

(Начатоджоїпш) команди Окна ► Локальньїе (Вікна ► Локальні). У вікні Ло-кальньїе (Локальні) відображено імена змінних, їх значення та тип (рис. 6.34).

 

Якщо код програми громіздкий, і покрокова перевірка всього коду недоцільна, можна встановити покажчик зупинки, починаючи з якого, буде здійснено покрокове виконання коду. Для цього треба обрати в контекстному меню потрібного рядка команду' Точка останова ► Вставить точку останова (Точка зупинки ► Додати точку зупинки) або просто клацнути мишею на сірому стовпчику зліва навпроти рядка. Після чого рядок обраного коду буде виділено червоним і навпроти даного рядка буде встановлено червоний кружечок (рис. 6.35).

У цьому випадку необхідно здійснити запуск проекту в звичайному режимі за допомогою кнопки Начать отладку (Р5). Після чого код буде виконано до виділеного рядка і вже потім, натискаючи послідовно Я11, ви зможете покроково виконати бажаний фрагмент програми.

Щоб зняти покажчик зупинки, треба натиснути на червоний кружечок, який встановлено навпроти відповідного рядка коду.

Висновки

Для перевірки роботи програми зручно використовувати покрокове виконання програми, натискаючи клавішу Р11.

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

Встановлення покажчика зупинки дозволяє здійснити покрокове виконання програми в будь-якій її частині.

Контрольні запитання та завдання

1. Як запустити покрокове виконання програми?

2. Як закріпити змінну при покроковому виконанні програми?

3. Як виконати покрокове виконання частини програми?

Питання для роздумів

1. Для чого використовзчоть покрокове виконання програми?

Завдання для досліджень

1. Як буде здійснюватися покрокове виконання програми, якщо встановити декілька покажчиків зупинки?

2\ Дослідіть призначення команд у меню Отладка (Налагодження). Поясніть їх призначення.

Налагодження готової програми

Завдання. Створити проект для розв'язання задачі.

Дано двоцифрове число. Визначити, чи кратне число до добутку його цифр. Здійснити покрокову перевірку виконання програмного коду.

1. Визначте вхідні, вихідні та проміжні змінні.

Вхідні: а — дане число.

Вихідні: текстове повідомлення.

Проміжні: а1, а2 — цифри числа,/? —добуток цифр числа.

2. Введіть програмний код для реалізації процедури натиснення на форму. Dim a, al, а2, р As Integer

а = Іпри±Ьох(«Введіть двоцифрове число»)

‘Знаходження першої цифри числа аі = а \ 10

‘Знаходження другої цифри числа а2 = a Mod 10

‘Знаходження добутку цифр числа р = аі * а2

If a Mod р = 0 Then Msgbox («Кратне») Else Msgbox («Не кратне»)

3.  Натисніть клавішу F11. У результаті з’явиться форма, на якій необхідно клацнути по кнопці. Після чого виконання програми буде передано заголовку процедури клацання на формі (рис. 6.36).

 

4. Натисніть клавішу Б11. Буде виконано рядок попереднього коду і здійснено перехід до наступного коду. Наведіть курсор на змінну а. її значення дорівнює 0 (рис. 6.37).

 

5. Натисніть клавішу Р11. Буде виконано рядок попереднього коду (а = ІприїЬох(«Введіть двоцифрове число»), з’явиться вікно для введення двоцифрового числа. Введіть число, наприклад, 24 та натиснення на кнопку Ок. Буде підсвічено наступний код. Наведіть курсор на змінну а. її значення буде 24 (рис. 6.38). Наведіть курсор на змінну а1, її значення дорівнює 0 (рис. 6.39).

 

6. Натисніть клавішу Р11. Буде виконано рядок попереднього коду (аі = а \ 10) і здійснено перехід до наступного коду. Наведіть курсор послідовно на змінні а1 та а2\ а1 одержить значення 2 (рис. 6.40), а значення змінної а2 дорівнюватиме 0 (рис. 6.41).

гис. о.чи гис. О.ЧІ

 

7. Натисніть клавішу F11. Буде виконано рядок попереднього коду

(а2 = a Mod 10) і здійснено перехід до наступного рядка. Наведіть курсор послідовно на змінні а2 і р\ а2 одержить значення 4 (рис. 6.42), а значення змінної п лппіинювяті/імр П їпиг. 6 43Ї

 

8. Натисніть клавішу F11. Буде виконано рядок попереднього коду

(р = аі * а2) і здійснено перехід до перевірки умови (If a Mod р = 0). Наведіть курсор на змінну р, її значення стало дорівнювати 8 (рис. 6.44).

 

 

9. Натисніть клавішу F11. Буде здійснено перевірку умови, і оскільки значення логічного виразу має значення True, відбудеться перехід до виразу, що стоїть після команди Then, а саме MsgBox(«KpaTHe») (рис. 6.45).

 

10. Натисніть клавішу Р11. Буде виведено текстове повідомлення (рис. 6.46).

11. Зупиніть виконання програми.

12.  Закріпіть змінні, щоб не треба було кожного разу наводити на них вказівник миші. Для цього наведіть на деяку змінну курсор миші та клацніть по значку у вигляді канцелярської кнопки. Після чого перемістіть значок із змінною в зручне для вас місце (рис. 6.47).

13.  Здійсніть покрокове виконання програми із закріпленими змінними, ввівши двоцифрове число, для якого не буде виконуватися умова, наприклад 27.

 

14. Здійсніть покрокове виконання програми, починаючи від команди р = аі * а2.

Для цього створіть покажчик зупинки для даного рядка. Після чого натисніть клавішу Р5. Коли відбудеться зупинка роботи програми натисніть Р11 необхідну кількість разів до завершення роботи програми.

15'. Змініть програмний код для випадку введення трицифрового числа і перевірки кратності добутку його цифр до самого числа.

16. Зніміть усі покажчики та запустіть проект на виконання у звичайному режимі.

17. Збережіть проект під назвою ПР11_Прізвище.

Алгоритми з повтореннями. Цикл з лічильником

ЦИКЛ З ПАРАМЕТРОМ

З сьомого класу ви пам’ятаєте, що багаторазове виконання тієї самої послідовності команд доти, доки виконується визначена наперед умова, називають циклом (повторенням). Алгоритм, що містить цикли, називають алгоритмом з повторенням.

Майже всі мови програмування містять оператори циклів. Не є винятком і VB.NET. Однією з властивостей комп’ютера є його здатність багато разів викопувати ті самі дії. З повторюваними обчисленнями програмісти стикаються повсякчас. Є цикли, в яких кількість повторювань відома заздалегідь, і цикли, де кількість повторень залежить від виконання певної умови.

Цикли, в яких кількість викопуваних повторювань відома заздалегідь, називають циклами з лічильником. Тому, що для організації повторень використовують змінну (лічильник), яка змінюється від певного початкового значення до кінцевого значення з заданим кроком.

Програмний код такого циклу мас загальний вигляд:

For <лічильник>=<початкове значення> То <кінцеве значення>_

Step <крок> <оператори тіла циклу>

Next слічильнию,

де <лічильник> — числова змінна;

<початкове значенням <кінцеве значення> і <крок> — вирази того самого типу, що й лічильник.

Якщо конструкцію Step <крок> пропущено, то вважається, що значення кроку дорівнює +1.

Після службового слова Next лічильник не є обов’язковим параметром, його доцільно вказувати, коли програма містить багато циклів з різними лічильниками.

 

Блок-схема, що відповідає даному виду циклу мас вигляд, як зображено на рис. 6.48.

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

1) лічильнику присвоюють початкове значення.

Якщо воно менше від кінцевого значення, то здійснюється перехід до виконання операторів тіла циклу;

2) після виконання операторів тіла циклу команда Next змінює значення лічильника па значення кроку;

3) якщо значення лічильника менше від кінцевого значення, програма знову переходить до виконання операторів тіла циклу. Такі порівняння виконуються доти, доки значення лічильника знаходиться в діапазоні між початковим і кінцевим значеннями. Коли значення лічильника виходить за межі діапазону, виконання оператора циклу закінчується і здійснюється перехід до команд, що знаходяться після команди Next.

Якщо початкове значення цикл}' є більшим за кінцеве, тіло циклу жодного разу не виконається. Винятком є ситуація, коли значення кроку від’ємне. Проте в цьому випадку і алгоритм виконання циклу буде здійснюватися з врахуванням такого значення кроку.

ВПРАВА 54

Завдання. Створити проект виведення у стовпчик п перших натуральних чисел у прямому та зворотному порядку.

 

1. Створіть форму за зразком (рис. 6.49).

2. Надайте текстовим полям імена Т1 і Т2, змініть значення властивості Multiline = True.

3. Введіть код для виведення послідовностей чисел при натисненні на кнопку Виконати.

Dim і, n As Integer

'Визначення кількості чисел n = InputBox(«N=»)

'Очищення текстових полів від попереднього вмісту ТІ.Text = Nothing Т2.Text = Nothing

'Виведення натуральних чисел від 1 до N For і = 1 То п

ТІ.Text = ТІ.Text + CStr(i) + vbNewLine Next

'Виведення натуральних чисел від N до 1 For і = п То 1 Step -1

Т2.Text = T2.Text + CStr(i) + vbNewLine Next

Пояснення. Найчастіше як лічильник використовують змінну і, як і в представленому коді.

СБ^(і) — функція, що переводить числовий тип значення змінної в рядковий. Оскільки текстове поле, куди здійснюється запис, може набувати значення лише рядкового типу.

vbNewLine — команда для переходу на новий рядок.

Для представлення чисел у зворотному порядку було використано цикл, що містить від'ємний крок (-1).

4. Запустіть проект та перевірте правильність його виконання.

5. Збережіть проект під назвою Вправа_54_Прізвище.

 

Р І ЗНАХОДЖЕННЯ СУМИ, ДОБУТКУ, КІЛЬКОСТІ ТА

ЩлЕЖ СЕРЕДНЬОГО АРИФМЕТИЧНОГО

Досить часто розв'язуючи різноманітні задачі, виникав потреба визначити суму, ДОбуТОК, кількість або середнє арифметичне послідовності деяких чисел. Загальний вигляд програмних кодів для виконання цих дій розглянемо далі. Знаходження суми

'Початкове значення s = 0

For...То...

'Знаходження суми, де а будь-яке число (деякий вираз)

s = s + а

Next

Знаходження добутку

‘Початкове значення

р = 1

For...То...

‘Знаходження добутку, де а будь-яке число (деякий вираз)

р = р * а

Next

Знаходження кількості

‘Початкове значення k = 0

For...То...

‘Знаходження кількості, де а будь-яке число (деякий вираз)

k = k + 1

Next

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

Знаходження середнього арифметичного ‘Початкове значення Sa = 0

‘Знаходження середнього арифметичного, де s - сума чисел, a k - їх кількість If k о 0 Then Sa = s / k

Ця формула використовз'сться один раз після знаходження суми та кількості. Перевірка If k о 0 потрібна, бо якщо k = 0, отримаємо ділення па 0, що неприпустимо.

ВПРАВА 55

Завдання. Створити проект знаходження суми, кількісті та середнього арифметичного всіх натуральних двоцифрових чисел, у яких перша цифра менша від другої. Усі числа, що задовольняють умову, вивести в стовпчик у текстовому полі.

 

4. Введіть код для виконання обчислень при натисненні на кнопку Обчислити.

1. Визначте вхідні та вихідні дані, проміжні змінні.

Вхідні: немає.

Вихідні: 5, £, 5а — сума, кількість та середнє арифметичне, послідовність чисел, що задовольняє умову.

Проміжні змінні: і — лічильник, x^t х2 — перша та друга цифри числа.

2. Створіть форму за зразком (рис. 6.50).

3.  Текстове поле, що має містити послідовність чисел, назвіть Рові, поля, в яких буде визначено 5, її, 8а — Т8, Тк, Тва відповідно.

 

Dim і, хі, х2, S, k As Integer, Sa As Single S = 0: k = 0 For і = 10 To 99

'Визначення першої цифри числа xl = і \ 10

'Визначення другої цифри числа х2 = і Mod 10

'Перевірка умови, чи є перша цифра числа менша від другої If xl < х2 Then

'Виведення числа, що задовольняє умову Posl.Text = Posl.Text + Cstr(i) + vbNewLine 'Знаходження суми S = S + і

'Знаходження кількості k = k + 1 End IF

Next

'Знаходження середнього арифметичного If k о 0 Then Sa = S / k

'Виведення суми, кількості, середнього арифметичного TS.Text = S Tk.Text = k TSa.Text = Sa

5. Запустіть проект та перевірте правильність його виконання.

6. Збережіть проект під назвою Вправа_55_Прізвище.

Розглянемо в таблиці поданій нижче покрокове виконання програмного коду вправи 64 для і від 10 до 15.

№ кроку

і

і< 15

хЛ

x2

хЛ<х2

s

k

k<>0

Sa

1

10

True

1

0

False

0

0

   

2

11

True

1

1

False

0

0

   

3

12

True

1

2

True

12

1

   

4

13

True

1

3

True

12+13=25

2

   

5

14

True

1

4

True

25+14=39

3

   

6

15

True

1

5

True

39+15=54

4

   

7

16

False

         

True

54/4 = 13,5

У таблиці в стовпчиках записано значення змінних на кожному кроці виконання програми та результати виконання умов, що мають місце на вказаних кроках.

ВПРАВА 56 САМОСТІЙНО

Завдання. Створити проекти розв’язання завдань.

а) Знайти середнє арифметичне всіх натуральних двоцифрових чисел кратних 13.

б) Знайти суму всіх натуральних двоцифрових чисел, що закінчуються на цифру 3.

в) Знайти суму, кількість і середнє арифметичне всіх натуральних двоцифрових чисел, які складаються з парних цифр.

г) Знайти добуток усіх натуральних двоцифрових чисел, у яких перша цифра вдвічі більша від другої.

СТВОРЕННЯ ТАБЛИЦЬ ЗНАЧЕНЬ ФУНКЦІЙ

У задачах па створеппя таблиць значень функцій потрібно обчислити значення функції на якомусь інтервалі із заданим постійним кроком. Крок — це різниця між значеннями аргумента, для яких обчислюється значення функції.

ВПРАВА 57

Завдання. Створити проект розв’язання задачі.

Знайти значення функції для х з інтервалу [-2, 2] з кроком 0,2.

Тобто потрібно обчислити значення функції для: х = -2,0, -1,8, ..., 1,8, 2.

1. Визначте вхідні та вихідні дані, проміжні змінні.

Вхідні: немає.

Вихідні: у — значення функції при різних значеннях х (буде виведено 21 раз). Проміжні змінні: х — аргумент функції.

2. Розташуйте на формі текстове поле та кнопку Обчислити.

3. Текстове поле назвіть Т. Змініть значення властивості Multiline = True.

 

4. Введіть код для виконання обчислень при натисненні на кнопку Обчислити.

Dim х, у As Single ТІ.Text =Nothing Т2.Text =Nothing For x = -2 To 2 Step 0.2

‘Обчислення значення функції у = x A 2

‘Виведення до текстового поля значень X та Y

ТІ.Text = ТІ.Text + CStr(Format(x, «0.00»)) + vbTab +_

CStr( Format (у., «0.00»)) + vbNewLine

Next

Оскільки хта узмінні дійсного типу, то для зручного їх відображення застосовано функцію формату з виведенням двох знаків після коми. уЬТаЬ — константа для здійснення відступу між числами.

5. Запустіть проект та перевірте правильність його виконання.

6. Збережіть проект під назвою Вправа_57_Прізвище.

Висновки

Багаторазове виконання тієї самої послідовності команд доти, доїш виконується визначена наперед умова, називають циклом.

Алгоритм, що містить цикли, називають алгоритмом з повторенням.

Цикли, в яких кількість викопуваних повторювань відома заздалегідь, називають циклами з лічильником.

Програмний код циклу з лічильником мас вигляд:

For <лічильник»=<початкове значення» То <кінцеве значення>_ Step <крок>

<оператори тіла циклу»

Next <лічильник>

Якщо початкове значення циклу' більше від кінцевого, то тіло циклу жодного разу не викопається.

Контрольні запитання та завдання

1. Що таке цикл у програмуванні?

2. Які бувають види циклів?

3. Які цикли називають циклами з лічильником?

4. Яке призначення службового слова Step?

5. Опишіть алгоритм виконання циклу' з лічильником.

6. Як виконати додавання (множення) послідовності чисел?

7. Як знайти кількість чисел послідовності?

Питання для роздумів

1. Наведіть приклади використання циклів у повсякденному' житті. 2. Скільки разів буде виведено цикл у заданих командах?

а) For і = 1 То 10 Step 2

б) For і = 1 То 10 Step -2

в) For і = 15 То 1 Step -З

г) For і = 15 То 25 ґ) For і = 25 То 10

3. Якого типу мас бути змінна лічильника в циклі For?

4. Що відбувасться, коли початкове значення лічильника циклу' For.. .То більше від кінцевого?

Завдання для досліджень

1. Яким буде програмний код для знаходження значення виразу: Я = 1 + 2 + 3 + ...+ ЛГ

2. Визначте, як можна вивести таблицю значень функцій (вправа 66) за допомогою елемента керування І-івіВох.

Цикли з умовами

Як було зазначено в попередньому параграфі, при виконанні циклів кількість кроків у них не завжди є відомою, а залежить від певної умови. Саме для таких випадків використовують цикли з умовами.

Цикл, тіло якого виконується доти, доки викопується умова, вказана перед його початком, називають циклом з передумовою. Якщо задана умовою подія не иастас ніколи, тіло циклу не виконується жодного разу.

Цикл з післяумовою — це цикл, у якому .умова перевіряється після виконання його тіла.

Програмні коди представлених видів циклів та відповідні до них блок-схеми наведено в таблиці 6.25.

Таблиця 6.25. Цикли з передумовою та післяумовою

 

Цикл з передумовою

Цикл з післяумовою

Програмний

код

While <умова> «оператори тіла циклу> End While

Do

<оператори тіла циклу> Loop

Блок-схема

Пояснення

Спочатку перевіряється умова. Якщо вона є істинною, виконуються оператори тіла циклу, після чого весь процес повторюються, доки виконується умова. Якщо спочатку умова не виконується, то тіло циклу жодного разу виконано не буде.

Виконуються оператори, після чого перевіряється умова. Якщо умова не виконується, здійснюється перехід до виконання операторів циклу. Якщо умова виконується — відбувається вихід із циклу. Із блок-схеми видно, що тіло циклу за будь-яких обставин має бути виконане принаймні один раз.

ВПРАВА 58

Завдання. Створити проект обчислення значення виразу:

Й = 2 + 4 + 6 + ... (п разів)

1. Визначте вхідні та вихідні дані, проміжні змінні.

Вхідні: п — кількість доданків.

Вихідні: 5 — значення виразу.

Проміжні змінні: і —лічильник.

2. Введіть один із запропонованих кодів для виконання обчислень при натисненні на форму.

Для порівняння наведемо приклади трьох способів розв'язання задачі з використанням різних видів циклів.

Цикл з передумовою

Цикл з післяумовою

Цикл з лічильником

Dim і, п, S As Integer

Dim і, n, S As Integer

Dim і, n, S As Integer

n = InputBox(«n=»)

n = InputBox(«n=»)

n = InputBox(«n=»)

S = 0

S = 0

S = 0

і = 1

і = 1

For і = 1 to n

While і <= n

Do

S = S + і * 2

S = S + і * 2

S = S + і * 2

Next

і = і + 1

і = і + 1

MsgBox(«S=» & S)

End While

Loop і > n

 

MsgBox(«S=» & S)

MsgBox(«S=» & S)

 

Як видно з програмних кодів, у першому і другому способі умови є протилежними. В першому коді цикл буде виконуватися, доки лічильник і буде менший або дорівнює п. У другому — цикл буде завершено, коли і стане більше ВІД 11.

3. Запустіть проект та перевірте правильність його виконання.

4. Збережіть проект під назвою Вправа_58_Прізвище.

ВПРАВА 59

Завдання. Створити проект визначення кількості та суми цифр даного числа.

1. Визначте вхідні та вихідні дані, проміжні змінні. Вхідні: а — дане число.

Вихідні: Я /г — сума та кількість цифр числа. Проміжні змінні: с — поточна остання цифра числа.

2. Введіть код для виконання обчислень при натисненні на форму. Dim k, S, а, с As Integer

‘Введення даного числа а = InputBox(«a=») k = 0 S = 0

While а о 0

‘Відокремлення останньої цифри числа с = a Mod 10

‘Визначення кількості цифр k = k + 1

‘Визначення суми цифр S = S + с

‘Відкидання останньої цифри числа а = а \ 10 End While MsgBox(«S=» & S)

MsgBox(«k=» & k)

3. Запустіть проект та перевірте правильність його виконання.

4. Збережіть проект під назвою Вправа_59_Прізвище.

ВПРАВА 60

 

Завдання. Створити проект визначення кількості входжень першої цифри даного числа.

 

1. Визначте вхідні та вихідні дані, проміжні змінні.

Вхідні: а— дане число.

Вихідні: kp — кількість входжень першої цифри.

Проміжні змінні: а1 — перша цифра числа; с — поточна цифра числа; k— кількість цифр числа; b— набуває початкового значення даного числа, використовується для відокремлення цифр.

2. Введіть код для виконання обчислень при натисненні на форму.

Dim k, с, xl, b, kp As Integer, a As Long

a = InputBox(«a=») k = 0 b = a

‘Визначення кількості цифр числа While b о 0

c = b Mod 10 k = k + 1 b = b \ 10 End While

‘Визначення першої цифри числа xl = а \ 10 Л (k - 1)

'Визначення кількості входжень першої цифри While а о 0

с = a Mod 10

If с = xl Then kp = kp + 1 а = а \ 10 End While MsgBox(«kp=» & kp)

3. Запустіть проект та перевірте правильність його виконання.

4. Збережіть проект під назвою Вправа_60_Прізвище.

Висновки

Якщо кількість кроків у циклі с заздалегідь невідомою, використовують цикли з умовами.

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

Програмний код циклу з передумовою мас вигляд:

While <умова>

<оператори тіла циклу>

End While

Цикл з післяумовою — це цикл, у якому умова перевіряється після виконання його тіла.

Програмний код циклу з лічильником має вигляд:

Do

<оператори тіла циклу>

Loop

Контрольні запитання та завдання

1. Що таке цикл з передумовою?

2. Що таке цикл з післяумовою?

3. Які службові слова використовують для реалізації циклів з змовою?

Питання для роздумів

1. Чому всі сз'часні мови програмз'вання використовзчоть команди реалізації циклів?

2е. Чим відрізняються цикли з передумовою від циклів з післяумовою. З. Опишіть та порівняйте принципи виконання циклів з лічильником та циклів з замовами.

І ПРАКТИЧНА РОБОТА №12

Складання і виконання алгоритмів з повтореннями та розгалуженнями для опрацювання величин

 

Завдання. Розробити проект реалізації найпростішого калькулятора.

1. Створіть форму за зразком на рис. 6.51 (розташування кнопок і кольорове оформлення можете виконати на власний розсуд).

2. Надайте імена об’єктам.

Об’єкт

Ім’я

Об’єкт

Ім’я

Текстове вікно

ТІ

Кнопка «+»

Bsum

Кнопки з цифрами

ВО, В1, В2 ...

(відповідно до зображеної цифри)

Кнопка «-»

Briz

Кнопка «*»

Bdob

Кнопка «/»

Bdil

Кнопка «=»

Bdor

Кнопка «С»

ВС

Кнопка «,»

Bt

   

Опишіть змінні аі Ь, це а— змінна, що визначає значення введеного числа, b — змінна, що запам'ятовує дію, яку було виконано.

Dim a As Single, b As String

3. Задайте коди процедур натиснення на кнопки із зображенням цифр та знака «,».

а) Введіть код для процедури натиснення на кнопку «0».

'В текстовому вікні дописується цифра 0

ТІ.Text = ТІ.Text + «0»

б) Для інших кнопок коди створіть аналогічно.

4. Задайте коди для процедури натиснення на знак «+».

'Праворуч від попередньої цифри дописується наступна а = а + ТІ.Text

'Змінна b запам'ятовує дію, що було виконано b = «+»

5. Задайте коди для очищення текстового вікна при переході від кнопок, що позначають арифметичну дію до інших кнопок.

а) У вікні коду як об'єкт оберіть кнопку Bsum, а в списку подій оберіть LostFocus. У результаті буде сформовано код:

Private Sub Bdod_LostFocus(ByVal sender As Object, ByVal e As_ System.EventArgs) Handles Bdod.LostFocus End Sub

б) Між даними рядками введіть код для звільнення текстового поля від написів. ТІ.Text = Nothing

в) Аналогічно введіть коди і для інших кнопок, що позначають арифметичні дії.

6. Задайте код процедури натиснення на клавішу «=».

а) Введіть код для процедури натиснення на клавішу «=» для виконання дії додавання.

'якщо змінна b має значення «+», то до попереднього значення змінної а 'додається значення розташоване в текстовому вікні If b = «+» Then а = а + ТІ.Text

‘В текстовому вікні відображається результат обчислення ТІ.Text = а

б) У коді цієї ж процедури додайте коди для виконання інших арифметичних дій.

7. Задайте код для процедури натиснення на кнопку С (очищення).

'очищення текстового поля ТІ.Text = Nothing

'встановлення нульових значень для змінних а = 0

b = 0

8.  Додайте кнопку Bin для переведення введеного числа в двійкову (Binary) систему числення. Після введення числа та натиснення на кнопку Bin у текстовому полі має з’явитися дане число, записане в двійковій системі числення.

Dim q, х As Integer, у As String

'Одержання числа з текстового поля q = ТІ.Text

'Виконувати, поки число більше від нуля While q > 0

'Знаходження остачі від ділення числа на 2 х = q Mod 2

'Дописування однієї цифри перед значенням рядкової змінної, 'яка має одержати результат у = CStr(x) + у

'Знаходження цілої частини від ділення q = q \ 2 End While

'Виведення результату в текстове поле ТІ.Text = у

9'. Додайте кнопки та відповідні до них коди для виконання дій піднесення до степеня та добування кореня.

10'. Спробуйте вдосконалити власний калькулятор, щоб з його допомогою можна було виконати послідовно декілька дій.

11. Збережіть проект під назвою ПР12_Прізвище.

Створення графічних зображень

На формі, крім елементів керування, можна виводити зображення, створені у вигляді суіїз'ппості відрізків, прямокутників, кіл, еліпсів тощо. Саме побудові цих та інших графічних примітивів ми присвятимо матеріал даного параграфу.

Будують фігури відносно умовної координатної площини, що мас початок у верхньому лівому куті форми і визначається її розмірами. Так, на рис. 6.52 представлено значення, що мають точки розташовані в різних кутах форми, властивість Size якої мас значення 300;300.

 

Рисунок, що створюється на формі, с графічним об’єктом, для оголошення якого на початку програмного коду використовують команду:

Dim G As Graphics = MyBase.CreateGraphics

У даній команді вказано, що оголошено графічний об’єкт G, що володіє методом малювання CreateGraphics.

Для побудови контурів геометричних фііур використовують об’єкт перо, яке спочатку оголошують, як нове перо деякого кольору, а потім вже використовують.

Наприклад, Dim Р As New Pen(Color.Blue)

Колір записують у вигляді сталої константи, що з’являється у випадаючому списку при наборі коду (Color.Red, Color.Blue тощо)

Перо може також мати власну ширину, яка задається властивістю Width.

Наприклад, Р. Width = 5

У таблиці 6.26 наведено, як створювати графічні примітиви, що можна побудувати за допомогою об’єкта «перо». Зазначимо, якщо перо не оголошено до побудови фігури, його можна записати безпосередньо в коді побудови фігури замість змінної Р у такому форматі: Pens. <колір>. У наведених у табл. 6.26 командах змінною G позначено оголошений графічний об’єкт, змігшою Р — перо.

Таблиця 6.26. Команди побудови графічних примітивів за допомогою пера

Фігура

Команда мовою програмування

Пояснення

Відрізок

G.DrawLine(P, хі, уі, х2, у2)

(хі, уі) —початкові координати відрізка,

(х2, <\2) — кінцеві координати

Прямокутник

G.DrawRectangle(P, х, у, w, h)

(х, у) — координати верхнього лівого кута прямокутника, и — ширина, її — висота

(0.0) *

(х.у)І У .......

h

■J

* *

У

 

Еліпс

G.DrawEllipse(P, х, у, w, h)

(х, у) — координати верхнього

(0,0) X

(Х.У)І х

*

У

лівого кута прямокутника описаного навколо еліпса, м — ширина,

Ь — висота прямокутника

Дуга

G.DrawArc(P, х, у, w, h, k, dl<)

(х, у) — координати верхнього

(0,0) *

(х.у)«---- х

У !...........1270е.......

ВК^'«......

І, ^

лівого кута прямокутника описаного навколо еліпса, м — ширина,

Ь — висота прямокутника, к — початковий кут дуги записаний в градусах, dk — кут зміщення в градусах по колу за годинниковою стрілкою

Сектор

G.DrawPie(P, x, y, w, h, k, dk)

(х, у) — координати верхнього

(0.0) *

(*»у)І*---- х

У Г............Ї270.......|

ІГЧІ.........У

, ь4.........J

лівого кута прямокутника описаного навколо еліпса, м — ширина,

И — висота прямокутника, к, гік — ті самі параметри, що й для дуги

Зафарбовані фігури будують пензлем, який спочатку оголошують, як і перо.

Наприклад, Dim В As New SolidBrush(Color.Blue)

За допомогою пензля молена побудувати зафарбовані прямокутник, еліпс і сектор, що мають відповідні команди мовою програмування: G.FillRectangle(B, х, у, w, h), G.FillEllipsefB, .г% у, w, h),G.FillPie(B, x, у, w, h, k, dk), де змінною В позначено пензель, а інші змінні мають те саме призначення, що й для незафарбованих фігур.

Зазначимо, якщо пензель не оголошено до побудови фігури, його молша записати безпосередньо в коді побудови фігури замість змігшої В у наступному форматі: Brushes. <колір>.

Для очищення форми від зображення використовують програмний код:G.Clear(Color.FromName(«Control»))

ВПРАВА 61

Завдання. Створити проект для побудови зображення за зразком (рис. 6.53).

1. Створіть спочатку зображення на координатній площині в зошиті (рис. 6.54).

2. Встановіть для форми властивість Size — 400;300.

 

 

 

3. Створіть код для опрацювання події клацання по формі, враховуючи розташування зображення відносно координатної площини.

 

‘Оголошення графічного об’єкта Dim g As Graphics = MyBase.CreateGraphics ‘Побудова веленого прямокутника g.FillRectangle(Brushes.Green, 40, 20, 200, 160) ‘Побудова блакитного прямокутника g.FillRectangle(Brushes.LightBlue, 240, 60, 120, 120) ‘Побудова жовтого прямокутника g.FillRectangle(Brushes.Yellow, 360, 100, 20, 80) ‘Побудова коліс

g.FillEllipse(Brushes.Gray, 60, 140, 80, 80) g.FillEllipse(Brushes.Gray, 260, 140, 80, 80)

4. Збережіть проект під назвою Вправа_61_Прізвище.

Висновки

Рисунок, що створюється на формі, — це графічний об’єкт, для оголошення якого використовують команду:

Dim сім’я об’єкта> As Graphics = MyBase.CreateGraphics Для побудови контурів геометричних фігур використовують об’єкт «перо», яке оголошують за допомогою команди:

Dim сім’я пера> As New Pen(Color.Blue)

У VB визначено методи для побудови таких графічних примітивів, як відрізок, прямокутник, еліпс, дуга та сектор. Прямокутник, еліпс та сектор можна побудувати зафарбованими за допомогою об’єкта «пензель», який оголошують командою:

Dim сім’я пензля> As New SolidBrush(Color.Blue)

Контрольні запитання та завдання

1. Які фігури можна побудувати в графічному режимі УВ?

2. Для чого призначені об’єкти «перо» та «пензель»?

3. Які параметри потрібно знати для побудови прямокутника?

4. Яку команду необхідно обрати, щоб поб(удувати коло? Поясніть принцип його побудови.

5. Чим відрізняється побудова дуги від сектора?

Питання для роздумів

1. Чим відрізняється побудова контуру прямокутника від зафарбованого прямокутника?

2\ Чи можна в програмі описати два об’єкта «перо»?

І Завдання для досліджень

1. Дослідіть, як можна встановити стиль контуру.

2. Визначте, як у графічному режимі можна додати до зображення текст.

Побудова зображень з використанням команди повторення

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

 

Створимо проект для виведення зображення п’яти кіл, розташованих по горизонталі. Спочатку зробимо заготовку, розташувавши фігури па координатній площині на аркз'ші паперу' (рис. 6.55).

Для виведення даного зображення на формі без використання вказівок повторення необхідно ввести код:

'Оголошення графічного об'єкта Dim g As Graphics = MyBase.CreateGraphics 'Оголошення пера Dim p As New Pen(Color.Red)

‘Побудова кіл

g.DrawEllipse(p, 20, 20, 40, 40)

g.DrawEllipse(p, 80, 20, 40, 40) g.DrawEllipse(p, 140, 20, 40, 40)

g.DrawEllipse(p, 200, 20, 40, 40)

g.DrawEllipse(p, 260, 20, 40, 40)

Як бачимо, в рядках програмного коду побудови кіл змінюється тільки значення координати х на стале число 60. Також для формування коду з використанням циклів врахуємо, що таких кіл мас бути 5.

Отже, програмний код для побудови таких кіл з командою повторення буде мати вигляд:

'Побудова кіл For і = 1 То Б

g.DrawEllipse(p, 20 + (і - 1) * 60, 20, 40, 40)

Next

Розглянувши код (20 + (і - 1) * 60) для визначення координати х, виведемо загальну формулу, яку молена буде використовувати при дублюванні інших зображень, як по горизонталі, так і по вертикалі.

Це може бути формула: п + (і - 1) * d. Тз'т п — початкове значення координати; і — кількість зображень, d — відстань між зображеннями.

Складання та виконання алгоритмів з графічним відображенням даних

 

Завдання. Створити проект побудови стовпчастої діаграми (гістограми), в якому користувач самостійно вводить кількість стовпчиків (від 1 до 10) та значення, що мають відображати стовпчики (від 0 до 260).

1. Створіть схематично зображення двох стовпчиків діаграми на координатній площині в зошиті (рис. 6.56).

2. Встановіть для форми властивість Size — 600;300.

3. Введіть програмний код для процедури натиснення на форму.

Dim і, п, у As Integer

'Введення кількості стовпчиків

п = Іпрі^Вох(«Введіть кількість стовпчиків від 1 до 10»)

‘Оголошення графічного об'єкта та пензля Dim g As Graphics = MyBase.CreateGraphics Dim В As New SolidBrush(Color.Blue)

‘Очищення форми від попереднього зображення g.Clear(Color.FromName(«Control»))

For і = 1 To n

'Введення висоти стовпчика

n = InputBox(«Введіть висоту » & і & «-го стовпчика»)

'Побудова стовпчика

g.FillRectangle(B, 20 + (і - 1) * 100, 260 - у, 20, у)

Next

Пояснення. Укоді§.Рі11(*есїаг^1е(В, 20+ (1-1)* 40, у, 20, 260 - у) перше число 20 — значення координати х першого стовпчика; 40 = 60 - 20 — різниця між координатами х першого і другого стовпчика; друге число 20 — ширина стовпчика, 260 - значення координати у, у — висота стовпчика.

4. Самостійно додайте горизонтальну та вертикальну осі для діаграми.

5. Створіть аналогічний проект з відображенням кругової діаграми.

6. Збережіть проект під назвою ПР13_Прізвище.

Відображення рисунків із зовнішніх файлів

Крім створення власного зображення, на форму можна виводити зображення з файла, яке розміщується завдяки елементові керування PictuгеВох. Створюючи деякі проекти, ми вже додавали цей елемент керування, але використовували його лише в режимі конструювання. Розглянемо більш докладно можливості цього елемента керування.

Основною властивістю PictureBox с властивість Image, що визначає зображення, яке буде використало. Зображення можна завантажити і з зовнішнього носія або додати до ресурсів проекту, а вже потім завантажити до PictureBox. Як це зробити, розглянемо при виконанні практичних вправ.

Ще одна властивість — SizeMode — може набувати таких значень:

Normal — можна вручну змінювати розміри елемента;

Stretch I mage — автоматично розтягує зображення до заданих користувачем розмірів елемента керування;

AutoSize — розміри елемента керування розтягуються до розмірів зображення;

Centrelmage — розташування зображення по центру елемента;

Zoom — пропорційне масштабуванпя зображення відповідно до розмірів елемента керування.

Ці ж властивості зручно встановлювати, використовуючи власне меню елемента керування PictureBox. Щоб викликати це меню, потрібно натиснути на невеличкий трикутник, розташований у верхньому правому куті елемента (рис. 6.57).

 

Так посилання В ьі б рать и зо б раже -ниє... (Обрати зображення) рівносильне до властивості Image, а випадаючий список Режим изменения размера: (Режим зміни розміру) дублює властивість SizeMode.

І ВПРАВА 62

Завдання. Створити проект «Зоопарк», у якому мають відображатися зображення тварин при наведенні курсору на їх назви. Якщо курсор за межами назви, то зображення повинно зникати.

 

Зображення для проекту можна взяти в папці Вправа_62 на диску або завантажити з мережі Інтернет (рис. 6.58).

1. Встановіть для форми заголовок «Зоопарк».

2. Додайте зображення іконки.

а) У вікні властивостей форми оберіть властивість Icon.

б) Оберіть як зображення файл на комп’ютері Panda.ico.

Властивість

Значення

Name

L_G

Text

Жираф

AutoSize

False

Size

150;36

TextAlign

MiddleCenter

Font.Size

12

BackColor

Салатовий

Visible

False

 

3. Розташуйте на формі елементи керування Label та встановіть необхідні властивості.

а) Додайте спочатку один елемент керування Label та встановіть для нього властивості, як у даній таблиці.

б)  Після встановлення властивостей створіть три копії даного об’єкта, перетягуючи його вниз з утриманням лівої клавіші миші -«-Ctrl.

в) Встановіть для копій значення властивості Name — L_Z, L_L і L_H відповідно.

 

г) Змініть значення властивості Text відповідно до вказаних на зразку форми.

4. Додайте до форми зображення та встановіть необхідні властивості.

а) Навпроти написів додайте на форму елемент керування PictureBox.

 

б) Надайте об'єктові ім’я P_G.

в)  У меню елемента керування PictureBox (верхній правий кут об'єкта) у полі Режим изме-нения размера: (Режим зміни розміру) оберіть значення Zoom (Масштабування), як зображено на рис. 6.59.

г) Для вибору зображення клацніть на посиланні Вьібрать изображение... (Обрати зображення). В результаті чого з'явиться діалогове вікно Вьібор ресурса (Вибір ресурсу), як на рис. 6.60.

ґ) У даному вікні встановіть перемикач у положення Локальньїй ресурс (Локальний ресурс) та натисніть кнопку Импорт... (Імпорт). У результаті відкриється вікно для вибору зображення з файла на комп’ютері.

д) Завантажте до першого елемента керування PictureBox файл giraffe.png.

е) Виконайте копіювання об'єкта P_G, розташовуючи копію зверху на даний об'єкт.

є) Змініть ім’я створеної копії на P_Z та поміняйте зображення, обравши файл zebra.png.

ж) Аналогічно створіть копії ще двох елементів керування PictureBox, назвавши їх Р_1_ і Р_Н відповідно. Для об’єкта P_L встановіть зображення lion.png, а для Р_Н — hippo.png.

5.  Задайте код для події, що має відбуватися у випадку наведення курсору на об'єкт L_G (при наведенні на напис «Жираф» має з’явитися зображення жирафа).

а) Перейдіть у вікно коду. У списку праворуч оберіть об’єкт L_G, у списку праворуч — подію MouseMove. В результаті чого мають бути сформовані два рядки програмного коду: заголовок і кінець процедури.

Private Sub L_G_MouseMove(sender As Object, e As MouseEventArgs)_ Handles L_G.MouseMove End Sub

б)  Між даними рядками введіть код наведений нижче. Тут властивість видимості в елемента керування P_G (зображення жирафа) стає істинною, а в інших об’єктів, що мають зображення, — хибною.

P_G.Visible = True Р_Н.Visible = False P_L.Visible = False P_Z.Visible = False

6. Аналогічно створіть коди для наведення курсору миші на інші текстові написи.

7. Задайте програмні коди для наведення курсору миші на форму (зауважте, що в цьому випадку мають зникнути всі зображення).

8. Запустіть проект та перевірте правильність його виконання.

9. Збережіть проект під назвою Вправа_62_Прізвище.

У даній вправі було розглянуто використання декількох зображень, що були розташовані в різних елементах керування PictureBox та були завантажені з файлів, розташованих на диску комп'ютера. В наступній вправі ми також будемо мати справу з декількома зображеннями, які спочатку завантажимо до ресурсів проекту, а потім використаємо в програмному коді. До того ж різні зображення будуть завантажуватися до одного елемента керування PictureBox залежно від умови.

ВПРАВА 63

Завдання. Створити проект «Види спорту», в якому зробити можливим вибір одного з видів спорту за допомогою перемикачів. Після вибору одного з видів спорту з’являється зображення, яке йому відповідає, та відповідний напис.

Зображення для проекту можна взяти в папці Вправа_63 на диску або завантажити з мережі Інтернет.

1. Розташуйте на формі елементи керування за зразком (рис. 6.61). Для відображення рисунка скористайтеся елементом керування РісЩгеВох.

2.  Задайте перемикачам імена R1, R2 і R3 відповідно. Для мітки, в якій буде розташовано назву виду спорту, надайте ім’я — L, для зображення — Р.

3. Для PictureBox властивість Image залишіть порожньою, значення властивості SizeMode (Зміна розміру) встановіть Zoom (Масштабування). Властивості інших елементів керування встановіть самостійно.

4. Додайте до ресурсів проекту зображення з необхідними видами спорту.

а) У вікні Обозреватель решений клацніть два рази на Му Project.

б) У вікні, що відкрилося оберіть Ресурсьі (Ресурси).

в) У меню команди Добавить ресурс (Додати ресурс) оберіть Добавить существующий файл (Додати файл, що існує).

г)  Додайте бажані файли з диска комп’ютера (Футбол, Фіг_кат, Теніс). У вікні Обозреватель решений мають відобразитися обрані файли в папці Resources.

5. Задайте коди, щоб при виборі за допомогою перемикача одного з видів спорту відображалися його зображення, а знизу — відповідний напис із назвою цього виду спорту.

а) Клацніть два рази на перемикачі R1. У результаті має з’явитися вікно коду, де буде відображено заголовок процедури CheckedChanged (Зміна значення властивості Checked), що є подією за умовчанням для елемента керування RadioButton.

б) Введіть код для даної процедури.

'Надання напису тексту, що має R1, а саме слова "футбол”

L.Text = Rl.Text

'Завантаження зображення файла "футбол” із папки Resources Р.Image = Му.Resources.футбол

в) Для інших перемикачів задайте коди самостійно.

6. Запустіть проект та перевірте правильність його виконання.

7. Збережіть проект під назвою Вправа_63_Прізвище.

Висновки

Виведення зображення з файла здійснюється завдяки елементові керування PictureBox.

Основна властивість PictureBox— Image, що визпачас саме зображення SizeMode, яка встановлює спосіб розміщення рисунка.

Вибір властивостей елемента керування PictureBox зручно встановлювати за допомогою меню.

Контрольні запитання та завдання

1. Який елемент керування дозволяє виводити зображення з файла?

2. Яка властивість визначає, яке зображення буде виведено?

3. Як змінити розміри зображення?

Питання для роздумів

1. Для чого використовуються ресурси проекту?

2. Чим відрізняється можливість завантаження рисунків з файлів на диску від завантаження з ресурсів проекту?

Завдання для досліджень

1. Дослідіть, де зберігаються файли ресурсів проекту.

2. Властивість Image мас певний перелік складових. Дослідіть призначення складових цієї властивості.

 

Це матеріал з підручника Інформатика 8 клас Казанцева

 

Категорія: Інформатика

Автор: admin от 19-12-2016, 20:41, Переглядів: 6734