Instatiating an object to a class is copying class's properties, copying class's method, copying class's sub module.
Contoh:
Public Class Class1
Public horizontal As Integer
Public vertical As Integer
Sub widen(ByVal scale As Integer)
horizontal = horizontal + scale
vertical = vertical + scale
End Sub
End Class
Module Module1
Sub Main()
Dim square_a As Class1
'next step, instatiate object square_a to class1
square_a = New Class1
square_a.horizontal = 1
square_a.vertical = 1
Console.WriteLine(square_a.horizontal & " " & square_a.vertical)
square_a.widen(3)
Console.WriteLine(square_a.horizontal & " " & square_a.vertical)
Console.ReadLine()
End Sub
End Module
Contoh:
Public Class Class1
Public horizontal As Integer
Public vertical As Integer
Sub widen(ByVal scale As Integer)
horizontal = horizontal + scale
vertical = vertical + scale
End Sub
End Class
Module Module1
Sub Main()
Dim square_a As Class1
'next step, instatiate object square_a to class1
square_a = New Class1
square_a.horizontal = 1
square_a.vertical = 1
Console.WriteLine(square_a.horizontal & " " & square_a.vertical)
square_a.widen(3)
Console.WriteLine(square_a.horizontal & " " & square_a.vertical)
Console.ReadLine()
End Sub
End Module
No comments:
Post a Comment