Namespace

Tempat penyimpanan kelas-kelas

Contoh penggunaan namespace

Namespace pekerjaanmanusia
    Public Class Petani
        Public luaslahan As Integer = Nothing
        Sub jumlahlahan(ByVal luas)
            luaslahan = luas
        End Sub
    End Class

    Public Class Programmer
        Public bahasaprogram As String = Nothing
        Sub bahasayangdikuasai(ByVal nama)
            bahasaprogram = nama
        End Sub
    End Class
End Namespace

Module Module1
    Dim Budi As New pekerjaanmanusia.Programmer
    Dim tardo As New pekerjaanmanusia.Petani
    Sub Main()
        Budi.bahasaprogram = "C"
        Console.WriteLine(Budi.bahasaprogram)
        Console.ReadLine()

        tardo.luaslahan = 100
        Console.WriteLine("Luas lahan tardo: " & tardo.luaslahan & " " & "Hektar")
        Console.ReadLine()
    End Sub

End Module

Creating class, instantiate

Public Class Person
    Private weight As Double = 8
    Private money As Double = 100
    Private income As Double = 7.25

    Public Sub eat(ByVal pounds As Double)
        weight += pounds
    End Sub

    Public Sub excercise(ByVal time As Double)
        weight -= time / 10
    End Sub

    Public Sub work(ByVal hours As Double)
        money += hours * income
    End Sub

    Public Function getweight() As Double
        Return weight
    End Function

    Public Function getmoney() As Double
        Return money
    End Function

    Public Function getincome() As Double
        Return income
    End Function
End Class

Class

Public Class Form1
Private myperson As New Person