Автоматизація комп‘ютерних проектів. Автоматизований розрахунок обміну валют

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

Таблиця 4.1.15.

Об'єкти типу OptionButton призначені для створення у формі способу для вибору однієї альтернативної можливості з декілька. Розглянемо такі властивості перемикачів:

Таблиця 4.1.16.

1. Відкрийте редактор VBА і створіть форму Insert – UserForm.

2. Відмовіться від можливості міняти розміри вікна програми, вказавши значення властивості форми BorderStyle - Fixed Dialog.

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

3.Вставте у форму два об'єкти типу OptionButton (перемикачі), як показано на рис. 6.

Для цього двічі клацніть на піктограмі об'єкту типу OptionButton (перемикач) на палітрі компонентів і помістіть його в потрібному місці форми. Повторіть ці дії, щоб вставити другий перемикач.

4.Задайте початкове значення правого перемикача як активне.

Для цього клацніть на правому перемикачі і значення його властивості Value (контроль вибору) задайте True.

5.Вставте у форму два поля редагування - об'єкти Textl і Text2.

Для цього клацніть на піктограмі об'єкту типу TextBox (поле редагування) палітри компонентів, а потім обведіть контур цього об'єкту на формі. Вставте другий об'єкт (рис. 4.1.12.).

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

6.Розташуйте у формі два текстові поля - об'єкти Labell і Label2 (рис. 4.1.12.).

7.Вставте у форму два поля редагування - об'єкти Text3 і Text4 (рис. 4.1.12).

8.Вставте у форму дві кнопки - об'єкти типу CommandButton (рис.4.1.12).

9.Вставьте у форму ще два текстові поля - об'єкти Label3 і Label4 (рис. 4.1.12.).

10.Збережіть створену на даний момент форму .

11. Змініть назву форми з "Form1" на "Обмін валюти".

Для цього зміните значення властивості Caption форми. Клацніть на формі і на рядку Caption у вікні Properties введіть назву форми без лапок. Звернете увагу на те, що для об'єктів деяких типів (зокрема. Label. Form. CheckBox і ін.) значення властивостей Caption і Name співпадають.

12. Поміняйте підписи Caption до об'єктів типу OptionButton, Label і CommandButton так, як показано на рис. 4.1.13.

Для цього по черзі вибирайте об'єкти (клацайте на них) і міняйте значення властивості Caption.

Рис. 4.1.12. Рис. 4.1.13.

13. Задайте однакові розміри для всіх текстових полів, полів редагування і кнопок і вирівняйте їх на формі.

Для цього синхронно виділите п'ять об'єктів лівого стовпця одним з наступних способів:

утримуючи клавішу Shift натиснутою, по черзі активізуйте об'єкти, клацаючи на них лівій клавішею миші;

обведіть навколо цих об'єктів контур при натиснутій лівій клавіші миші.

У вікні властивостей задайте загальні для цих об'єктів значення властивостей Width (ширина), Height (висота) і Left (відступ від лівої межі вікна) в твіпах. Звернете увагу, що подвійне клацання на назві загальної властивості приводить до надання йому значення властивості першого виділеного об'єкту створеної групи. Можете поміняти стиль, колір або розмір шрифту синхронно для всіх виділених об'єктів (властивості Font, ForeColor, BackColor). Зніміть виділення, клацнувши на вільному місці форми. Аналогічно виконаєте вирівнювання правого стовпця об'єктів. Вирівняйте вставлені поля попарно в горизонтальному напрямі. Для цього змінюйте властивість Тор (відступ від верхньої межі вікна в пікселях) для відповідних груп об'єктів. Збережете роботу (Save All).

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

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

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

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

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

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

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

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

Private Sub Option2_Click()

Label3.Caption = "=>"

' Міняємо напрям стрілки

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

End Sub

Аналогічно запрограмуйте подію Click для лівого перемикача Optionl, враховуючи, що стрілка повинна показувати на ліве поле ('<=').

