Базовые элементы управления вводом и выводом информации в IDE VB

 

 

 

3.3  Реализация проекта VB 5.3

 

 

В задании предлагается сформировать массив CommandButton, элементы которого должны последовательно загружатся по временному отсчету. Геометрия загрузки элементов должна определить заполнение ими квадрата центральной области контейнера. Порядок заполнения: слева – направо, сверху – вниз. Число элементов должно быть не менее 17. Желательно визуализировать каждый элемент своей пиктограммой и предусмотреть возможность последовательной индикации пиктограмм при активизации элементов. Для этого в коде программы задаем переменные и формируем массив кнопок. Также присваиваем каждому элементу массива свой номер:

 

 

Option Explicit

Const N = 24

Dim ClName() As String

Dim k As Single

 

Private Sub Form_Click()

    to_Model k

End Sub

 

Private Sub Form_Load()

        to_inscribe ClName(), N

        Cmd_Cl(0).Left = 7500

        Frm_4.Width = k

End Sub

Private Sub to_inscribe(M() As String, N As Integer)

        ReDim M(N)

        M(0) = "1"

        M(1) = "2"

        M(2) = "3"

        M(3) = "4"

        M(4) = "5"

        M(5) = "6"

        M(6) = "7"

        M(7) = "8"

        M(8) = "9"

        M(9) = "10"

        M(10) = "11"

        M(11) = "12"

        M(12) = "13"

        M(13) = "14"

        M(14) = "15"

        M(15) = "16"

        M(16) = "17"

        M(17) = "18"

        M(18) = "19"

        M(19) = "20"

        M(20) = "21"

        M(21) = "22"

        M(22) = "23"

        M(23) = "24"

        M(24) = "25"

End Sub

 

 

Затем прописываем код  для расположения элементов массива:

 

 

Private Sub to_Model(k As Single)

        Timer1.Enabled = True

Dim i As Integer

 

For i = 1 To N

    Load Cmd_Cl(i)

    Cmd_Cl(i).Caption = ClName(i)

   

         If i >= 0 And i < 5 Then

                Cmd_Cl(i).Left = Cmd_Cl(i - 1).Left

                Cmd_Cl(i).Left = Cmd_Cl(i - 1).Left + Cmd_Cl(i - 1).Height + 200

        End If

       

           If i > 4 And i < 6 Then

                Cmd_Cl(i).Left = Cmd_Cl(i - 1).Left - 3250

                Cmd_Cl(i).Top = Cmd_Cl(i - 1).Top + 700

          End If

         

          If i > 5 And i < 10 Then

                Cmd_Cl(i).Left = Cmd_Cl(i - 1).Left

                Cmd_Cl(i).Left = Cmd_Cl(i - 1).Left + Cmd_Cl(i - 1).Height + 200

                Cmd_Cl(i).Top = Cmd_Cl(i - 1).Top

          End If

         

           If i > 9 And i < 11 Then

                Cmd_Cl(i).Left = Cmd_Cl(i - 1).Left - 3250

                Cmd_Cl(i).Top = Cmd_Cl(i - 1).Top + 700

          End If

         

          If i > 10 And i < 15 Then

                Cmd_Cl(i).Left = Cmd_Cl(i - 1).Left

                Cmd_Cl(i).Left = Cmd_Cl(i - 1).Left + Cmd_Cl(i - 1).Height + 200

                Cmd_Cl(i).Top = Cmd_Cl(i - 1).Top

          End If

             

          If i > 14 And i < 16 Then

                Cmd_Cl(i).Left = Cmd_Cl(i - 1).Left - 3250

                Cmd_Cl(i).Top = Cmd_Cl(i - 1).Top + 700

          End If

         

          If i > 15 And i < 20 Then

                Cmd_Cl(i).Left = Cmd_Cl(i - 1).Left

                Cmd_Cl(i).Left = Cmd_Cl(i - 1).Left + Cmd_Cl(i - 1).Height + 200

                Cmd_Cl(i).Top = Cmd_Cl(i - 1).Top

          End If

         

          If i > 19 And i < 21 Then

                Cmd_Cl(i).Left = Cmd_Cl(i - 1).Left - 3250

                Cmd_Cl(i).Top = Cmd_Cl(i - 1).Top + 700

          End If

         

          If i > 20 And i <= 24 Then

                Cmd_Cl(i).Left = Cmd_Cl(i - 1).Left

                Cmd_Cl(i).Left = Cmd_Cl(i - 1).Left + Cmd_Cl(i - 1).Height + 200

                Cmd_Cl(i).Top = Cmd_Cl(i - 1).Top

          End If

                Cmd_Cl(i).Visible = False

  

    Next i

   

