Sunday, 12 January 2014

Instantiate object

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

No comments:

Post a Comment