в текстовые поля информацию, касающуюся
Затем пользователь вводит в текстовые поля информацию, касающуюся второго участка и нажатием на кнопку 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
Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий