Define your own Time Class : Class Definition « Class Module « VB.Net Tutorial

Home
VB.Net Tutorial
1.Language Basics
2.Data Type
3.Operator
4.Statements
5.Date Time
6.Class Module
7.Development
8.Collections
9.Generics
10.Attributes
11.Event
12.LINQ
13.Stream File
14.GUI
15.GUI Applications
16.Windows Presentation Foundation
17.2D Graphics
18.I18N Internationlization
19.Reflection
20.Regular Expressions
21.Security
22.Socket Network
23.Thread
24.Windows
25.XML
26.Database ADO.net
27.Design Patterns
VB.Net
VB.Net by API
VB.Net Tutorial » Class Module » Class Definition 
6.11.3.Define your own Time Class
Module Tester

   Sub Main()
      Dim time As New CTime() ' call CTime constructor

      Console.WriteLine("The initial universal times is: " & _
         time.ToUniversalString() & vbCrLf & _
         "The initial standard time is: " & _
         time.ToStandardString())

      time.SetTime(13276' set time with valid settings

      Console.WriteLine("Universal time after setTime is: " & _
         time.ToUniversalString() & vbCrLf & _
         "Standard time after setTime is: " & _
         time.ToStandardString())

      time.SetTime(999999' set time with invalid settings

      Console.WriteLine("Universal time: " & time.ToUniversalString() & _
         vbCrLf & "Standard time: " & time.ToStandardString())

   End Sub 

End Module 

Class CTime 
   Inherits Object

   Private mHour As Integer ' 0 23
   Private mMinute As Integer ' 0 59
   Private mSecond As Integer ' 0 59

   Public Sub New()
      SetTime(000)
   End Sub ' New

   Public Sub SetTime(ByVal hourValue As Integer, _
      ByVal minuteValue As Integer, ByVal secondValue As Integer)

      If (hourValue >= AndAlso hourValue < 24Then
         mHour = hourValue
      Else
         mHour = 0
      End If

      If (minuteValue >= AndAlso minuteValue < 60Then
         mMinute = minuteValue
      Else
         mMinute = 0
      End If

      If (secondValue >= AndAlso secondValue < 60Then
         mSecond = secondValue
      Else
         mSecond = 0
      End If

   End Sub ' SetTime

   ' convert String to universal-time format
   Public Function ToUniversalString() As String
      Return String.Format("{0}:{1:D2}:{2:D2}", _
         mHour, mMinute, mSecond)
   End Function ' ToUniversalString

   ' convert to String in standard-time format
   Public Function ToStandardString() As String
      Dim suffix As String = " PM"
      Dim format As String = "{0}:{1:D2}:{2:D2}"
      Dim standardHour As Integer

      If mHour < 12 Then
         suffix = " AM"
      End If

      If (mHour = 12 OrElse mHour = 0Then
         standardHour = 12
      Else
         standardHour = mHour Mod 12
      End If

      Return String.Format(format, standardHour, mMinute, _
         mSecond& suffix
   End Function 

End Class
The initial universal times is: 0:00:00
The initial standard time is: 12:00:00 AM
Universal time after setTime is: 13:27:06
Standard time after setTime is: 1:27:06 PM
Universal time: 0:00:00
Standard time: 12:00:00 AM
6.11.Class Definition
6.11.1.Class with a constructor to initialize its member field value
6.11.2.Define class
6.11.3.Define your own Time Class
6.11.4.Class declaration with a method that has a parameter
6.11.5.Class that contains instance variable and a property to get and set its value
6.11.6.Implement an interface
6.11.7.One class implements two interfaces 1
6.11.8.Overrides equals
6.11.9.Overrides ToString
6.11.10.Structure and Class assignment: by reference or by value
www.java2java.com | Contact Us
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.