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

Author Description