国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 學(xué)院 > 開發(fā)設(shè)計 > 正文

統(tǒng)計VB程序的運行

2019-11-18 17:37:27
字體：大 中 小
供稿：網(wǎng)友
用戶退出程序時若能告訴用戶程序當(dāng)次用了多長時間、時間過長的話則提醒用戶注意休息，我想這樣的創(chuàng)意應(yīng)是對用戶的一種體貼，會使我們的軟件更具親和性，也給我們的軟件添色不少。VB中可利用Now函數(shù)或者Timer控件完成此設(shè)想。
用Now函數(shù)能保證時間統(tǒng)計的準(zhǔn)確性。思路是這樣：用CStr(Second(Now)、CStr(Minute(Now))、Cstr(Hour(Now))及CStr(Day(Now))記取程序啟動和關(guān)閉時系統(tǒng)時鐘的秒、分、時、日，然后作些計算即可得出運行時間總和。因其計算在跨月份的情況下相當(dāng)復(fù)雜，本文不打算對這個思路作討論。
用Timer控件不失為一種很好的解決方法，它能較為方便地幫助我們統(tǒng)計程序運行的時間。具體思路是：設(shè)置幾個變量分別記錄秒、分、時、日,讓Timer控件控制秒、分、時、日的變化。當(dāng)秒數(shù)等于60時則分鐘加1，當(dāng)分鐘等于60時則小時加1，當(dāng)小時等于24時則日加1。這里，秒最為關(guān)鍵，它的精確性決定了時間的統(tǒng)計是否準(zhǔn)確。Timer控件的Interval屬性的設(shè)置因而變得很重要：我們的秒變量將由它來主宰。將其Interval屬性設(shè)為1000的話一個小時可能會誤差6秒鐘，這應(yīng)該是無關(guān)緊要了吧。

以下是完整的程序代碼清單。作為試驗，本程序僅需要一個窗體、一個按鈕和一個Timer控件。程序在PWin98、VB6.0下調(diào)試通過。

PrivateSubForm_Load()
Timer1.Enabled=True
Timer1.Interval=1000
s=0
m=0
h=0
d=0
EndSub

PrivateSubTimer1_Timer()
s=s 1'每秒鐘給s變量加1
Ifs>=60Then
s=0'重新計算秒
m=m 1'逢秒為60則分鐘加1
Ifm>=60Then
m=0'重新計算分
h=h 1'逢分鐘為60則小時加1
Ifh>=24Then
h=0'重新計算小時
d=d 1'逢24小時則天數(shù)加1
EndIf
EndIf
EndIf
EndSub

'退出時
PrivateSubcmdExit_Click()
Ifd*24 h>=1Then'使用時間若超過一小時
MsgBox"本次使用的時間為："&d*24 h&"小時"&m&"分鐘"_
&s&"秒"&vbCrLf&"謝謝使用!"&vbCrLf&_
"但請您注意休息，不要太勞累哦!",vbOKOnly,"再見"
Else'若不超過一小時
MsgBox"本次使用的時間為："&h&"小時"&m&"分鐘"_
&s&"秒"&vbCrLf&"謝謝使用!"&vbCrLf,vbOKOnly,"再見"
EndIf
End
EndSub


'若用戶點擊窗體右上角的關(guān)閉按鈕
PrivateSubForm_queryunload(CancelAsInteger,UnloadmodeAsInteger)
cmdExit_Click
EndSub->

發(fā)表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發(fā)表
主站蜘蛛池模板： 上高县| 江阴市| 达孜县| 洪泽县| 云和县| 台东县| 庆云县| 苍梧县| 科技| 静乐县| 芜湖县| 瓦房店市| 聊城市| 镇沅| 金秀| 保山市| 井研县| 罗田县| 通辽市| 宝兴县| 定远县| 石阡县| 洪洞县| 桂阳县| 正蓝旗| 东丰县| 江油市| 容城县| 成武县| 岑巩县| 东莞市| 江城| 南汇区| 东莞市| 遂川县| 牡丹江市| 井冈山市| 翁牛特旗| 绥阳县| 浦东新区| 中宁县|