Namespace Network
Class Address
Public IP As String
Public DomainName As String
Public Sub New(ByVal IPAddr As String, ByVal Domain As String)
IP = IPAddr
DomainName = Domain
End Sub
Public Sub ShowAddress()
Console.WriteLine("IP: " & IP)
Console.WriteLine("Domain: " & DomainName)
End Sub
End Class
End Namespace
Namespace Mailing
Class Address
Public Street As String
Public City As String
Public State As String
Public Zip As String
Public Sub New(ByVal Street As String, ByVal City As String, ByVal State As String, ByVal Zip As String)
Me.Street = Street
Me.City = City
Me.State = State
Me.Zip = Zip
End Sub
Public Sub ShowAddress()
Console.WriteLine("Street: " & Street)
Console.WriteLine("City: " & City)
Console.WriteLine("State: " & State)
Console.WriteLine("Zip: " & Zip)
End Sub
End Class
End Namespace
Module Module1
Sub Main()
Dim IP As New Network.Address("122.111.222.112", "www.SomeSite.com")
Dim address As New Mailing.Address("122 Main", _
"Houston", "Texas", "77469")
IP.ShowAddress()
Console.WriteLine()
address.ShowAddress()
End Sub
End Module
|
