1樓：匿名使用者
正在給你做，晚上給你。
2樓：匿名使用者
使用timer控制元件 聲音的使用beep
vb6.0倒計時程式怎麼再最後10秒出現滴滴滴的警示音
3樓：心隨心潮
在窗體上畫一個timer控制元件、一個按鈕，一個progressbar控制元件（需要新增部件microsoft windows
common controls 6.0），用下面的**，單擊按鈕開始10秒倒計時。
private sub command1_click()
timer1.enabled = true
progressbar1.value = progressbar1.max
end sub
private sub form_load()
timer1.enabled = false
timer1.interval = 1000
progressbar1.value = progressbar1.max
end sub
private sub timer1_timer()
progressbar1.value = progressbar1.value - 10
if progressbar1.value <= 0 then
timer1.enabled = false
msgbox "10秒倒計時結束！"
end if
end sub
4樓：
可以用 beep 語句讓計算機喇叭發出一個「滴」聲，這條語句極其簡單，沒有任何引數。例如：
private sub command1_click()beep
end sub
按一下按鈕就會滴一聲
用vb做倒計時器，怎樣在最後10秒發出警示音
5樓：
if 倒計時<10 then beep
6樓：
在工具欄加個音訊外掛，到時間啟動就行
高手幫做一段vb倒計時器的**，關閉後仍可以繼續倒計時的。謝謝咯！距離10月1日。
7樓：匿名使用者
關閉後還可以倒計時？
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
8樓：匿名使用者
不建議使用1樓的timer 因為vb裡面timer計時是很不準確的 跟計算機運**況有很大關聯
如果你夠狠就上api計時
如果簡單點 你可以用now 或者去網路上獲取現在的時間 然後與10月1日 之間進行一系列計算來得到 然後用一個timer來 實現 沒多少毫秒更新一次 就可以了 這個對timer的要求就很低了 主要電腦能跑就可以
急需可全屏顯示時間的倒計時軟體，倒數30秒和倒數10秒分別可以有提示音，跪求
vb製作倒計時器問題
9樓：匿名使用者
option explicit
dim h as integer, m as integer, s as integer
private sub command1_click()if not isnumeric(text1.text) thenmsgbox "請正確小時數！"
exit sub
end if
if not isnumeric(text2.text) thenmsgbox "請正確分鐘數！"
exit sub
end if
if not isnumeric(text3.text) thenmsgbox "請正確秒數！"
exit sub
end if
h = text1.text
m = text2.text
s = text3.text
if m >= 60 then
msgbox "分鐘數必須小於60！"
exit sub
end if
if s >= 60 then
msgbox "秒數必須小於60！"
exit sub
end if
timer1.enabled = trueend sub
private sub command2_click()timer1.enabled = falseend sub
private sub form_load()text1.text = ""
text2.text = ""
text3.text = ""
command1.caption = "開始"
command2.caption = "停止"
label1.caption = ""
timer1.interval = 1000timer1.enabled = falseend sub
private sub timer1_timer()dim r as string
if h <> 0 then
if m <> 0 then
if s = 0 then
m = m - 1
s = 59
else
s = s - 1
end if
else
if s <> 0 then
s = s - 1
else
h = h - 1
m = 59
s = 59
end if
end if
else
if m <> 0 then
if s = 0 then
m = m - 1
s = 59
else
s = s - 1
end if
else
if s <> 0 then
s = s - 1
else
label1.caption = "倒計時完成！"
timer1.enabled = falseend if
end if
end if
if h <> 0 or m <> 0 or s <> 0 thenr = cstr(h) & "小時" & cstr(m) & "分" & s & "秒"
label1.caption = r
end if
end sub
10樓：
新增一個timer控制元件。
dim a, b, c as integerprivate sub command1_click()a = text1.text
b = text2.text
c = text3.text
timer1.interval = 1000timer1.enabled = trueend sub
private sub command2_click()timer1.enabled = falselabel1.caption = "停止計時"
end sub
private sub form_load()timer1.enabled = falseend sub
private sub timer1_timer()label1.caption = a & ":" & b & ":" & c
if c = 0 then
if b = 0 then
if a = -1 then
timer1.enabled = falselabel1.caption = "倒計時完成"
else
c = c - 1
b = 59
c = 59
end if
else
b = b - 1
c = 59
end if
else
c = c - 1
end if
end sub
11樓：
public class jtime
inherits system.windows.forms.formdim t1, m1, s1
private sub button1_click(byval sender as system.object, byval e as system.eventargs) handles button1.
click
t1 = 60 * textbox1.texttimer1.enabled = trueend sub
private sub timer1_tick(byval sender as system.object, byval e as system.eventargs) handles timer1.
tick
t1 = t1 - 1
m1 = int(t1 / 60)
s1 = t1 mod 60
label3.text = m1 & "分" & s1 & "秒"
if t1 = 0 then
timer1.enabled = falselabel3.text = "倒計時完成"
end if
end sub
private sub button2_click(byval sender as system.object, byval e as system.eventargs) handles button2.
click
timer1.enabled = falseend sub
end class
12樓：曹昌裕
中華人民共和國民黨組織
13樓：匿名使用者
這用一個timer就能實現了呀。
vb中怎樣製作一個計時器？ 能夠設定倒計時的時間，並進行倒計時
14樓：
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、單擊「啟動倒計時」命令按鈕，文字框顯示倒計時時間，並時刻變動，至此實現了倒計時功能。
15樓：天天過節
用到三個控制元件：文字框（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
VB倒計時器問題 為什麼不能倒計時，一執行，一直顯示1分39秒，沒有倒計時
dim num as integer private sub form load num 100 timer1.enabled trueend sub private sub label2 click end sub private sub timer1 timer num num 1 label1...
VB中怎樣製作計時器？能夠設定倒計時的時間，並進行倒計時
1 開啟vb6.0，新建一個工程，在窗體中新增三個命令按鈕，caption分別改為 設定倒計時 啟動倒計時 繼續 將窗體form1的caption屬性改為 倒計時 新增一個計時器控制元件，新增一個文字框。2 將文字框的text屬性清空，將字型font屬性調整為小四，便於觀察，將背景色屬性backco...
vb設計多功能計時器，時鐘，秒錶，倒計時功能，LED風格
人文 frmtimer窗體控制元件 commandbutton 2 picturebox 1 pictureclip 注 剪下控制元件 1 timer 3 注 此處只給出了控制元件型別，控制元件名祥見 frmtimer 的 option explicit public t as integer,st...