VB .NET

Je kan in VB uren tellen, maar uren zijn daar delen van een dag. We bouwen een klasse om met uren te rekenen en uren weer te geven met minuten en seconden. We voorzien twee invoervakken om de uren in te geven, en tellen ze op
De klasse ziet er zo uit:
Public Class uren
Private p_uren As Double
Public Sub New()
p_uren = 0
End Sub
Public Sub New(ByVal uren As Double)
p_uren = uren
End Sub
Public Property uren()
Get
Return p_uren
End Get
Set(ByVal value)
p_uren = value
End Set
End Property
Public ReadOnly Property uurnotatie() As String
Get
Dim temp As Double
Dim h As Integer
Dim m As Integer
Dim s As Integer
temp = p_uren
h = Int(temp)
temp = temp - h
m = Int(temp * 60)
temp = temp - m / 60
s = Int(temp * 3600)
Return h & ":" & Format(m, "00") & ":" & Format(s, "00")
End Get
End Property
Public Shared Operator +(ByVal u1 As uren, ByVal u2 As uren) As uren
Dim u As New uren
u.uren = u1.uren + u2.uren
Return u
End Operator
Public Shared Operator -(ByVal u1 As uren, ByVal u2 As uren) As uren
Dim u As New uren
u.uren = u1.uren - u2.uren
Return u
End Operator
Public Sub maal(ByVal factor As Single)
p_uren = p_uren * factor
End Sub
End Class
En het programma tenslotte:
Dim u1 As New uren
Dim u2 As New uren
Private Sub cmdTelop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdTelop.Click
u1.uren = CDbl(txtUren1.Text)
u2.uren = CDbl(txtUren2.Text)
Dim u3 As uren
u3 = u1 + u2
MsgBox(u1.uurnotatie & "+ " & u2.uurnotatie & " = " & u3.uurnotatie)

End Sub
Krijg je er zin in? Bouw dan een constructor om de uren ook te laten ingeven als breuk of met hh:mm:ss notatie.