麻豆小视频在线观看_中文黄色一级片_久久久成人精品_成片免费观看视频大全_午夜精品久久久久久久99热浪潮_成人一区二区三区四区

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

統(tǒng)計(jì)VB程序的運(yùn)行

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

以下是完整的程序代碼清單。作為試驗(yàn)，本程序僅需要一個(gè)窗體、一個(gè)按鈕和一個(gè)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'重新計(jì)算秒
m=m 1'逢秒為60則分鐘加1
Ifm>=60Then
m=0'重新計(jì)算分
h=h 1'逢分鐘為60則小時(shí)加1
Ifh>=24Then
h=0'重新計(jì)算小時(shí)
d=d 1'逢24小時(shí)則天數(shù)加1
EndIf
EndIf
EndIf
EndSub

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


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

發(fā)表評(píng)論 共有條評(píng)論
用戶名: 密碼:
驗(yàn)證碼: 匿名發(fā)表
主站蜘蛛池模板： 日韩精品网站在线观看 | 欧美亚成人 | 欧美精品日日鲁夜夜添 | 成人资源在线 | av在线播放免费观看 | 最新中文字幕免费视频 | 国产一国产一级毛片视频在线 | 青青草成人免费视频在线 | 久久国产91 | 天堂二区 | 亚洲午夜精选 | 永久在线观看电影 | 91在线免费观看 | 久久久久久久久久久亚洲 | 神秘电影91 | 免费a级黄色毛片 | hdbbwsexvideo | 日本成人一区二区三区 | 久久久一区二区三区精品 | 欧美成人黄色 | 看91视频 | 日本爽快片100色毛片视频 | 欧美国产精品一区二区 | 久久免费视频在线 | 亚洲精品久久久久久下一站 | 日本视频在线播放 | 久久久久久麻豆 | 美女视频黄视大全视频免费网址 | 亚洲欧美一区二区三区在线观看 | 国产影院一区 | 美国一级免费视频 | 99精品在线免费 | 欧美成人免费看 | 激情视频在线播放 | 99在线精品视频免费观看20 | 国产手机国产手机在线 | 国产精品一区二区三区99 | 精品久久久久久久久久久久久久 | 凹凸成人精品亚洲精品密奴 | 91精品国产乱码久久桃 | 国产精品一区自拍 |