Приклад 6.1

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

такої функції: S = 320 + x * t, якщо відомі діапазони, в яких змінюються величини x й t: –750 < x < = 750 і –500 < t < =500.

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

Виконання. В екранну форму встановити дві лінійки прокручування для вибору значень змінних x і t. Послідовність дій, спрямовану на додавання лінійок у форму та встановлення властивостей для них, описано нижче. Контроль уведення даних необхідно виконувати в текстових вікнах x й t. Користувач може набирати цифри, знаки + або –, використовувати клавіші Delete і Backspace, закінчувати введення даних клавішею Enter, усі інші символи повинні зумовлювати повідомлення про помилку. При натисканні на зазначені клавіші на клавіатурі в комп'ютер надходить відповідний код, який можна перевіряти програмно. Оскільки перевіряти потрібно досить велику кількість кодів, то в цьому випадку краще використовувати оператор Select case. При цьому спочатку виконують перевірку введення, а потім обчислення, натискуючи клавішу Enter на клавіатурі.

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

1. Створити форму. Схему розміщення компонентів на поверхні форми забражено на рис. 6.1.

2.Створити лінійки для вибору значень змінної x таким чином:

● на панелі інструментів вибрати елемент керування – VscrollBar, створити за його допомогою лінійку прокручування й розмістити її у формі, як це показано на рис. 6.1 (vscroll1);

● активізувати вікно Properties і в ньому встановити властивості такі для лінійки:

Name – Vscroll1

Max – 750

Min – –750

Value – 0

SmallChange – 1

LargeChange – 10

 

Рис. 6.1. Загальний вигляд початкових даних для створення форми проекту

 

3. Створити лінійку для вибору значень змінної t:

● на панелі інструментів вибрати елемент керування VscrollBar, створити за його допомогою лінійку прокручування і розмістити її у формі, як це показано на рис. 4.1 (vscroll2);

● активізувати вікно Properties і в ньому встановити властивості такі для лінійки:

Name – vscroll2

Max – 500

Min – –500

Value – 0

SmallChange – 1

LargeChange – 6

4. Внести таки доповнення в програмний код:

● подвійним клацанням лівою клавішею миші по верхній (у формі проекту) лінійці прокручування відкрити вікно Code;

● для об'єкта x вибрати подію Change і дописати процедуру, виконання, якої буде необхідним після настання події, тобто переміщення бігунка на лінійці із контролем уведених даних:

Private Sub VScroll1_Change()

Text3.Text = VScroll1

mes.Caption = " Уведення змінної а в діапазоні –750...750"

End Sub;

● для об'єкта x вибрати подію Scroll і дописати зміст процедури, виконуваної під час переміщення бігунка по лінійці, а саме:

Private Sub VScroll1_Scroll()

VScroll1_Change

End Sub;

● аналогічно створити процедури для об'єкта t, тобто:

Private Sub VScroll2_Change()

Text4.Text = VScroll2

mes.Caption = " Уведення змінної а в діапазоні -500...500"

End Sub;

Private Sub VScroll2_Scroll()

VScroll2_Change

End Sub

5. Скористатись відомостями про призначення всіх інструментів, які розміщені на поверхні форми, за табл. 6.1.

6. Додати оператори контролю введення в код текстового вікна. Подвійним клацанням лівою клавішею миші по текстовому вікну text3 викликати вікно коду величини x, та у ньому відкрити подію KeyPress. При цьому з'являється заготівка процедури: