Практична робота № 6 Створення та реалізація програм з використанням системи програмування visual basic
Мета: навчитись складати програми мовою VISUAL BASIC та навчитись складати програми мовою VISUAL BASIC для демонстрації графічних можливостей.
Обладнання та матеріали: ПК №____, Програма Visual Basic
Завдання:
1. Завантажте програму Visual Basic та вказати її версію.
____________________________________________________________________________________________________________________________________________________________________
2. Створіть та реалізуйте програму найпростішого Калькулятора. Налаштування проекту та код виписати в звіт.
____________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________
3. Створіть та реалізуйте програму Circle.
Private Sub Form_Paint()
Dim color As Integer, i As Integer
Dim aspect As Single
ScaleLeft = -500
ScaleWidth = 1000
ScaleTop = -500
ScaleHeight = 1000
color = 0
aspect = Height / Width
Cls
For i = 1 To 500 Step 2
color = color + 1
If color = 16 Then color = 0
Circle (0, 0), i, QBColor(color), , , aspect
Next i
End Sub
4. Вкажіть, що виконує попередній алгоритм. Збережіть створену програми у власну папку.
________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________
5. Створіть та реалізуйте програму Color Tester.
Запустіть новий проект і введіть в основну форму масив компонентів, який складається з трьох елементів управління Scroll Bar, і ще один масив, який складається з трьох елементів управління Text Box. Додайте три елемента управління Label, встановивши їх заголовки (властивість Caption) в Red, Green і Blue відповідно. Властивості елементів управління див. в табл. 1. Розташуйте елементи управління в формі так, як це показано на мал. 1. Переконайтесь, що смуга прокрутки і текстове поле з номером 0 знаходяться під міткою Red, а смуга прокрутки і текстове поле з номером 1 – під міткою Blue. Властивості форми Caption задайте значення Color Tester, а проект і форму збережіть під ім’ям Colors.
Об’єкт
Властивість
Значення властивості
VScroll1
Name
VScroll1
VScroll2
Name
VScroll1
VScroll3
Name
VScroll1
Text1
Name Text
Text1 Text1
Text2
Name Text
Text1
Text1
Text3
Name Text
Text1 Text1
Label1
Caption
Red
Label2
Caption
Green
Label3
Caption
Blue
Властивість
Значення властивості
VScroll1
Name
VScroll1
VScroll2
Name
VScroll1
VScroll3
Name
VScroll1
Text1
Name Text
Text1 Text1
Text2
Name Text
Text1 Text1
Text3
Name Text
Text1 Text1
Label1
Caption
Red
Label2
Caption
Green
Label3
Caption
Blue
Табл. 1 Мал. 1
Ви повинні набрати наступний програмний код, враховуючи, що перші дві команди вже є:
Option Explicit
Private Sub Form_Load()
Dim i As Integer
' Встановлюємо діапазон смуг прокрутки від 0 до 255,
' малий крок встановлюємо рівним 1, а великий - рівним 25.
For i = 0 To 2
VScroll1(i).Min = 0
VScroll1(i).Max = 255
VScroll1(i).SmallChange = 1
VScroll1(i).LargeChange = 25
VScroll1(i).Value = 255
' Ініціалізуємо текстові поля.
Text1(i).Text = 255 - VScroll1(i).Value
Next i
End Sub
Private Sub Form_Paint()
' Малюємо прямокутник.
DrawRect
End Sub
Private Sub VScroll1_Change(Index As Integer)
' При зміні смуги прокрутки розміщаємо нове значення в текстове поле
' і викликаємо процедуру малювання.
Text1(Index).Text = 255 - VScroll1(Index).Value
DrawRect
End Sub
Public Sub DrawRect()
Dim color As Long
' Генеруємо колір за значеннями смуг прокрутки.
color = RGB(255 - VScroll1(0).Value, 255 - VScroll1(1).Value, 255 - VScroll1(2).Value)
' Малюємо прямокутник.
Form1.Line (3500, 1100)-(6000, 3400), color, BF
End Sub
6. Вкажіть, що виконує попередній алгоритм. Збережіть створену програми у власну папку.
________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________
Висновки:_____________________________________________________________________________________________________________________________________________________________________________________________________________________________________________
Підпис студента: ___________
Підпис викладача: ___________