亚洲在线久爱草,狠狠天天香蕉网,天天搞日日干久草,伊人亚洲日本欧美

為了賬號安全,請及時綁定郵箱和手機立即綁定
已解決430363個問題,去搜搜看,總會有你想問的

vb的延時函數的問題,?

vb的延時函數的問題,?

眼眸繁星 2019-01-29 06:02:06
stime = TimerDo While TrueIf Timer > (stime + 0.05) ThenExit DoEnd If'這里需要做一些事,做事的時間超過0.8秒才退出DoEventsLoop但是這里存在一個問題,在午夜過渡的時候出現問題,就是timer的值,經過測試,timer在時間點大的時候,最大,過了0點他就會變為0,倘若在23點50多分鐘時,其timer比較大,即stime也非常大,恰恰當過了零點,完了,timer為0了,怎么可能大于stime+0.05呢快點幫我看看啊
查看完整描述

2 回答

?
慕工程0101907

TA貢獻1887條經驗 獲得超5個贊

1.使用Windows API函數Sleep
新建一個工程,添加一個TextBox控件和一個CommandButton控件,再將以下代碼復制到代碼窗口
'聲明:
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Command1_Click()
Text1 = "sleep begin"
Sleep 3000
Text1 = "sleep end"
End Sub
按F5執行,按下Command1按鈕,程序停止執行,3秒鐘內不對用戶的操作做出反應,并且Text1里的內容并沒有發生改變.這是怎么回事呢?原來,Sleep函數功能是將調用它的進程掛起dwMilliseconds毫秒時間,在這段時間內,此進程不對用戶操作做出反應,程序中雖然將Text1的Text屬性改成Sleep begin,但還沒等完成對屏幕的更新進程就被掛起了,對用戶來說程序象是死機一樣。所以這種方法雖然簡單,但并不適用.

2.使用Timer()函數
這是用的最多的一種方法,也是在VB聯機手冊中所推薦的。添加一個CommandButton控件,再將以下代碼添加到代碼窗口中:

Private Sub Command2_Click()
Dim Savetime As Single
Text1 = "Timer begin"
Savetime = Timer '記下開始的時間
While Timer < Savetime + 5 '循環等待
DoEvents '轉讓控制權,以便讓操作系統處理其它的事件。
Wend
Text1 = "Timer ok"
End Sub

這種方法雖然也很簡單,但卻有有一個致命缺陷,那就是Timer函數返回的是從午夜開始到現在經過的秒數。所以Timer返回的最大值也只是60*60*24-1秒,如果從一天的23:59:58秒開始計時等待5秒,那么程序會永遠地循環下去。要進行改良,就要加上判斷是否又開始了新的一天,那豈不是太麻煩.

最完美的方法:

Private Declare Function timeGetTime Lib "winmm.dll" () As Long
'****延時函數,單位是毫秒,支持小數****
Public Function YanShi(HaoMiao As Double)
Dim t1
t1 = timeGetTime
While (timeGetTime - t1) < HaoMiao
DoEvents
Wend
End Function

調用時只要 寫 yanshi 1000 就是代表1秒了
timegettime 的意思是距離開機多少秒了



查看完整回答
反對 回復 2019-03-10
?
神不在的星期二

TA貢獻1963條經驗 獲得超6個贊

再加一個變量,一天加1,

If Timer =0 Then
n=n+1(天)
end if

If Timer+ n> (stime + 0.05) Then

Exit Do

或者Timer =0時將stime=0

If Timer =0 Then
stime=0
end if



查看完整回答
反對 回復 2019-03-10
  • 2 回答
  • 0 關注
  • 797 瀏覽
慕課專欄
更多

添加回答

舉報

0/150
提交
取消
微信客服

購課補貼
聯系客服咨詢優惠詳情

幫助反饋 APP下載

慕課網APP
您的移動學習伙伴

公眾號

掃描二維碼
關注慕課網微信公眾號