ПОНЯТНО О Visual Basic NET (том 3)


Создаем и используем два объекта одного класса - часть 2


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

С этого момента в памяти живут два объекта – экземпляра класса Участок. Программист теперь может как угодно использовать их в своих целях. В качестве примера такого использования он нажатием на кнопку 3 решает следующую задачу: «Правда ли, что на покраску забора первого участка уйдет больше краски, чем для второго?»

Вот программа:

Форма:

Dim Участок1, Участок2 As Участок

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

        Участок1 = New Участок                   'Из класса рождается объект

        Участок1.Владелец = TextBox1.Text

        Участок1.Длина = TextBox2.Text

        Участок1.Ширина = TextBox3.Text

        Участок1.Высота_забора = TextBox4.Text

        Участок1.Расход_краски_на_кв_м = TextBox5.Text

End Sub

 

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

        Участок2 = New Участок                   'Из класса рождается объект

        Участок2.Владелец = TextBox1.Text

        Участок2.Длина = TextBox2.Text

        Участок2.Ширина = TextBox3.Text

        Участок2.Высота_забора = TextBox4.Text

        Участок2.Расход_краски_на_кв_м = TextBox5.Text

End Sub

 

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

        If Участок1.Расход_краски_на_забор > Участок2.Расход_краски_на_забор Then

            Debug.WriteLine("Первому участку нужно больше краски, чем второму")

        End If

End Sub

Класс:

Public Class Участок

    Public Владелец As String

    Public Длина, Ширина As Integer

    Public Высота_забора As Integer

    Public Расход_краски_на_кв_м As Integer

    Private Периметр As Integer




Начало  Назад  Вперед



Книжный магазин