1樓:匿名使用者
要用timer 就行
求 vb 10秒倒計時**
2樓:匿名使用者
dim test as long
private sub form_load()timer1.interval = 1000test = 10
text1.text = ""
timer1.enabled = trueend sub
private sub timer1_timer()text1.text = test
test = test - 1
if text = 0 then
timer1.enabled = false'到時間處理的事件
end if
end sub
3樓:匿名使用者
一個文字控制元件text1顯示倒計時 一個定時器控制元件定時,一個按鈕控制元件觸發倒計時事件
dim i as integer '全域性變數private sub command1_click()text1.text = 10 '文字初始值10timer1.enabled = true '開定時器timer1.
interval = 1000 'ms單位i = 10 ' i賦初始值
end sub
private sub form_load()text1.text = "" '文字初始值空值end sub
private sub timer1_timer()i = i - 1 '每到1s響應定時器,響應次數+1text1.text = i
if i = 0 then
timer1.enabled = false '關定時器end if
end sub
4樓:紅杏白梨
option explicit
private sub form_load()timer1.interval = 1000end sub
private sub timer1_timer()static m
m = m + 1
text1.text = "剩餘" & 11 - m & "秒"
if m = 11 then msgbox "時間到!": timer1.enabled = false
end sub
5樓:
加入一個timer,設定interval為1000option explict
dim lngsecond as longprivate sub form_loadlngsecond = 10
text1.text = "開始倒數"
end sub
private sub timer_timerif lngsecond = 0 thentimer.enabled = falseexit sub
else
text1.text = lngsecondlngsecond = lngsecond - 1endif
end sub
高手幫做一段vb倒計時器的**,關閉後仍可以繼續倒計時的。謝謝咯!距離10月1日。
6樓:匿名使用者
關閉後還可以倒計時?
dim a as long
private sub form_load()a = 100
timer1.interval = 1000end sub
private sub timer1_timer()a = a - 1
if a = 0 then a = 100text1.text = a
end sub
7樓:匿名使用者
不建議使用1樓的timer 因為vb裡面timer計時是很不準確的 跟計算機運**況有很大關聯
如果你夠狠就上api計時
如果簡單點 你可以用now 或者去網路上獲取現在的時間 然後與10月1日 之間進行一系列計算來得到 然後用一個timer來 實現 沒多少毫秒更新一次 就可以了 這個對timer的要求就很低了 主要電腦能跑就可以
cwinform窗體,簡單倒計時器,按下button後計
private int totalsecond 299 private int tenthsecond 9 private void timer1 tick object sender,eventargs e private void button1 click object sender,even...
打點計時器測瞬時速度。急求,打點計時器上的瞬時速度怎麼算?
此題利用時間極短近似 求出一段過程中的平均速度作為這段時間內的中間時刻的瞬時速度 1這點的速度 用0到2這段時間內的距離除上這段時間得到這段時間內的平均速度,作為1這點的瞬時速度 3.3cm 0.2s 0.033m 0.2s 0.0165m s 2這點速度 用1到3這段時間內的距離除上這段時間得到這...
如何用微控制器做簡單的倒計時器,如何用微控制器做一個簡單的倒計時器
一般我們用定時器來做計時器,實現時間得加。每次中斷髮生,用一個變數自增來判斷時間是否到1s,到了之後清零這個變數,另一個時間變數自增來作時間得增加。現在就是要把這個自增的時間變數改為自減,判斷當小於0時,又賦初值,然後繼續自減判斷。微控制器是指一個整合在一塊晶片上的完整計算機系統。微控制器是一種積體...