verhaba
Gebruiker
- Lid geworden
- 8 feb 2008
- Berichten
- 79
Hallo
Ik heb hier een stukje code waarbij de client een nieuwe member van het object Address initiëert. Dat kan natuurlijk ook onmiddellijk gebeuren in de backend ipv in de client. Nu hier rijst bij mij de vraag wanneer doe je dit best in de backend en wanneer in de frontend (client)? Hier volgt mijn code:
Ik heb hier een stukje code waarbij de client een nieuwe member van het object Address initiëert. Dat kan natuurlijk ook onmiddellijk gebeuren in de backend ipv in de client. Nu hier rijst bij mij de vraag wanneer doe je dit best in de backend en wanneer in de frontend (client)? Hier volgt mijn code:
Code:
Private m_Name As String
Public Function GetName() As String
GetName = m_Name
End Function
Public Sub SetName(ByVal value As String)
m_Name = value
End Sub
Private m_Address As Address
Public Function GetAddress() As Address
GetAddress = m_Address
End Function
Public Sub SetAddress(ByVal value As Address)
m_Address = value
End Sub
End Class
Class Address
Private m_Street As String
Public Function GetStreet() As String
GetStreet = m_Street
End Function
Public Sub SetStreet(ByVal value As String)
m_Street = value
End Sub
Private m_Number As String
Public Function GetNumber() As String
GetNumber = m_Number
End Function
Public Sub SetNumber(ByVal value As String)
m_Number = value
End Sub
Private m_ZipCode As String
Public Function GetZipCode() As String
GetZipCode = m_ZipCode
End Function
Public Sub SetZipCode(ByVal value As String)
m_ZipCode = value
End Sub
Private m_City As String
Public Function GetCity() As String
GetCity = m_City
End Function
Public Sub SetCity(ByVal value As String)
m_City = value
End Sub
End Class
Module Client1
Sub Main()
Dim address1 As Address = New Address
address1.SetStreet("Royal Avenue")
address1.SetNumber("10")
address1.SetZipCode("90210")
address1.SetCity("Beverly Hills")
'
Dim person1 As Person = New Person
person1.SetName("John")
person1.SetAddress(address1)
'
Print(person1)
'
Console.ReadLine()
End Sub
Sub Print(ByVal person As Person)
Console.WriteLine(person.GetName())
If person.GetAddress() IsNot Nothing Then
With person.GetAddress()
Console.WriteLine(.GetNumber() & ", " & .GetStreet())
Console.WriteLine(.GetCity() & " " & .GetZipCode())
End With
End If
End Sub
End Module