Практична робота № 6 Створення та реалізація програм з використанням системи програмуванняVisual basic
Мета: навчитись складати програми мовою VISUAL BASIC та навчитись складати програми мовою VISUAL BASIC для демонстрації графічних можливостей.
Обладнання та матеріали: ПК №____, Програма Visual Basic
Завдання:
1. Завантажте програму Visual Basic.
_______________________________________________________________________________
_______________________________________________________________________________
2. Створіть та реалізуйте програму для обрахунку маси деталі ( див. мал.1), якщо задано D1, D2, D3, H1, H2, густина.
Мал.1
_______________________________________________________________________________
_______________________________________________________________________________
_______________________________________________________________________________
_______________________________________________________________________________
_______________________________________________________________________________
_______________________________________________________________________________
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. Збережіть .exe файл даної програми на дискеті та у власній папці.
_______________________________________________________________________________
_______________________________________________________________________________
_______________________________________________________________________________
6. Створіть та реалізуйте програму Color Tester.
Запустіть новий проект і введіть в основну форму масив компонентів, який складається з трьох елементів управління Scroll Bar, і ще один масив, який складається з трьох елементів управління Text Box. Додайте три елемента управління Label, встановивши їх заголовки (властивість Caption) в Red, Green і Blue відповідно. Властивості елементів управління див. в табл. 1. Розташуйте елементи управління в формі так, як це показано на мал. 2. Переконайтесь, що смуга прокрутки і текстове поле з номером 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 Мал. 2
Двічі натисніть в довільному місці форми. На екрані з’явиться вікно для написання програмного коду, яке буде містити наступні команди:
Private Sub Form_Load()
End Sub
Ви повинні набрати наступний програмний код, враховуючи, що перші дві команди вже є:
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
Завантажте програму і спробуйте змішувати кольори.
7. Збережіть створену програми у власну папку.
_______________________________________________________________________________
_______________________________________________________________________________
_______________________________________________________________________________
8. Збережіть .exe файл даної програми на дискеті та у власній папці.
_______________________________________________________________________________
_______________________________________________________________________________
Висновки:_______________________________________________________________________________________________________________________________________________________________________________________________________________________________________________
___________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________
Підпис студента: ___________
Підпис викладача: ___________