向 VB 詢問倒計時程式以及如何進行 VB 倒計時

private

subtimer1_timer()

dimtimenow

asdate

timenow#pm#

下午 4 點仍然有印刷品"

hour(timenow)

次"minute(timenow)

點"第二（時間現在）。"iftime#

pm#then

msgbox

是時候了"endifend

但是你要注意一件事：減去時間，你會得到時差，但是當時間現在超過下午4點時。

時差將逐秒增加，4點鐘之前是秒以秒為單位的倒計時。

下面我寫了關於這個程式的文章。

你會理解得更好一點。

private

datnow

asdate,y

asinteger

private

subtimer1_timer()

datnow#

pm#nowy

val(year(now))

列印距離。

六月 6， 2012 在 7：30：50 p.m. 而且。 y 年"month(datnow)

月"day(datnow)

日"hour(datnow)

小時"minute(datnow)

紀要"second(datnow)

秒"end

sub太準確了，希望能給大家乙個點o（o....

dim ltime as long '宣告的變數 ltime 是乙個長整數。

private sub form_load()ltime = 300 '為變數 ltime 賦值。

1000 'Timer1 控制項的事件間隔 （ms） 結束子

private sub timer1_timer()ltime = ltime - 1 'timer1 控制項不執行一次，變數 ltime 減少 1

" + str(int(ltime / 60)) ":" + str(ltime - int(ltime / 60) *60)

變數 ltime 轉換為“minutes：seconds”的形式，並由 label1 顯示。

if ltime = 0 then '如果變數 ltime 變為 0msgbox"時機已到！ " '彈出視窗顯示是時候了。

false '停止定時器1

end if

end sub

<>dim i as integer

private sub command1 click（） 計時器開始工作）。

倒計時已經開始，無法再次單擊此按鈕。

true '啟動計時器。

每秒重新整理 1000 次介面。

i=60 '在本例中，您要倒計時到 60 秒的時間假定為 60 秒，您實際上可以更改該時間。

end sub

private sub timer1 timer（）i = i-1 '遞減。

if i > 0 then

剩餘"& i & s"

是時候了"停止計時器。

“true”按鈕可用。

end if

end sub

關於（正在回答的問題）。

這種解決方案是對計時器控制的羞辱和缺乏學習。 如果倒計時時間超過 5 秒，則為 while....文德的迴圈設計是不夠的，如果你用他的函式倒計時10分鐘，你不可能跳出迴圈動作10分鐘，更別說繼續開始第二個倒計時和第三個倒計時了。

原理我就不說了，只告訴你設計的要點。

使用多個計時器控制項來處理多個倒計時是正確的，以 600 秒、480 秒和 360 秒的倒計時作為解釋，準確地說計時器不是在計時器控制項中每次減 1 或減，這並不意味著時間接近 1 秒或 1 毫秒。 相反，將事件視為“進行檢查次數的頻率”，例如：

獲取倒計時的未來時間 當前時間 + 600 秒 = 未來時間。

定時器事件的間隔設定為 100 毫秒（由於整個資源繁忙，系統的錯誤值大於 7-15 毫秒）。

每個計時器事件都檢查未來時間的變數是否由當前計算機時間引起的，而不是每次都從 600-i 檢查它是否為 0

如果這個方法會有200毫秒以上的誤差，那麼我就告訴你原因，這個誤差是電腦主機板晶頻系統的質量問題。 伺服器主機板晶振頻率系統的質量也可能每天偏離標準時間幾秒鐘。

注意前 599 秒的原則，因為系統繁忙，每次可以是 500 毫秒，但最後決定性的 1 秒過期時間與系統時間之間的誤差永遠不會超過 200 毫秒，是間隔 = 100 毫秒的兩倍。

如果您有興趣，請嘗試使用do...。loop 或 while....WEND迴圈檢查600秒是否過期，即使新增doevents和sleep，不僅占用了30%左右的系統資源，減慢了系統速度，還使得自身程式的其他控制項，以及**的其他事件都沒有機會執行。

嘗試同時使用 10 個計時器控制項，您會發現 10 個倒計時控制項占用的系統資源不到 10%

曾經看到xx宣傳功能可以設定為每1毫秒自動點選滑鼠，我笑了，不管是不是超級計算機，都需要50毫秒以上才能完成與遠端伺服器的滑鼠點選資訊交換。

如果您對此內容有任何疑問，請繼續提問，有時間我會繼續回覆。