Lab 11 Object Data

 

you can download  zip file here

• code in class:

Public Class Rectangle Private wid As Double Private leg As Double Private area As Double Public Sub New() wid = 0 leg = 0 End Sub Public Sub New(wid1 As Double, leg1 As Double) wid = wid1 leg = leg1 End Sub Public Function GetLength() As Double Return leg End Function Public Function GetArea() As Double Return GetWidth() * GetLength() End Function Public Function GetWidth() As Double Return wid End Function Public Function GetInfo() As String 'Return "Width=" & GetWidth() & ";" & "lenght=" & GetLength() & ";" & "Area=" & GetArea() Return String.Format("Width={0};Lenght={1};Area={2}", GetWidth(), GetLength(), GetArea()) End Function Public Sub setWidth(wd As Double) wid = wd End Sub Public Sub setLength(ln As Double) leg = ln End Sub Public Sub setData(wd As Double, ln As Double) wid = wd leg = ln End Sub Public Function Isvalid() As Boolean If GetWidth() >= 0 And GetLength() >= 0 And GetArea() >= 0 Then Return True Else Return False End If End Function End Class

• code in form:

Public Class Form1 Private rec As New Rectangle Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load rec = New Rectangle(3.0, 8.0) view("Load Object Success", Color.Green) End Sub Sub view(st As String, cl As Color) txtwid.Text = rec.GetWidth() txtleg.Text = rec.GetLength() txtarea.Text = rec.GetArea() ' chkvalid.Checked = rec.Isvalid() txtinfo.Text = rec.GetInfo If rec.Isvalid() = False Then tss.Text = st tss.ForeColor = cl Else chkvalid.Checked = True tss.Text = st tss.ForeColor = cl End If End Sub Private Sub btnset_Click(sender As Object, e As EventArgs) Handles btnset.Click rec.setData(Double.Parse(txtwid.Text), Double.Parse(txtleg.Text)) view("Set successfully", Color.Green) End Sub Private Sub txtwid_Leave(sender As Object, e As EventArgs) Handles txtwid.Leave If chkautoset.Checked = True Then rec.setWidth(Double.Parse(txtwid.Text)) view("Width was updated", Color.Green) End If End Sub Private Sub txtleg_Leave(sender As Object, e As EventArgs) Handles txtleg.Leave If chkautoset.Checked = True Then rec.setLength(Double.Parse(txtleg.Text)) view("Lenght was updated", Color.Green) End If End Sub Private Sub chkautoset_CheckedChanged(sender As Object, e As EventArgs) Handles chkautoset.CheckedChanged If chkautoset.Checked = True Then btnset.Enabled = False Else btnset.Enabled = True End If End Sub End Class