Mega Code Archive

 

Categories / VB.Net Tutorial / Class Module

 

Properties with Getter and Setter

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