Практична робота: "Створення та реалізація програм з використанням системи програмування VISUAL BASIC"

 

Практична робота №

Створення та реалізація програм з використанням  системи програмування 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.

 

Табл. 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 файл даної програми на дискеті та у власній папці.

_______________________________________________________________________________

_______________________________________________________________________________

 

 

 

 

Висновки:_______________________________________________________________________________________________________________________________________________________________________________________________________________________________________________

___________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________