DOCUMENT:Q139390 10-FEB-2000 [foxpro] TITLE :How to Create a Stopwatch Timer in Visual FoxPro PRODUCT :Microsoft FoxPro PROD/VER:WINDOWS:3.0 OPER/SYS: KEYWORDS:kbcode ====================================================================== ------------------------------------------------------------------------------- The information in this article applies to: - Microsoft Visual FoxPro for Windows, version 3.0 ------------------------------------------------------------------------------- SUMMARY ======= It can be useful to track the amount of time that was spent in a Visual FoxPro application. By using the timer control in Visual FoxPro, you can create a timer to track elapsed time. MORE INFORMATION ================ The following code creates a form that begins tracking the elapsed time when it is launched. It displays the total time in a WAIT WINDOW when the form is closed. PUBLIC ostopwatch oStopWatch=CreateObject('stopwatch') ostopwatch.Visible=.T. DEFINE CLASS stopwatch AS form AutoCenter = .T. Top = 32 Left = 9 Height = 137 Width = 293 DoCreate = .T. Caption = "" etime = 0 Name = "Form1" ADD OBJECT command1 AS commandbutton WITH ; Top = 48, ; Left = 84, ; Height = 49, ; Width = 133, ; Caption = "Quit", ; Name = "Command1" ADD OBJECT timer1 AS timer WITH ; Top = 12, ; Left = 12, ; Height = 23, ; Width = 23, ; Interval = 1000, ; Name = "Timer1" PROCEDURE Unload WAIT WINDOW 'Elapsed Time = '+ALLTRIM(STR(ThisForm.etime))+ ; ' Seconds' ENDPROC PROCEDURE command1.Click THISFORM.Release ENDPROC PROCEDURE timer1.Timer THIS.Parent.etime=This.Parent.etime+1 THIS.Parent.Caption='Elapsed Time ='+ ; ALLTRIM(STR(This.Parent.etime))+' Seconds' ENDPROC ENDDEFINE Additional query words: VFoxWin ====================================================================== Keywords : kbcode Technology : kbVFPsearch kbAudDeveloper kbVFP300 Version : WINDOWS:3.0 ============================================================================= THE INFORMATION PROVIDED IN THE MICROSOFT KNOWLEDGE BASE IS PROVIDED "AS IS" WITHOUT WARRANTY OF ANY KIND. MICROSOFT DISCLAIMS ALL WARRANTIES, EITHER EXPRESS OR IMPLIED, INCLUDING THE WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. IN NO EVENT SHALL MICROSOFT CORPORATION OR ITS SUPPLIERS BE LIABLE FOR ANY DAMAGES WHATSOEVER INCLUDING DIRECT, INDIRECT, INCIDENTAL, CONSEQUENTIAL, LOSS OF BUSINESS PROFITS OR SPECIAL DAMAGES, EVEN IF MICROSOFT CORPORATION OR ITS SUPPLIERS HAVE BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. SOME STATES DO NOT ALLOW THE EXCLUSION OR LIMITATION OF LIABILITY FOR CONSEQUENTIAL OR INCIDENTAL DAMAGES SO THE FOREGOING LIMITATION MAY NOT APPLY. Copyright Microsoft Corporation 2000.