Visual basic 制做秒表.docVIP

Visual basic 制做秒表 　　摘要:该文用VB6.0 for Windows给出一个实用程序――秒表,该程序调用计算机系统时间,具有开始、暂停、继续、清零、退出等功能,在各种实时控制中有较广泛的应用。 　　关键词:Visual basic; 秒表 　　中图分类号:TP311文献标识码:A文章编号:1009-3044(2010)16-4440-01 　　Visual Basic Making Stopwatch 　　YANG Ji, WANG Chun-hong, CHANG Jing 　　(Mathematical Office, Aviation University of Air Force, Changchun 130022, China) 　　Abstract: In this paper, vb6.0 for windows gives a utility program: stopwatch,. The program which calls the time in computer system with functions of started, pause, resumed, reset, exited and so on, has a wide range of applications in a variety of real-time control. 　　Key words: Visual basic ; stopwatch 　　1 程序设计和控件设置 　　程序运行后,取时间变量tc=time为初始时间,以DateDiff(s, tc, Time) mod 60 为秒表运行的秒数;暂停时用时间变量tp记录此时秒表的秒数;继续后以 (DateDiff(s, tc, Time)+tp)mod 60 为秒表运行的秒数。定时器控件timerw 用于控制秒表的走时, 标签控件labs和labm用于显示秒表的秒数和分数。命令按钮comok. compause. comcls. comexit用于控制秒表的开始(继续). 暂停. 清零. 和退出。窗体运行如1图所示。 　　2 程序代码 　　Dim tc, ts, tp As Date 　　Dim m, tf As Integer 　　Private Sub Form_Load() 　　m = -1 　　tf = True 　　Timer1.Interval = 1 　　Timer1.Enabled = fals 　　Compause.Enabled = fals 　　End Sub 　　Private Sub Timer1_Timer() 　　ts = DateDiff(s, tc, Time) 　　ts = IIf(tf = True, ts Mod 60, (tp + ts) Mod 60) 　　If Labs.Caption ts Then 　　Labs.Caption = ts 　　If ts = 0 Then 　　m = m + 1 　　Labm.Caption = Str(m) 　　End If 　　End If 　　End Sub 　　Private Sub comok_Click() 　　tc = TimeTimer1.Enabled = TrueComok.Enabled = falsComcls.Enabled = falsComexit.Enabled = falsCompause.Enabled = True 　　End Sub 　　Private Sub compause_Click()Timer1.Enabled = falstp = tsComok.Caption = 继续tf = falsComok.Enabled = TrueComcls.Enabled = TrueComexit.Enabled = True 　　End Sub 　　Private Sub comcls_Click()m = -1tf = TrueLabs.Caption = Labm.Caption = Comok.Caption = 开始Compause.Enabled = fals 　　End Sub 　　Private Sub comexit_Click()End 　　End Sub 　　 　　参考文献: 　　[1] Holzner S.Visual basic 技术内幕[M].机械工业出版社,1999. 3