End Sub

 

 

Для последовательной загрузки элементов массива на форме так  же располагаем таймер, который по щелчку на форме активизируется, программный  код представлен ниже:

 

 

Private Sub Timer1_Timer()

        Static h As Integer

            h = h + 1

            Cmd_Cl(h) = h

            Cmd_Cl(h).Visible = True

            If h >= 24 Then Timer1.Enabled = False

End Sub

 

 

Последовательная индикация  кнопок массива представлена сменой цвета при нажатии на них. Программно это реализовано так:

 

 

Private Sub Cmd_Cl_click(index As Integer)

        If Cmd_Cl(index).BackColor = &H80C0FF Then

            Cmd_Cl(index).BackColor = vbWhite

        Else

            Cmd_Cl(index).BackColor = &H80C0FF

        End If

            Txt_1 = ""

            Txt_1 = Txt_1 + Cmd_Cl(index).Caption

End Sub

 

 

3.4 Релизация пректа VB 5.4

 

 

В VB 5.4 поставлена задача разработать программу, моделирующую работу логической схемы. Для наглядности данную схему создаем на форме. Для входных и выходных сигналов используем элементы управления Label.  В результате программа при запуске будет имеет такой вид:

 

 

 

Рисунок 8 – Внешний вид  программы VB 5.4

 

 

Программно поставленная задача решается так:

 

Option Explicit

Dim g, h, j, l, k, s As Variant

 

Private Sub Label1_Click(index As Integer)

        If Label1(index) = 1 Then Label1(index) = 0 Else Label1(index) = 1

       

            g = Not (Label1(0) Or Label1(1))

            h = Not (Label1(2) Or Label1(3))

            j = Not (Label1(4) Or Label1(5))

            l = Not (Label1(6) And Label1(7))

            k = Not (Label1(8) And Label1(9))

           

        If Label2 = g Xor h Xor j Xor l Xor k Then Label2 = 1 Else Label2 = 0

       

End Sub

 

4. Использование элементов визуального дизайна IDE VB

 

 

Задание VB 6 является проектом визуализации к приложению VB 4. В задании VB 4  требуется вычислить работу погружения шара под воду посредством численного интегрирования: чем больше погруженная под воду часть шара, тем больше работа, совершенная для ее погружения. Это мы и отобразили в проекте. Для этого на форме проекта VB 4  создаем два элемента PictureBox. В одном будет отображаться постепенное погружение шара под воду, а в другом строится графи зависимости работы от объема погруженной части шара. Программа в рабочем состоянии представлена на рисунке 9.

 

 

 

 

Рисунок 9 – Проект визуализации программы VB 4

 

 

В коде программы сначала  объявляем переменные:

 

 

Option Explicit

Dim A As Single

Dim k As Single

Dim k1 As Single

Dim a1 As Single

Dim r As Single

Const P = 1 'Плотность воды

Dim d As Single

Dim q As Single

Dim w As Single

Dim z As Single

Dim V As Single

Dim h As Single

Dim Bag As Single

Const pi = 3.14

Dim x1 As Single

Dim y1 As Single

Dim j As Single

Dim sp As Single

Dim lk As Single

 

 

Затем создаем событие  клик по элементу PictureBox1. Этим мы строим систему координат и определяем начальное положение погружаемого шара:

 

 

Private Sub PicBox_1_Click()

PicBox_1.Refresh

PicBox_1.ForeColor = vbBlue

        PicBox_1.DrawWidth = 2

      

        PicBox_1.Scale (-10, 15)-(20, -15)

        PicBox_1.Line (-10, 0)-(20, 0)

        PicBox_1.Line (-7, -15)-(-7, 15)

            For k = -10 To 20

                PicBox_1.PSet (k, 0)

                PicBox_1.Print k

               

            Next k

            For k = -15 To 15

                PicBox_1.PSet (-7, k)

                PicBox_1.Print k

            Next k

        x1 = 3

        y1 = (-Txt_2 * Txt_3) + Txt_1

        PicBox_1.Circle (x1, y1), Txt_1, RGB(0, 0, 250)

       PicBox_1.PSet (x1, y1), vbGreen

End Sub

 

По клику на элементе управления  PictureBox2 в нем тоже строится система координат:

 

 

