14.Задайте значення курсів купівлі та продажу валюти, а також кількість валюти, яку кантор купує чи продає.

Для цього введіть потрібне число, наприклад 5,20, як значення властивості Text об'єкта Textl. Повторіть це для об'єкта Text2 (значення 5,40) та TextS (наприклад, 15).

15.Очистіть поле редагування Text4.

Для цього вилучіть значення властивості Text для об'єкта Text4. Не сплутайте значення властивостей Name та Text цих об'єктів.

16*.Заблокуйте можливість введення даних для поля Text4, задав-ши його властивість Enabled (доступність) як False, оскільки це поле міститиме результат.

Змінювати значення певної властивості можна подвійним кла-цанням на ній лівою клавішею миші. Збережіть роботу (Save Project). Виконайте програму і переконайтеся, що не можна ввести чи редагувати дані у полі об'єкта Text4.

17.3апрограмуйте перемикачі так, щоб напрямок стрілки пока-зував иа вид операції: купівля чи продаж. Зробіть активним поле TextS.

і

І Клацніть двічі на правому перемикачі Option2 (Продаж). Отри-f маєте заготовку процедури Option2_Click. У тілі цієї процедури

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

правому перемикачі Option2:

' Private Sub Option2_Click()

Labels.Caption = "=>" ' Змінюємо напрямок стрілки

Text3. SetFocus ' Активізуємо поле Text З

End Sub_____________________________________

Аналогічно запрограмуйте подію Click клацанням на лівому

перемикачі Optionl, врахувавши, що стрілка має показувати на

ліве поле ('<=').

^Фрагмент програмного коду створеної процедури запишіть у звіт. .S*. Запустіть програму і переконайтесь, що перемикач виконує

свої функції згідно пункту 17. І9.3апрограмуйте кнопку "Вихід".

Скористайтесь процедурою закінчення роботи програми End:

Private Sub Command2_Click()

End 'Закінчуємо роботу програми End Sub

Ю.Запрограмуйте кнопку "Обчислити".

Текст процедури цієї кнопки передбачатиме перевірку стану а, одного із перемикачів (увімкнений чи ні). Перемикачі створені І так, що другий завжди перебуватиме у протилежному стані.

І Private Sub Commandl_Click()

І If Optionl.Value = True Then

й Text4.Text = TextS.Text * Textl.Text 'USD * курс купівлі

I Else

і Text4.Text = TextS.Text * Text2.Text 'USD * курс продажу

End If

End Sub_____________________________________

il.Збережіть роботу (Save Project).

І2.Виконайте програму і поекспериментуйте з різними грошовими

сумами і операціями купівлі чи продажу. Закрийте вікно

програми "Обмін валюти".

Для переривання роботи програми у випадку неправильного введення вхідних даних виконайте пункт головного меню Run =$ End чи клацніть на кнопці Ш End панелі інструментів головного вікна Visual Basic.

Зауваження. Зверніть увагу на використання коми чи крапки у вхідних даних. У числах, які оуцеуються курсу валюти, грив-невої чи доларової сум для десяткової крапки використайте сим-вол, передбачений операційною системою вашого комп'ютера

(див. Start (Пуск) => Settings (Налаштовування) => Control Panel (Панель керування) => Regional Settings (Місцеві параметри) ^ закладка Number (Числа), рядок Decimal symbol (Символ десяткової крапки) ).

23*.Змініть розміри та кольори символів (зокрема об'єктів Labels і TextS), розташування об'єктів, фон форми (властивість Back-Color) так, щоб форма виглядала якнайкраще.

24*.3абезпечте появу підказки "Введіть суму в доларах" після переміщення вказівника миші до поля TextS. Виберіть об'єкт TextS і як значення властивості ToolTipText уве-діть текст підказки. Збережіть роботу, запустіть програму і пере-конайтеся, що підказка з'являється.

25*.Поміняйте вигляд стрілки з => на *$, а <= на <?.

Для цього виберіть об'єкт LabelS і як значення властивості Caption введіть українську букву р, після чого, активізувавши властивість Font, виберіть назву шрифта Wingdings. Двічі клацніть на правому перемикачі і в його процедурі введіть українську букву р замість =>. У процедурі для лівого пере-микача символи <= замшіть буквою п. Збережіть роботу, запустіть програму і переконайтеся, що стрілка змінила свій вигляд. \

26.Продемонструйте створену форму викладачеві. Закінчіть роботу.

Задача 2.1. Передбачте у створеній програмі ще одну кнопку для очистки полів грошових сум. Виконайте програму і пере-конайтесь у правильності її роботи.

Підказка. Для об'єктів TextS, Text4 у процедурі опрацювання події натискання на цю кнопку використайте команду присвоєння їхнім властивостям Text порожнього рядка (") .

Задача 2.2. Забезпечте появу підказки "Введіть курс купівлі" та "Введіть курс продажу" після переміщення вказівника миші до полів Textl та Text2 відповідно (див п. 24).

Задача 2.3. У процедурі для кнопки "Обчислити" передбачте 1% збору у пенсійний фонд від операції купівлі—продажу.

Задача 2.4. Модифікуйте програму, передбачивши додаткову можливість зміни типу операцій (купівля, продаж) внаслідок кла-цання мишею на стрілці. Запишіть у звіт фрагмент програмного коду, який реалізує цю можливість. Виконайте програму.

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

Label3_Click (опис дій у випадку клацання на об'єкті LabelS). В ті-лі цієї процедури можна скористатися командами вигляду:

~If LabelS.Caption = "=>" Then

• • • 'Встановлюємо перемикач у ліве положення, змінюючи

'значення властивості Value об'єкта Optionl Else

• • • 'Встановлюємо перемикач у праве положення, змінюючи

'значення властивості Value об'єкта Option2 End If_______________________________

Задача 2.5. Спростіть форму (вилучіть зайві об'єкти) та змі-ніть код кнопки "Обчислити" так, щоб 'й можна було вико-ристати для переведення миль у кілометри чи навпаки в залеж-ності від положення перемикача (1 миля = 1,609344 кілометрів).

Задача 2.6. У створену для задачі 2.5. форму вставте рамку (об'єкт Frame), а в неї — два перемикачі для вибору типу милі з двох можливих значень: морської чи звичайної (1 морська миля = 1,852 кілометрів).

§ 4. ЗАДАЧА ТАБУЛЮВАННЯ ФУНКЦІЇ.

Практична робота № 3. Програмування циклів.

Об'єкти: Checkbox, Frame. Робота з меню

Мета роботи. Створити форму для розв'язування задачі табу-лювання функції. Побудувати у ній головне меню з командами: за-кінчити роботу програми, табулювати функцію, очистити поля ви-ведення результатів. Результати табулювання вивести у багато-рядкове поле редагування