3. Використання елементів управління в програмах Visual Basic.

Горизонтальну або вертикальну смуги прокручування можна помістити у форму за допомогою відповідних елементів на панелі: HscrollBar, VscrollBar. Прийнято, щоб імена смуг прокручування у програмах починалися зі сполучення hsb для горизонтальних смуг і vsb для вертикальних.

Переміщення бігунка по смузі призводить до зміни властивості Value елемента, що може знаходиться в діапазоні, обумовленому властивостями Max і Min елемента. Властивість Small Change визначає крок зміни властивості Value при використанні кнопок , або , . У програмах смуги прокручування використовуються, на відміну від вікон, не для переміщення всередині вікна, а для визначення значення засобом переміщення бігунка. У результаті виконання переміщення бігунка по смузі прокручування відбувається подія Change, тобто події Change відповідає зміна місця розташування бігунка на смузі, подія відбувається після того, як бігунок займе нове місце. Процесу переміщення бігунка відповідає подія Scroll, лише бігунок зрушив з місця – відбулась подія Scroll.

Для перемикачів (OptionButton) в області діалогу, обмеженою рамкою (Frame), у стані «включено» значення властивості Value дорівнює True (Істина), у стані «вимкнено» - False (Брехня). Аналізуючи значення властивості Value кожного перемикача можна виконувати визначені дії. Імена перемикачів доцільно починати зі сполучень літер opt, груп - fra.

Елемент прапорець (Check Box) у стані «включено» одержує значення властивості Value - True (1), у стані «вимкнено» - False (0). У програмах при аналізі стану прапорців слід використовувати значення 1 або 0. Імена прапорців слід починати зі сполучень літер chk.

Списки, що розчиняються, створюються за допомогою елемента (ComboBox), вони використовуються для вибору одного значення з переліку можливих. Імена списків, що розчиняються, доцільно починати зі сполучень літер cbo. Перелік можливих значень визначається як значення властивості List об’єкта. Значення властивості Text відповідає поточному стану списку, дорівнює тому значенню, яке обрано зі списку.

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

Визначити суму амортизаційних відрахувань для різних видів основних засобів, якщо відомо їхню залишкову вартість.

Відсоток амортизаційних відрахувань визначається по формулі залежно від виду основних засобів:

• для будинків - 10%;

• для транспортних засобів - 15%;

• для утаткування - 12%.

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

Умовні позначки:

Z - залишкова вартість основних засобів;

S - сума амортизаційних відрахувань.

Виконання:

1. Створюємо форму пректу.

2. Задаємо властивості для форми та створюваних об’єктів.

   1. для линейкі (HscrollBar):

Name - hsbLin

Max - 30000

Min - 0

Value - 0

SmallChange - 100

2. для 1 - го переключателя (OptionButton):

Name - optF1

Caption - здания

Value - True

3. для 2 - го переключателя:

Name - optF2

Caption - транспорт

Value - False

4. для 3 - го переключателя:

Name - optF3

Caption - оборудование

Value - False

3. Створюємо програмний код програми.

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

Private Sub hsbLin_Scroll()

hsbLin_Change

End Sub

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

Private Sub hsbLin_ Change ()

txtZ.Text = hsbLin. Value

End Sub

3.3 Процедура виконання розрахунків:

Private Sub cmdRas_Click()

Z= txtZ.Text

If optF1.Value = True Then 

S = Z* 0.1 

Else 

If optF2.Value = True Then 

S = Z * 0.15 

Else 

S = Z * 0.12 

End if 

End if 

txtS.Text = str(S)

End Sub

3.4 Процедура завершення роботи програми:

Private Sub cmdVix_Click()

End

End Sub

3.5 Процедура очистки полей:

Private Sub cmdOch_Click()

txtZ.Text = “”

txtS.Text = “”

End Sub

4. Запускаємо програму на виконання.