How to Create a Clock Class to Show Time in AM/PM Format

MORE INFORMATION

Steps to Create Clock Class

1. Type the following command in the Command window:

      CREATE CLASS.
   						

2. In the dialog box, enter oClock in the Class Name field, Container in the Based On field, and a name for the .VCX file in the Store in field.
3. Add a Timer control to the container, and give the Timer control the following property values and event codes:

      Name: Clock
      Interval: 1000
   
      Timer event method:
   
         This.Parent.tdisplay.Refresh
   						

4. Add a text box to the container, and give the text box the following property values and event code:

      Name: tdisplay
      DisabledBackColor: 255,255,255
      DisabledForeColor: 0,0,0
      Enabled: .F.
      FontName: Arial
      FontSize: 10
      Height: 24
      Width: 85
   
      Init event:
   
         This.Top=0
         This.Left=0
   
      Refresh method:
   
         This.Value=IIF(BETWEEN(VAL(LEFT(Time(),2)),12,23), ;
            ALLTRIM(STR(VAL(LEFT(Time(),2))-12))+ SUBSTR(Time(),3,6)+' PM', ;
            IIF(BETWEEN(VAL(LEFT(Time(),2)),1,11), ;
            ALLTRIM(STR(VAL(LEFT(Time(),2))))+ SUBSTR(Time(),3,6)+' AM', ;
            '12'+ SUBSTR(Time(),3,6)+ ' AM'))
   						

5. Add the following code to the Init event of Oclock:

      This.Width=This.tdisplay.Width
      This.Height=This.tdisplay.Height
   						

6. Save the container class. Then type the following in the Command window:

      CREATE FORM seeclock
   						

7. On the Form Controls toolbar, click the Visual Class tool.
8. On the Visual Class menu, click Add. Locate the .vcx file where you saved the oClock class. Select the oClock object from the Form Controls toolbar and drop it on the form.
9. Save and run the form. The system time will display on the form in the standard AM/PM format.

Steps to Add Format-Toggling Functionality

1. While the oClock container is open in design mode, click New Property on the Class menu. In the New Property dialog box, enter lttoggle as the Name, and click OK.
2. In the Init event of oClock, add the following line of code:

      This.lttoggle=.t.
   						

3. In the Refresh method of tdisplay, the followings lines of code replace the lines of code for the Refresh method as shown in Step 4 in the previous section:

      IF This.Parent.lttoggle
         This.Value=IIF(BETWEEN(VAL(LEFT(Time(),2)),12,23), ;
            ALLTRIM(STR(VAL(LEFT(Time(),2))-12))+ SUBSTR(Time(),3,6)+' PM', ;
            IIF(BETWEEN(VAL(LEFT(Time(),2)),1,11), ;
            ALLTRIM(STR(VAL(LEFT(Time(),2))))+ SUBSTR(Time(),3,6)+' AM', ;
            '12'+ SUBSTR(Time(),3,6)+ ' AM'))
         This.Width=85
         This.Parent.Width=85
      ELSE
         This.Value = Time()
         This.Width=60
         This.Parent.Width=60
      ENDIF
   						

4. In the oClock DblClick event, enter the following two lines of code:

      This.lttoggle= !This.lttoggle
      This.tdisplay.Refresh
   						

5. Save the container class.
6. Run the previously saved seeclock form. When the form initially loads, the time is displayed in standard AM/PM format. Double-click the oClock object, and note that the time now toggles to military format. Then double-click the Clock object to toggle the time display between the two formats.