ЛАБОРАТОРНА РОБОТА №3
Програмування розгалужень. Об’єкти: поля редагування, перемикачі
Мета роботи. Створити форму з назвою «Обмін валюти», на якій можна змоделювати операції обміну валюти в обмінному пункті. Застосовувати поля редагування (TextBox) та перемикачі (OptionButton, дослівно кнопка вибору), а також кнопки для виконання обчислень та закінчення роботи програми.
Теоретичні відомості. Об’єкти типу TextBox використовують для введення рядка символів з клавіатури. Окрім відомих уже властивостей, поля редагування TextBox володіють такими :
Властивість | Опис властивості | Приклади значень
PasswordChar | Символ для введення пароля | Порожній рядок ( пряме відображення тексту), *(текст відображатиметься зірочками)
ToolTipText | Текст підказки, яка висвітлюється, якщо навести курсор миші | «Введіть суму» (довільний рядок символів)
Text | Текст у полі редагування | «0,0001» (довільний рядок символів)
Об’єкти типу OptionButton призначені для створення у формі засобу для вибирання однієї альтернативної можливості серед декількох. Розглянемо такі властивості перемикачів:
Властивість | Опис властивості | Приклади значень
Value | Стан перемикача | True (вибраний), False (не вибраний)
TabIndex | Порядок вибору об’єкта клавішею Tab | 0 (перший), 4 (п’ятий)
TabStop | Доступ до даного об’єкта табулятором | True (буде доступним), False (не буде)
Хід роботи
Завантажую середовище Visual Basic.
Вставляю у форму два об’єкти типу OptionButton (перемикачі).
Для цього треба двічі клацнути на піктограмі об’єкта типу OptionButton (перемикач) на палітрі компонентів і розмістити його у потрібному місці форми. Ці дії треба повторити, щоб вставити другий перемикач.
Задаю початкове значення правого перемикача як активне.
Для цього клацаю на правому перемикачі і значення його властивості Value (контроль вибору) задаю True.
Вставляю у форму два поля редагування – об’єкти Text1 та Text2.
Для цього клацаю на піктограмі об’єкта типу TextBox (поле редагування) палітри компонентів, а потім обвожу контур цього об’єкта на формі. Вставляю другий об’єкт.
Розташовую у формі два текстові поля – об’єкти Label1 та Label2.
Вставляю у форму два поля редагування – об’єкти Text3 та Text4.
Вставляю у форму дві кнопки – об’єкти типу CommandButon.
вставляю у форму ще два текстові поля – об’єкти Label3 та Label4.
Зберігаю створену на даний момент форму у своїй папці.
File => Save Project. Імена файлів форми та проекту занотовую у звіт. У подальшому періодично, зокрема перед черговими запусками проекту на виконання , зберігаю файли програми (File => Save Project, вводити імена файлів вже не потрібно).
Змінюю підписи Caption на об’єктах типу OptionButton, Label та CommandButon.
Для цього по черзі вибираю об’єкти (клацаю на них) і змінюю значення властивості Caption.
11. Задаю значення курсів купівлі та продажу валюти, а також кількість валюти, яку кантор купує чи продає.
Для цього ввожу потрібне число, наприклад 5,20, як значення властивості Text об’єкта Text1. Повторюю це для об’єкта Text2 ( значення 5,40) та Text3 (наприклад, 15).
12. Обчислюю поле редагування Text4.
Для цього вилучую значення властивості Text для об’єкта Text4.
Важливо не сплутати значення властивостей Name та Text цих об’єктів.
13. Запрограмовую перемикачі, щоб напрямок стрілки показував на вид операції: купівля чи продаж. Роблю активним поле Text3.
Клацаю двічі на правому перемикачі Option2 (Продаж). Отримую заготовку процедури Option2_ Click. У тілі цієї процедури описую дії, які мають відбутися у результаті клацання на правому перемикачі Option2:
Private Sub Option2_ Click.()
Labe13.Caption =”>” ‘ Змінюю напрямок стрілки
Text3.SetFocus ‘ Активізую поле Text3
End Sub
Аналогічно запрограмовую подію Click клацанням на лівому перемикачі Option1, враховуючи, що стрілка має показувати на ліве поле (”<=”).
14. Запрограмовую кнопку “Вихід”.
Важливо скористатись процедурою закінчення роботи програми End.
Private Sub Command2_ Click.()
End ‘ Закінчую роботу програми
End Sub
15. Запрограмовую кнопку “Обчислити”.
Текст процедури цієї кнопки передбачатиме перевірку стану одного із перемикачів(увімкнений чи ні). Перемикачі створені так що другий завжди перебуватиме у протилежному стані.
Private Sub Command1_ Click.()
If Option1. Value = True Then
Text4. Text = Text3. Text * Text1. Text ‘ USD * курс купівлі
Else
Text4. Text = Text3. Text * Text2. Text ‘ USD * курс продажу
End If
End Sub
16. Зберігаю роботу (Save Project).
17. Виконую програму і проексперементовую з різними грошовими сумами і операціями купівлі чи продажу. Закриваю вікно програми “Обмін валюти”.
Для переривання роботи у випадку неправильного введення вхідних даних виконую пункт головного меню Run > End чи клацаю на кнопці ¦ End панелі інструментів головного вікна Visual Basic.
18. Демонструю створену форму викладачеві. Закінчую роботу.