如何使用 VB6 0 程式設計倒計時？

樓上**這麼長，還簡單嗎？

默然。 我給你寫了乙個，這還真是簡單實用，呵呵！

新增計時器控制項。

將 interval 屬性調整為。

毫秒。 那是。

1 秒。 新增兩個。

新增按鈕。

開始倒計時。

就是這樣。 操作步驟如下：

private

subform_load()

falseend

subprivate

subtimer1_timer()

endifendsub

private

subcommand1_click()

trueend

如果您有什麼不明白的地方，請與我聯絡！

這就像從目標時間中減去當前時間一樣簡單。 時間減法就該了！

1.首先建立乙個專案，在視窗中新增三個命令按鈕，將標題改為“設定倒計時”、“開始倒計時”、“繼續”，將窗體form1的title屬性改為“countdown”，新增乙個定時器控制項，並新增乙個文字框，並將介面設定為下圖。

2.清除文字框文字中的屬性，然後將字型字型的屬性調整為小四，以便於下次觀察，並記得將背景顏色屬性背色調整為淺黃色。

6. 在 ** 視窗的常規部分定義這三個變數：dim h 為整數，m 為整數，s 為整數'這三個數量分別儲存，例如小時、分鐘和秒，如下圖所示。

8.然後關閉**視窗，按F5執行程式，然後點選命令按鈕“設定倒計時”，然後會彈出乙個輸入對話方塊，一定要記得此時輸入分鐘數，數字是1，然後OK，如圖所示：

9.最後，一定要點選命令按鈕“開始倒計時”，然後文字框會顯示倒計時時間，並且會繼續變化，這時可以看到時間在變化，這是實現倒計時功能，如圖所示：

dim i as integer

private sub command1_click() '（計時器開始工作）。

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

true '啟動計時器。

每秒重新整理 1000 次介面。

i=60 '為了倒計時，在這種情況下，假設 60 秒，您實際上可以更改結束潛艇

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

if i > 0 then

剩餘" & i & "秒"

否則是時候了"

停止計時器。 “true”按鈕可用。

end if

end sub

通過定時器控制，interval 設定觸發時間，然後定義乙個用於計數的全域性變數，例如：

dim js as long

private sub form_load()= 1000 '每 1 秒觸發一次。

label1 = ""

js = 10

end sub

private sub timer1_timer()if js = 0 then end

label1 = "倒計時：" & val(js) &"幾秒鐘關閉"

js = js - 1

end sub

第乙個空：= true

i = 10 '更改為要倒計時的第二個空次數：i = i - 1

第三個空：="左：" & i & "秒"

第四個空：= false

此外，還需要將 timer1 的 interval 屬性設定為 1000，即 timer 事件每 1 秒執行一次。

dim i as long

private sub command1_click() '（計時器開始工作）。

end sub

private sub timer1_timer()i = i + 1

if i < 10 then '10秒。

剩餘" & 10-i & "秒"

else "是時候了"

i = 0 0end if

end sub

i=200 '您要設定的倒計時時間。

i=i-1i=200

方法步驟。 1. 開啟。

vb(visual

basic)

軟體，新標準。

exe專案，請根據下圖設計視窗。 中間三。

該文字框用於輸入查詢日期，其 Name 屬性設定為 。

y,m,d。它下面的三個。

label 用於指示當前日期，其 Name 屬性設定為 each。

cy,cm,cd。“計算”按鈕下方還有兩個標籤，用於表示兩個日期之間的差異，請在左側設定標籤框的名稱。

t，右側標籤框的名稱設定為：

s。這些設定是為以後的程式設計準備的**。

2、表格排版完成，正式方案設計開始。 第一步，當您第一次開啟程式時，您必須提取今天的日期。 雙擊視窗的空白處，會彈出**視窗，寫如下**。

綠色文字是注釋，可以參考其含義，寫**時不必寫。

3.第二步是輸入日期後檢查數字是否有錯誤。 這一年一定是。

月份必須是。

，日期需要根據當年和月份指定相應的範圍。 雙擊第乙個文字框。

y，進入**視窗，寫如下**，還有注釋。

4.判斷輸入的日期是否錯誤後，下一步就是計算今天，以及設定的日期，以及每個與共同紀元的距離。

年。 月。 有多少天？ 雙擊“計算”按鈕並寫下**，如下所示。 還有注釋。

5.好了，所有的**都寫好了，可以點選工具欄上的“執行”按鈕來測試效果。 如果你非常滿意，也可以點選“檔案”選單下的“生成專案命令”，直接生成應用，這樣你就可以隨時執行了！

<>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毫秒以上才能完成與遠端伺服器的滑鼠點選資訊交換。

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