Private Sub PicBox_2_Click()

 

        PicBox_2.DrawWidth = 2

        PicBox_2.Scale (-100, 100)-(1000, -100)

        PicBox_2.Line (-100, 0)-(1000, 0)

        PicBox_2.Line (0, -100)-(0, 100)

       

    For k1 = -100 To 1000 Step 100

        PicBox_2.PSet (k1, 0)

        PicBox_2.Print k1

    Next k1

   

    For k1 = -100 To 100 Step 10

        PicBox_2.PSet (0, k1)

        PicBox_2.Print k1

    Next k1

   

End Sub

 

 

Затем в готовом коде проекта  VB 4  прописываем часть для создания анимации погружения шара под воду:

 

 

Private Sub Cmd_1_Click()

On Error Resume Next

    Lst_1.Clear

    Lst_2.Clear

    k = Val(Txt_1.Text)

    a1 = Val(Txt_2.Text)

    r = Val(Txt_3.Text)

    w = Val(Txt_4.Text)

    q = Val(Txt_5.Text)

    V = 4 / 3 * pi * k ^ 3

    d = 2 * k

    Bag = 0

        If a1 < r Then

            Do

                z = d / w

                For h = 0 To d Step z

                   

                    Bag = Vsegm(h)

                            If V > Vsegm(h) Then

                        Vsegm (h)

                        Lst_1.AddItem Vsegm(h)

                        A = P * Vsegm(h) * 9.8 * (k - (a1 * r))

                        Lst_2.AddItem Abs(A)

                    Else

                    Exit Do

                    End If

                Next h

            Loop While V - Vsegm(h) > q

                 PicBox_1.PSet (x1, k - d), vbGreen

                    For j = y1 To (k - d) Step -0.05  'Создаем анимацию

                    PicBox_1.Line (-10, 0)-(40, 0)

                     For lk = -10 To 20

                PicBox_1.PSet (lk, 0)

                PicBox_1.Print lk

            Next lk

                 PicBox_1.Circle (x1, y1), Txt_1, RGB(0, 0, 250)

                         PicBox_1.Circle (x1, j), Txt_1, &HC0FFC0

                         PicBox_1.Line (x1, j)-(x1, y1), vbBlack

                    Next j

                 PicBox_1.Circle (x1, k - d), Txt_1, RGB(250, 0, 0)

        Else

            MsgBox "Ошибка", vbCritical, "Error"

        End If

    End Sub

 

 

Для построения графика зависимости  работы от объема погруженной части  шара создаем на форме элемент  CommandButton, при активизации которого будет строится график на элементе PictureBox2. Программно это выглядит так:

 

 

Private Sub Cmd_3_Click()

    PicBox_2.DrawWidth = 1

    sp = RGB(250, 250, 250) * Rnd

    PicBox_2.Line (0, 0)-(Abs(A), Vsegm(h)), sp

End Sub

 

 

Так же на форме расположена  кнопка очистки полей, код для  нее представлен ниже:

 

 

Private Sub Cmd_2_Click()

        Txt_1 = ""

        Txt_2 = ""

        Txt_3 = ""

        Txt_4 = ""

        Txt_5 = ""

        Lst_1.Clear

        Lst_2.Clear

    End Sub

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Выводы

 

 

В ходе работы над проектом мы изучили основные элементы ввода  и вывода информации в IDE VB, важнейшие программные конструкции в данной системе программирования,  узнали что такое процедуры и функции VB и освоили некоторые элементы визуального проектирования. В целом мы освоили основу данного языка программирования, что в дальнейшем поможет нам развиваться и совершенствовать себя в данной области.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Список использованных источников

 

1. Методические указания  к лабораторной работе «Базовые  элементы упраления вводом и выводом информации в IDE VB»/Сост. Д.Д.Ветчинин, С.Ю.Палычев, ИГТА, 2004 – 40с.

2. Методические указания  к лабораторной работе «Процедуры  и функции в системе программирования  VB»/Сост. Д.Д.Ветчинин, С.Ю.Палычев, ИГТА, 2009 – 28с.

3. Методические указания к лабораторной работе «Важнейшие программные конструкции в системе программирования VB»/Сост. Д.Д.Ветчинин, С.Ю.Палычев, ИГТА, 2005 – 32c.

4. Методические указания к лабораторной работе «Использование элементов визуального дизайна в IDE VB»/Сост. Д.Д.Ветчинин, С.Ю.Палычев, ИГТА, 2005 – 24с.