home *** CD-ROM | disk | FTP | other *** search
/ ftp.americansys.com / 2014.06.ftp.americansys.com.tar / ftp.americansys.com / EZTest.zip / clocktest.xs next >
Text File  |  2006-06-19  |  456b  |  30 lines
  1. Function OnErrorHandler
  2.     ;
  3.     ; Insert your Error handling code here.
  4.     ;
  5.     Resume Next ; Continue On Error
  6. End Function
  7.  
  8. ;-------------------------------------------------------------------
  9. Function Main
  10.  
  11. On Error Call OnErrorHandler
  12.  
  13. Name = "testclock"
  14. TimeStr = ""
  15. CurTime=0
  16.  
  17. ClockStart(Name)
  18.  
  19. MessageBox("waiting", "", "ok")
  20.  
  21. CurTime = Clock(Name)
  22. ClockStop(Name)
  23.  
  24. TimeStr = iStr(CurTime)
  25.     
  26. MessageBox(TimeStr, "", "")
  27.  
  28. End Function ; Main
  29.  
  30.