Фрагмент програмного коду створеної процедури запишіть в звіт.

18. Запустіть програму і переконайтеся, що перемикач виконує наданіі йому функції.

19. Запрограмуйте кнопку "Вихід".

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

Private Sub Command2_Click()

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

End Sub

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

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

Private Sub Commandl_Click()

If Optionl.Value = True Then

Text4.Text = Text3.Text * Textl.Text

'USD * курс покупки

Else

Text4.Text = Text3.Text * Text2.Text
'USD * курс продажу
End If
End Sub

21.Виконайте програму і поекспериментуйте з різними грошовими сумами і операціями купівлі або продажу. Закрийте вікно програми "Обмін валюти".

Для переривання роботи програми у разі неправильного введення вхідних даних виконаєте пункт головного меню Run => End або клацніть на кнопці ■ End панелі інструментів головного вікна Visual Basic.

Зауваження. Звертайте увагу на використання коми або крапки у вхідних даних. У числах, що відносяться до курсу валют, сум гривень або доларів для десяткової крапки використовуйте символ, передбачений операційною системою вашого комп'ютера (див. Start (Пуск) => Settings (Настройка) =* Control Panel (Панель управління) => Regional Settings (Мова і стандарти) => закладка Number (Числа), рядок Decimal symbol (Роздільник цілої і дробової частин числа)).

23. Поміняйте розміри і кольори символів (зокрема об'єктів Label3 і Text3), розташування об'єктів, фон форми (властивість BackColor) так, щоб форма виглядала якнайкраще.

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

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

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

Запитання для самоконтролю до розділу 4

1. Що таке VBA?

2. Назвіть основні об'єкти VBA.

3. Що розуміється під сімейством об'єктів?

4. Які типи модулів розрізняють в VBA?

5. Що розуміється під властивістю і методом об'єкту!

6. Що є подією і повідомленням! Що може бути відправником повідомлення? Які об'єкти можуть виступати як одержувач повідомлення?

7. Що є подіями GotFocus і LostFocus, який синтаксис процедур їх обробки?

8. Назвіть основні події форми. У яких випадках вони відбуваються?

9. Назвіть основні події миші. У яких випадках вони відбуваються?

10. Назвіть основні події клавіатури. У яких випадках вони відбуваються?

11. Які символи допускається застосовувати в іменах змінних?

12. Чи можна ім'я змінної починати з цифри або з символу підкреслення?

13. Які існують угоди по стилю імен?

14. Які базові типи даних підтримує VBA?

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

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

17. Напишіть оператора, що декларує одновимірний масив з 7 елементів цілого і базовий індекс, що має, - 3.

18. Що таке динамічні масиви і як вони декларуються?

19. Як відмінність між змінною і константою? Які типи констант підтримує VBA?

20. Що є переліками, для чого вони застосовуються?

21. Що є призначеним для користувача типом даних, як він визначається і оголошується?

22. Як відмінність між лінійним і блоковим оператором If ?

23. Як визначається цикл з відомим числом повторень?

24. Для яких цілей служить цикл For Each, який його синтаксис?

25. Які цикли з умовою підтримує VBA?

26. У чому відмінність циклів з передумовою і умовою поста?

27. Що таке функція і як вона визначається?

28. Як проводиться звернення до функції?

29. Які типи вбудованих функцій є в VBA?

30. Як створюються функції користувача?

31. Що таке аргументи функції та значення функції?

32. Що таке формальні та фактичні параметри функції? В чому полягає між ними різниця?

33. Де і як вказуються типи параметрів, що передаються функції?

34. Значення яких типів можуть повертати функції користувача?

35. Яку структуру має директива, яка оголошує початок функції користувача?

36. Який синтаксис має інструкція виклику певної функції в робочих листках MS Excel? Який синтаксис має інструкція виклику певної функції в програмних кодах процедур обробки певних дій елементів керування MS Excel?

37. Яким чином визначається значення, яке повертає функція?

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