VB.net - Классы

  В этой статье мы поговорим про классы и их использование в языке программирования VB.net.

  Одна из причин, по которой мы должны использовать классы является так называемое "повторное использование кода". Напомним, что в любом классе имеется хотя бы одна функция. Такие функции называются также "методами" или "членами" класса. Используя в свой работе тот или иной класс, мы делаем это потому, что нам нужны те или иные функции этого класса.

  Но обо всем по порядку.

  Для начала мы создадим новый класс.

  Класс люди- он создается следующем образом

В этом классе есть 2 переменные - колво лет и имя. А вот реализации может и не быть.

Простое использование класса.

Public Class men

        Public goda As Integer     'колво лет

        Public names As String    'имя

        Public Sub M()

            ' Реализация, может быть пустой

        End Sub

End Class

  '1 простое использование класса

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim man1 As New men

        man1.goda = 16

        man1.names = "Первый"

        MsgBox(man1.names + " " + Str(man1.goda))

    End Sub

  Такой вариант удобно использовать, когда у нас много однотипных переменных, например список людей.

  Но чаще,  для сокращения кода, используют процедуры или функции классов.

  Дополним класс люди подпрограммой вывода сообщения

  ' класс люди (men)

    Public Class men

        Public goda As Integer    'колво лет

        Public names As String   'имя

        Public Sub M()

            ' записываем процедуру в объявлении нашего класса

            MsgBox(names + " " + Str(goda))

        End Sub

    End Class

  '2 использование подпрограмм

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

       Dim man1 As New men
       Dim man2 As New men

        man1.goda = 16

        man2.goda = 18

        man1.names = "Первый"

        man2.names = "Второй"

        'выполняем процедуру с каждым человеком

        man1.M()

        man2.M()

    End Sub

  В данном примере строку вызова меседжбокса

MsgBox(names + " " + Str(goda))

мы заменили на

man1.M()

  Если же процедура будет состоять из большего количества строк, то код станет намного короче с использованием класса. Так же, внося изменения в подпрограмму, мы это делаем только в одном месте. тем самым избегая ошибок.

  В классах чаще используют не подпрограммы, а функции. Давайте рассмотрим пример нахождения площади и периметра квадрата, с использованием класса.

Создаем класс SandP, те площадь и периметр . В свойствах только 1 переменная - размер стороны квадрата. Первая функция - нахождение площади, вторая - периметра квадрата.

'3 класс - нахождение площади и периметра квадрата

    Public Class SandP

        Public a As Double

        Public Function S() As Double

            Dim s_ As Double

            s_ = a * a

            Return s_

        End Function

        Public Function P() As Double

            Dim p_ As Double

            p_ = a * 4

            Return p_

        End Function

    End Class

    '3 использование функций

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

        'создаем новый экземпляр класса - квадрат

        Dim kvadrat As New SandP

         'задаем переменные для площ и пер

        Dim Sa, Pa As Double

         'Определяем размер стороны квадрата

        kvadrat.a = 10

       'находим площадь квадрата, как функцию класса СандП

        Sa = kvadrat.S

        'подобным образом находим его периметр

        Pa = kvadrat.P

        'результат вычислений выводим в меседжбокс

        MsgBox("S = " + Str(Sa) + vbCrLf + "P = " + Str(Pa))

    End Sub

  Это самые простые варианты использования классов. И, возможно, из-за простоты не видно то, на сколько упрощается конечный код, при использовании классов.

По этому в следующих уроках я продемонстрирую возможности классов на примере небольших программ.

Смотреть видео

В начало