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
怎樣在 1 秒內啟動 ，怎樣在 1 秒內啟動 Linux
資料中心級別的硬體可以，主要是需要乙個超強的pcie介面的固態硬碟，和乙個足夠強大的cpu，還要乙個夠大的記憶體。這樣就可以瞬間啟動linux，不過受限於linux啟動流程，再快也不可能一秒完成，除非自定製linux系統。另外乙個比較取巧的方法是不徹底關機，只讓linux休眠，使用的時候按一下電源鍵...
三秒內第三秒內第三秒末前三秒最後一秒中那些指的是時
三秒內 前三秒 1 3s 第三秒內 2 3s 最後一秒 最後一秒初 最後一秒末 是 時間 第三秒末 時刻 有初 末的都是時刻 還有不懂得直接追問 你可以把秒換成天就好理解了。三天內當然是時間了,同理可知 三秒內 第三秒內 第三秒末 前三秒 最後一秒 中 時間有 三秒內 第三秒內 前三秒 最後一秒 時...
怎樣在10秒內秒殺曹操
單人的話恐怕做不到，要和人搭配，我只知道普通諸葛亮是必要的，另外乙個人是假孫權，要不是血趙雲，其他的還沒試過。用血趙雲的話要看配合 運氣了 還是老方法，諸葛亮用八陣圖先公升起來，孫權用28b 應該是這招吧 霸王朝中震，加諸葛亮用236a 看配合，諸葛亮打得好的話能打出7 8次，也就是孫權的霸王朝中震...