Parametised constructor /setter and getter
Public Class Ccal1
Private Number1 As Integer
Private Number2 As Integer
Public Sub New(ByVal N1 As Integer, ByVal N2 As Integer)
Number1 = N1
Number2 = N2
End Sub
Public Function GetNumber1() As Integer
Return Number1
End Function
Public Function GetNumber2() As Integer
Return Number2
End Function
Public Sub SetNumber1(ByVal value As Integer)
Number1 = value
End Sub
Public Sub SetNumber2(ByVal value As Integer)
Number2 = value
End Sub
End Class
Module Calcularor1
Sub main()
Dim obj1 As Ccal1 = New Ccal1(40, 50)
[Link]("Using parametised constructor using object3, number1 is:" & " " &
obj1.GetNumber1() & " " & "and number2 is:" & " " & obj1.GetNumber2())
[Link]()
End Sub
End Module
Default constructor /setter and getter
Public Class Ccal2
Private Number1 As Integer
Private Number2 As Integer
Public Sub New()
Number1 = 10
Number2 = 12
End Sub
Public Function GetNumber1() As Integer
Return Number1
End Function
Public Function GetNumber2() As Integer
Return Number2
End Function
Public Sub SetNumber1(ByVal value As Integer)
Number1 = value
End Sub
Public Sub SetNumber2(ByVal value As Integer)
Number2 = value
End Sub
End Class
Module Calculator2
Sub main()
Dim obj2 As New Ccal2
[Link]("Using default constructor and object2,number1 is:" & " " & obj2.GetNumber1()
& " " & "and number2 is:" & " " & obj2.GetNumber2())
[Link]()
End Sub
End Module
Default constructor /property
Public Class Ccal3
Private _number1 As Double
Private _number2 As Double
Public Sub New()
_number1 = 10
_number2 = 12
End Sub
Public Property Pnumber1() As Double
Get
Return _number1
End Get
Set(ByVal value As Double)
_number1 = value
End Set
End Property
Public Property Pnumber2() As Double
Get
Return _number2
End Get
Set(ByVal value As Double)
_number2 = value
End Set
End Property
End Class
Module Calculator3
Sub main()
Dim obj3 As New Ccal3
[Link](“In default constructor number1 is:” & “ “ & obj3.Pnumber1() & “ “ & “and
number2 is:” & “ “ & obj3.Pnumber2())
[Link]()
End Sub
End Module
Parametised constructor /property
Public Class Ccal4
Private _number1 As Double
Private _number2 As Double
Public Sub New(ByVal N1 As Integer, ByVal N2 As Integer)
_number1 = N1
_number2 = N2
End Sub
Public Property Pnumber1() As Double
Get
Return _number1
End Get
Set(ByVal value As Double)
_number1 = value
End Set
End Property
Public Property Pnumber2() As Double
Get
Return _number2
End Get
Set(ByVal value As Double)
_number2 = value
End Set
End Property
End Class
Module Calculator4
Sub main()
Dim obj4 As Ccal4 = New Ccal4(40, 50)
[Link]("In parametised constructor using object3,number1 is:" & " " & obj4.PNumber1()
& " " & "and number2 is:" & " " & obj4.PNumber2())
[Link]()
End Sub
End Module
No constructor /setters and getters
Public Class Ccal5
Private Number1 As Integer
Private Number2 As Integer
Public Function GetNumber1() As Integer
Return Number1
End Function
Public Function GetNumber2() As Integer
Return Number2
End Function
Public Sub SetNumber1(ByVal value As Integer)
Number1 = value
End Sub
Public Sub SetNumber2(ByVal value As Integer)
Number2 = value
End Sub
End Class
Module Calculator5
Sub main()
Dim obj5 As New Ccal5
Dim obj7 As New Ccal5
Dim Num1, Num2 As Integer
obj5.SetNumber1(42)
obj5.SetNumber2(52)
[Link]("Using setters to set the values of number1 and number2 and using
object5 ,number1 is:" & " " & obj5.GetNumber1() & " " & "and number2 is:" & " " & obj5.GetNumber2())
[Link]("Please input Number1:")
Num1 = [Link]()
obj7.SetNumber1(Num1)
[Link]("Please input Number2:")
Num2 = [Link]()
obj7.SetNumber2(Num2)
[Link]("Using setters to set the values of number1 and number2 and using
object7 ,number1 is:" & " " & obj7.GetNumber1() & " " & "and number2 is:" & " " & obj7.GetNumber2())
[Link]()
End Sub
End Module
No constructor /property
Public Class Ccal6
Private _number1 As Double
Private _number2 As Double
Public Property Pnumber1() As Double
Get
Return _number1
End Get
Set(ByVal value As Double)
_number1 = value
End Set
End Property
Public Property Pnumber2() As Double
Get
Return _number2
End Get
Set(ByVal value As Double)
_number2 = value
End Set
End Property
End Class
Module Calculator6
Sub main()
Dim obj6 As New Ccal6
Dim obj8 As New Ccal6
Dim Num1, Num2 As Integer
obj6.Pnumber1() = 26
obj6.Pnumber2() = 56
[Link]("Using setters to set the values of number1 and number2 and using
object6 ,number1 is:" & " " & obj6.Pnumber1() & " " & "and number2 is:" & " " & obj6.Pnumber2())
[Link]("Please input Number1:")
Num1 = [Link]()
obj8.Pnumber1 = Num1
[Link]("Please input Number2:")
Num2 = [Link]()
obj8.Pnumber2 = Num2
[Link]("Using setters to set the values of number1 and number2 and using
object8 ,number1 is:" & " " & obj8.Pnumber1() & " " & "and number2 is:" & " " & obj8.Pnumber2())
[Link]()
[Link]()
End Sub
End Module