1樓：匿名使用者
private i as long
private n as integer
private b as integer
private sub command1_click()if b = 2 then
command1.caption = "(s)暫停"
timer1.enabled = trueb = 1
elseif b = 1 then
command1.caption = "(s)繼續"
timer1.enabled = falseb = 2
elseif b = 0 then
b = 1
timer1.interval = 100timer1.enabled = truei = 0
n = 0
command1.caption = "(s)暫停"
end if
end sub
private sub command2_click() '重置。
timer1.enabled = falsetext1.text = format(0, "hh:mm:ss") & "." & 0
b = 0
end sub
private sub timer1_timer()text1.text = format(i \ 3600 & ":" & (i mod 3600) \ 60 & ":
" & (i mod 3600) mod 60, "hh:mm:ss") & ".
" & n
if n = 9 then i = i + 1: n = 0n = n + 1
end sub
在窗體中拖乙個timer控制項計時器。
vb怎麼設計簡單的計時器
2樓：匿名使用者
private sub command1_click()timer1.enabled = trueend sub
private sub command2_click()timer1.enabled = falseend sub
private sub command3_click()timer1.enabled = falselabel1.caption = 0
end sub
private sub form_load()timer1.enabled = falsetimer1.interval = 1000s = 0
label1.caption = s
end sub
private sub timer1_timer()s = label1.caption
s = s + 1
label1.caption = s
end sub
3樓：匿名使用者
dim ncount as long
private sub cmdpause_click()timer1.enabled = falseend sub
private sub cmdstart_click()timer1.enabled = trueend sub
private sub cmdstop_click()timer1.enabled = falsencount = 0
label1.caption = format(ncount)end sub
private sub form_load()timer1.enabled = falsetimer1.interval = 1000ncount = 0
label1.caption = format(ncount)end sub
private sub timer1_timer()ncount = ncount + 1
label1.caption = format(ncount)end sub
如何用vb程式做計時器？
4樓：匿名使用者
計時器是在每一定時間間隔就觸發一次事件，這個時間可在計時器的interval屬性中設定，預設值為0,表示計時器不工作。
如果觸發事件後不關閉計時器(設定enabled屬性為false,功能與interval=0時一樣),它就每隔一定時間不斷觸發事件，直到程式結束或 interval屬性值設為0 或 enabled屬性設為0
倒計時5秒結束後自動關閉form2：
**timer是不準確，但精度要求不高時還是可以的。
1.新建標準exe工程，在form1新增一計時器timer1,一文字框text1,再加一窗體：form2
2.寫入下面**（有兩方案)，但以下還是保留[方案一:最簡單的，看不到倒數過程]
private sub form_load()form2.show '執行窗體2
timer1.interval=5*1000 '5000毫秒，即5秒end sub
private sub timer1_timer()timer1.enabled=false '關閉計時器unload form2 '關閉form2end sub
[方案二:看到倒數過程]
private sub form_load()form2.show '執行窗體2
text1.text="5"
timer1.interval=1*1000 '1000毫秒，即1秒end sub
private sub timer1_timer()rem text1的值減1
'rem 檢查text1的值
'/*if a<=0 then
unload form2 '關閉form2timer1.enabled=false '關閉計時器'*/end sub
5樓：續藏
3個標籤，2個按鈕，1個計時器控制項
private sub command1_click() '開始/暫停
if timer1.enabled = true thentimer1.enabled = falseelse
timer1.enabled = trueend if
end sub
private sub command2_click() '停止清0label1 = "0"
label2 = "0"
label3 = "0"
timer1.enabled = falseend sub
private sub form_load() '初始設定label3 = "0"
label2 = "0"
label1 = "0"
timer1.interval = 1000timer1.enabled = falseend sub
private sub timer1_timer()label3 = label3 + 1
if label3 = 60 then
label3 = "0"
label2 = label2 + 1
if label2 = 60 then
label2 = "0"
label1 = label1 + 1
end if
end if
end sub
vb中怎樣製作乙個計時器？ 能夠設定倒計時的時間，並進行倒計時
6樓：
1、開啟vb6.0，新建乙個工程，在窗體中新增三個命令按鈕，caption分別改為「設定倒計時」、「啟動倒計時」、「繼續」，將窗體form1的caption屬性改為「倒計時」，新增乙個計時器控制項，新增乙個文字框。
2、將文字框的text屬性清空，將字型font屬性調整為小四，便於觀察，將背景色屬性backcolor調為淺黃色。
3、雙擊「設定倒計時」命令按鈕，進入**編輯視窗。
4、雙擊「啟動倒計時」命令按鈕，進入**編輯視窗。
5、雙擊「計時器」控制項，進入**編輯視窗。
6、在**編輯視窗的通用段進行變數定義：dim h as integer, m as integer, s as integer '分別儲存時分秒dim a as integer。
8、關閉**視窗，按下f5執行程式，單擊「設定倒計時」命令按鈕，彈出輸入對話方塊，此時輸入分鐘數為1，確定。
9、單擊「啟動倒計時」命令按鈕，文字框顯示倒計時時間，並時刻變動，至此實現了倒計時功能。
7樓：天天過節
用到三個控制項：文字框（text1）、按鈕（command1）、計時器（timer1）
private sub command1_click()timer1.interval = 1000end sub
private sub timer1_timer()text1.text = val(text1.text) - 1if text1.
text < 1 thenmsgbox "時間到"
unload me
end if
end sub
8樓：弒神者是我
事先要在秒錶**調 enable屬性為false，interval屬性為1000
private sub command1_click()timer1.enabled = trueend sub
private sub timer1_timer()text1.text = val(text1.text) - 1if text1.
text < 1 thenmsgbox "時間到"
unload me
end if
end sub
9樓：匿名使用者
設定倒計時 開始時間t
for ，step -1
顯示 t-1s
next
vb做60秒內迴圈倒計時的程式，VB做一個60秒內迴圈倒計時的程式
在窗體中畫一個文字框，text屬性為60，再畫一個計時器，interval屬性設定為1000 單位為毫秒，1000毫秒等於1秒 enabled屬性為true.按後編寫如下計時器事件 private sub timer1 timer if text1.text 0 thentext1.text 60 ...
簡單VB問題，乙個簡單VB問題
上面的兄弟是考lz的改錯技術嗎？我改了一下macrotian給的 private sub command1 click dim pro as double dim i as integer n text1.text pro 1 for i 1 to n if i mod 2 0 then pro p...
怎麼用VB製作倒計時，怎麼用VB製作一個倒計時？
窗體中放置三個command 三個label 一個timer控制元件，在form load過程中已經說明了控制元件用途，其中label1是顯示分鐘數，label2是顯示秒數，如下 dim js as integer 這裡宣告瞭一個全域性變數，儲存計時數 private sub command1 cl...