Public Class Tester
Public Shared Sub Main
Dim time As New CTime3()
' add one second
time.Second = (time.Second + 1) Mod 60
' add one minute if 60 seconds have passed
If time.Second = 0 Then
time.Minute = (time.Minute + 1) Mod 60
' add one hour if 60 minutes have passed
If time.Minute = 0 Then
time.Hour = (time.Hour + 1) Mod 24
End If
End If
time.Hour = 1
time.Minute = 2
time.Second = 3
Console.WriteLine("Hour: " & time.Hour & "; Minute: " & _
time.Minute & "; Second: " & time.Second)
End Sub
End Class
Class CTime3
Inherits Object
Private mHour As Integer
Private mMinute As Integer
Private mSecond As Integer
Public Sub New()
End Sub ' New
' property Hour
Public Property Hour() As Integer
' return mHour value
Get
Return mHour
End Get
' set mHour value
Set(ByVal value As Integer)
If (value >= 0 AndAlso value < 24) Then
mHour = value
Else
mHour = 0
End If
End Set
End Property ' Hour
' property Minute
Public Property Minute() As Integer
' return mMinute value
Get
Return mMinute
End Get
' set mMinute value
Set(ByVal value As Integer)
If (value >= 0 AndAlso value < 60) Then
mMinute = value
Else
mMinute = 0
End If
End Set
End Property ' Minute
' property Second
Public Property Second() As Integer
' return mSecond value
Get
Return mSecond
End Get
' set mSecond value
Set(ByVal value As Integer)
If (value >= 0 AndAlso value < 60) Then
mSecond = value
Else
mSecond = 0
End If
End Set
End Property ' Second
End Class
Hour: 1; Minute: 2; Second: 3