Приложение - подпрограммы_s_max.rar

Занятие 26.2   Процедуры пользователя 

Пример. Применение процедур пользователя plozhad и max  в проекте "Практическая работа №8 " .  Выполнить анализ работы

Интерфейс проекта

Программный код проекта

Public a2, b1, a1, s1, s2, s, b2 As Integer
 

    Private Sub max(ByVal x As Integer, ByVal y As Integer)

        If x > y Then

            MessageBox.Show("max=  " & Str(x))

        ElseIf x < y Then

            MessageBox.Show("max = " & Str(y))

        Else : MessageBox.Show("y = " & Str(y) & "    x= " & Str(x))

        End If

    End Sub

 

    Private Sub plozhad(ByVal a As Integer, ByVal b As Integer)

        a = Val(InputBox("a=", " прямоугольник"))

        b = Val(InputBox("b=", "прямоугольник"))

        s = a * b

        MessageBox.Show("площадь прямоугольникa = " & Str(s))

    End Sub

 

    Private Sub Button1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Button1.Click

        plozhad(a1, b1)

        Label3.Text = Str(s)

        plozhad(a2, b2)

        Label4.Text = Str(s)

    End Sub

 

    Private Sub Button2_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Button2.Click

        s1 = Val(Label3.Text)

        s2 = Val(Label4.Text)

        max(s1, s2)

        If (s1 > s2) Then

           MessageBox.Show("второй прямоугольник поместиться внутри первого s1=  " & Str(s1) & "     s2=  " & Str(s2),  "сравнение площадей")

        ElseIf s1 = s2 Then

            MessageBox.Show(Str(s1) & " =  " & Str(s2),  "сравнение площадей")

        Else

          MessageBox.Show("первый прямоугольник поместиться внутри второго  s1= " & Str(s1) & "  s2=  " & Str(s2),  "сравнение площадей")

        End If

    End Sub

 

Выводы

1. Когда вы пишите программу, разделите её на независимые части, выполняющие определенные задачи в приложении, и оформите каждую часть в виде подпрограммы. В вашем приложении может быть несколько подпрограмм, сколько вам нужно. Создавайте подпрограмм столько, сколько хотите, но старайтесь писать подпрограммы, выполняющие определенные задачи.
    
2. Их использование делает код более понятным, его становится легче отлаживать, поскольку он делится на мало зависящие друг от друга части. Намного легче написать и отладить несколько небольших программ, чем одну большую программу. После отладки программы она готова к использованию и будет работать всегда, когда она вам понадобится.
    
3. Подпрограммы помогают сэкономить много времени, если вы пишите  сложный код, к которому нужно обращаться из разных мест в программе. Их можно использовать много раз. Написав подпрограмму, вы можете использовать её (обращаться к ней) из любого места программы.
    
4. Из подпрограмм можно вызывать другие подпрограммы.
    
5. Подпрограммы также позволяют разделить написание большой программы между несколькими программистами. Каждому программисту нужно будет написать определенный набор подпрограмм для приложения. Он будет отвечать за написание и отладку этих программ и за то, чтобы они правильно взаимодействовали с другими частями программы. Подпрограммы часто используются для выполнения вычислений, форматирования и вывода информации, настройки пользовательского интерфейса, вывода приглашений к вводу данных и выполнения ввода

Занятие 27.1