1樓：匿名使用者
在窗體中畫一個文字框，text屬性為60，再畫一個計時器，interval屬性設定為1000（單位為毫秒，1000毫秒等於1秒)，enabled屬性為true.按後編寫如下計時器事件：
private sub timer1_timer()if text1.text = "0" thentext1.text = "60"
else
text1.text = val(text1.text) - 1end if
end sub
2樓：匿名使用者
dim fxing as integer '設定一個全域性變數private sub form_load()timer1.interval = 100 '設定時鐘事件為1000毫秒,也就是1秒,設定值小一定會移動得快一些
timer1.enabled = true '時鐘控制元件為觸發狀態shape1.shape = 3 'shape控制元件為 圓形fxing = 100
end sub
private sub timer1_timer() '時鐘事件cls '
shape1.top = shape1.top + fxingif shape1.
top + 500 + shape1.height >= form1.height or shape1.
top < 120 then fxing = -fxing
end sub elyt 2008-07-05 08:01 檢舉
vb中如何設計一個類似60秒倒計時的程式
3樓：
建立一個timer控制元件：timer1
設定timer1的interval屬性為1000建立一個顯示倒計時的lable：lbltime**：dim i as long
private sub form_load()i=60
endsub
private sub timer1_timer()i=i-1
lbltime.caption="倒計時" & iif i<=0 then
msgbox "倒計時結束，退出"
endendif
end sub
4樓：otz進進
新增timer控制元件，新增label控制元件，label的caption屬性為60，將interval屬性設為1000（每一秒執行一次）然後在timer的time中新增
dim i as integer '定義迴圈變數
private sub timer1_timer()
i=60 '定義變數值迴圈，60次
i = i - 1 '每次迴圈i的值減去一
label.caption="還有"& i & "秒" '輸出i的值，即實現倒計時顯示
if i <= 0 then '判斷i的值是否為零，即迴圈是否到達60次
**塊 '是的話執行**塊中的內容，就是你想要實現的功能，如："msgbox “遊戲結束”"
timer1.enabled = false '最後關閉timer，不再迴圈
end if '退出if語句
end sub
5樓：匿名使用者
dim flag as boolean '定義布林型變數,用於判斷倒計時間是否已到.若倒計時到,則停止遊戲
private sub form_load()label1.caption = 60
timer1.interval = 1000end sub
private sub timer1_timer()label1.caption = label1.caption - 1
if label1.caption = 0 thenlabel1.caption = "遊戲結束"
flag = true '此時倒計時時間到,設定flag為true(flag系統預設初值為false),用以作為結束程式標誌
timer1.enabled = falseend if
end sub
上面就是倒計時的程式
你可以執行遊戲的**處進行如下判斷
....
if flag =true then
exit sub
else
....你的遊戲**
6樓：蘇州老三石
在窗體中加個timer,然後用如下**
dim i as integer
private sub form_load()i = 60
timer1.interval = 1000end sub
private sub timer1_timer()i = i - 1
form1.cls
print i
if i = 0 then
timer1.enabled = falsemsgbox ("time over!")end if
end sub
7樓：
用timer控制元件。很容易實現。
vb6.0：怎麼實現每過60秒，分鐘的倒計時？即秒數按1秒倒計時，分鐘數按1分鐘（60秒）倒計時。
8樓：聽不清啊
mindec 和 secdec 設為全域性
變數private sub timer1_timer()secdec = secdec - 1
form2.label2.caption = secdecform2.label1.caption = secdec \ 60end sub
9樓：水柏稅宇文
密碼：111-1111111
vb中怎樣製作一個計時器？ 能夠設定倒計時的時間，並進行倒計時
10樓：
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、單擊“啟動倒計時”命令按鈕，文字框顯示倒計時時間，並時刻變動，至此實現了倒計時功能。
11樓：天天過節
用到三個控制元件：文字框（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
12樓：弒神者是我
事先要在秒錶**調 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
13樓：匿名使用者
設定倒計時 開始時間t
for ，step -1
顯示 t-1s
next
第3秒第3秒內第3秒末前3秒第3秒初3秒內前3秒
第3秒是瞬時的,來 是第2秒末,也是源第3 秒初 第3秒內是時間段,是第3秒初到第3秒末,共經歷1秒 第3秒末是瞬時的,也是第4秒初 前3秒是時間段,從開始到第3秒末,共經歷3秒 第3秒初是瞬時的 3秒內,是可以不從0開始算的3秒 時間段 前3秒內應該和前3秒一樣吧。第3秒是指3秒初 或2秒末 到3...
怎麼才能在10秒內哭出來，怎麼才能在10秒之內哭出來？
極端的 辣椒油噴眼，一般秒哭，還不帶停。一般的 擠橙子皮噴眼，也是秒哭，但哭一會就停的下來。溫柔的 營造乙個唯美的環境，慢慢想一些傷心的感人的人或事，不是秒哭，但隨時可以停下來。以上三種也可以稱作 二筆的，普通的，文藝的 用洋蔥是比較快的，要不盯著刺眼的燈不要眨眼，這個比較慢 付費內容限時免費檢視 ...
做勻加速運動的火車，在40秒內速度從10m s增加到20m
火車 20 10 40 0.25m s2 汽車 條件不足吧.加速度的所有計算公式 勻速直線運動 1 平均速度 v平 s t 定義式 有用推論vt 2 vo 2 2as 2 中間時刻速度 vt 2 v平 vt vo 23 末速度 vt vo at 4 位移 s v平t vot at 2 2 vt 2t...