亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb

首頁 > 學院 > 開發設計 > 正文

統計VB程序的運行

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

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

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小時則天數加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


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

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb
2020欧美日韩在线视频| 国产成人91久久精品| 久久久久久久久久av| 欧美在线视频网| 亚洲风情亚aⅴ在线发布| 成人国内精品久久久久一区| 国产精品中文字幕久久久| 亚洲国产欧美精品| 国产亚洲欧美aaaa| 国产91精品不卡视频| 久久视频国产精品免费视频在线| 欧美中文字幕在线播放| 欧美巨乳美女视频| 国产精品爽爽爽| 91久久在线播放| 98午夜经典影视| 久久久国产影院| 45www国产精品网站| 91色精品视频在线| 午夜精品一区二区三区av| 欧美高清第一页| 久久精彩免费视频| 国产精品99久久久久久人| 一区二区欧美日韩视频| 亚洲国产精品高清久久久| 欧美成人精品h版在线观看| 国产精品一区二区久久久| 日韩最新在线视频| 欧美在线观看www| 91青草视频久久| 57pao成人国产永久免费| 精品爽片免费看久久| 91大神在线播放精品| 国产精品久久久久久久久久久新郎| 欧美猛交ⅹxxx乱大交视频| 亚洲人成啪啪网站| 国产精品美女免费| 国产精品高潮呻吟视频| 国产日产欧美a一级在线| 国产精品狼人色视频一区| 久久久久国产精品免费| 久久久久久亚洲精品中文字幕| 精品久久久久久久中文字幕| 国产亚洲a∨片在线观看| 中文字幕日本精品| 国产免费亚洲高清| 日韩电影中文字幕| 成人免费淫片aa视频免费| **欧美日韩vr在线| 国产精品视频xxx| 欧洲日本亚洲国产区| 琪琪第一精品导航| 成人午夜在线视频一区| 欧美国产日韩中文字幕在线| 欧美高清理论片| 国产精品久久久久久久美男| 亚洲精品国产拍免费91在线| 疯狂做受xxxx高潮欧美日本| 国产在线视频91| 久久成人精品一区二区三区| 欧美做受高潮电影o| 国产精品免费电影| 久久久久久久电影一区| 上原亚衣av一区二区三区| 国产98色在线| 国产在线视频91| 国产成人极品视频| 成人动漫网站在线观看| 久久精品99久久香蕉国产色戒| 97香蕉超级碰碰久久免费软件| 亚洲 日韩 国产第一| 亚洲欧美日韩成人| 91av在线精品| 国产精品国产三级国产专播精品人| 亚洲激情视频网| 福利视频一区二区| 欧美影院在线播放| 日韩电影免费观看在线观看| 日韩第一页在线| 欧美成人精品在线| 97色在线观看免费视频| 久久久影视精品| 日韩毛片在线观看| 一区二区在线视频播放| 韩日精品中文字幕| 欧洲精品久久久| 中文字幕日韩综合av| 深夜福利日韩在线看| 久久成人在线视频| 97视频在线观看网址| 久久精品久久久久久国产 免费| 亚洲国产成人91精品| 成人性生交大片免费观看嘿嘿视频| 国产69精品久久久| 国产精品jizz在线观看麻豆| 日韩不卡中文字幕| 中文字幕免费精品一区| 亚洲一二三在线| 久久久久久亚洲| 欧美黑人国产人伦爽爽爽| 久久精品国产亚洲精品2020| 在线视频欧美日韩| www.午夜精品| 伊是香蕉大人久久| 欧美自拍视频在线| 九九热最新视频//这里只有精品| 97人洗澡人人免费公开视频碰碰碰| 日韩在线观看网址| 国产91精品久久久久| 日韩人在线观看| 亚洲国产精品成人精品| 97免费视频在线| 日韩欧美在线视频免费观看| 青青久久aⅴ北条麻妃| 性欧美在线看片a免费观看| 欧美亚洲另类激情另类| 国产精品视频白浆免费视频| 136fldh精品导航福利| 91久久综合亚洲鲁鲁五月天| 成人妇女免费播放久久久| 欧美亚州一区二区三区| 欧美午夜视频一区二区| 久久久国产精品免费| 国产综合色香蕉精品| 久久视频在线看| 亚洲视频在线播放| 亚洲欧美日韩一区二区在线| 亚洲国产第一页| 亚洲精品日韩激情在线电影| 亚洲a在线播放| 日韩美女主播视频| 国产伦精品一区二区三区精品视频| 精品久久久久久| 久久久精品网站| 精品视频久久久| 国产成人精彩在线视频九色| 97热在线精品视频在线观看| 欧美一级电影久久| 国产一区二区三区在线观看网站| 国产精品久久久久久久久久ktv| 久久精品亚洲94久久精品| 亚洲aⅴ男人的天堂在线观看| 欧美福利小视频| 日本久久久久久久久| 久久好看免费视频| 国产v综合v亚洲欧美久久| 日韩av在线免播放器| 91av成人在线| 国产亚洲福利一区| 中文字幕精品在线视频| 日韩免费在线观看视频| 亚洲欧美激情精品一区二区| 久久青草福利网站| 中文字幕精品久久| 精品高清一区二区三区| 国产美女直播视频一区| 成人精品视频99在线观看免费| 日韩av成人在线| 91精品国产综合久久香蕉| 欧美色视频日本版| 亚洲一区精品电影| 在线观看国产精品91| 久久国产天堂福利天堂| 97超碰色婷婷|