Personen: code

De klasse ziet er zo uit:
Public Class persoon
Private p_naam As String
Private p_geboortedatum As Date
Private p_geslacht As String

Public Sub New(ByVal naam As String)
p_naam = naam
End Sub

Public Sub New(ByVal naam As String, ByVal geslacht As String)
p_naam = naam
Select Case LCase(geslacht)

Case "m", "man", "mannelijk"
p_geslacht = "mannelijk"
Case "v", "vr", "vrouwelijk"
p_geslacht = "vrouwelijk"
End Select
End Sub

Public Sub New(ByVal naam As String, ByVal geslacht As String, ByVal geboortedatum As Date)
p_naam = naam
Select Case LCase(geslacht)
Case "m", "man", "mannelijk"
    p_geslacht = "mannelijk"
Case "v", "vr", "vrouwelijk"
    p_geslacht = "vrouwelijk"
End Select
p_geboortedatum = geboortedatum
End Sub

Public ReadOnly Property naam() As String
Get
Return p_naam
End Get
End Property

Public Property geboortedatum() As Date
Get
Return p_geboortedatum
End Get

Set(ByVal Value As Date)
p_geboortedatum = Value
End Set
End Property

Public Property geslacht() As String
Get
Return p_geslacht
End Get
Set(ByVal Value As String)
Select Case LCase(geslacht)
    Case "m", "man", "mannelijk"
      p_geslacht = "mannelijk"
    Case "v", "vr", "vrouwelijk"
      p_geslacht = "vrouwelijk"
End Select
End Set
End Property

Public ReadOnly Property leeftijd() As Integer
Get
Return DateDiff(DateInterval.Year, p_geboortedatum, Now())
End Get
End Property
End Class

Merk op dat we verschillende constructoren voorzien, met telkens andere gegevens.
Het programma waar we de klasse in gebruiken ziet er als volgt uit:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim p As New persoon(Me.txtNaam.Text, Me.txtGeslacht.Text, Me.txtGeboortedatum.Text)
Me.lblOutput.Text = p.naam & vbCrLf & p.geslacht & vbCrLf & p.geboortedatum & vbCrLf & p.leeftijd & " jaar"
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub

Merk op dat we een foutafhandeling voorzien bij het aanmaken van het object. Het zou immers kunnen dat de invoer voor geboortedatum geen geldige datum is, bijvoorbeeld.