1樓：旗語樂正
1，問題：怎麼判斷白天晚上？你手動？還是用感測器？2，你需要的是什麼？這程式跟硬體是要配套的，你有硬體了？3，整個設計，只是乙個方案？
如何用vb設計乙個倒計時的程式
2樓：網友
在窗體上放乙個textbox，乙個label，乙個timer，乙個commandbutton
雙擊窗體，貼上以下**：
private sub command1_click()=
trueend sub
private sub form_load()= false
end sub
private sub timer1_timer()= - 1
if = 0 then
falseend if
end sub
使用時在文字輸入倒計時的秒數，點按鈕開始倒計時。
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
倒計時" & i
if 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的值減去一。
還有"& i & "秒" '輸出i的值，即實現倒計時顯示。
if i <= 0 then '判斷i的值是否為零，即迴圈是否到達60次。
**塊 '是的話執行**塊中的內容，就是你想要實現的功能，如："msgbox 「遊戲結束」"
false '最後關閉timer，不再迴圈。
end if '退出if語句。
end sub
5樓：網友
dim flag as boolean '定義布林型變數，用於判斷倒計時間是否已到。若倒計時到，則停止遊戲。
private sub form_load()= 60
end sub
private sub timer1_timer()= - 1
if = 0 then
遊戲結束"flag = true '此時倒計時時間到，設定flag為true(flag系統預設初值為false),用以作為結束程式標誌。
falseend if
end sub
上面就是倒計時的程式。
你可以執行遊戲的**處進行如下判斷。
if flag =true then
exit sub
else...你的遊戲**。
6樓：蘇州老三石
在窗體中加個timer,然後用如下**。
dim i as integer
private sub form_load()i = 60
end sub
private sub timer1_timer()i = i - 1
print i
if i = 0 then
falsemsgbox ("time over!")end if
end sub
7樓：網友
用timer控制項。很容易實現。
1. 設計乙個簡單的倒計時程式，要求： （1）在文字框中輸入倒計時的分鐘數後，單擊開始按紐就開始倒計時，
8樓：網友
新增乙個text控制項。
新增乙個command控制項。
新增乙個timer控制項。
**：private sub command1_click()= * 60000
trueend sub
private sub form_load()= "開始"
falseend sub
private sub timer1_timer()msgbox "到點了！", ,"倒計時程式"
falseend sub
怎麼做乙個倒計時的小程式
9樓：網友
這邊有教程，需要的話（si）建（liao）議。
求乙個倒計時的程式，倒計時怎麼計算？
需要納入起算的那一天 5月24日 不納入到期的那一天 6月7日 演算法 8天 5月，包含今天 6天 6月，不含7日 14天倒計時 倒計時，從未來的某一時點往現在計算時間，用來表示距離某一期限還有多少時間 多含剩餘時間越來越少，越來越緊迫的意思 意義 倒計時 的意義在 現代漢語詞典 解釋為 從未來的某...
倒計時是什麼意思，倒計時是什麼意思，簡單一點的
倒計時 的意義在 現代漢語詞典 解釋為 倒計時 動 從未來的某一時點往現在計算時間，用來表示距離某一期限還有多少時間 多含有時間越來越少，越來越緊迫的意思 顯示牌 工程已進入 階段。倒計時 這一短語 於1927年德國的幻想故事片 月球少女 在這部影片中，導演弗里茲為了增加藝術效果，扣人心絃，在火箭發...
vb做60秒內迴圈倒計時的程式，VB做乙個60秒內迴圈倒計時的程式
在窗體中畫乙個文字框，text屬性為60，再畫乙個計時器，interval屬性設定為1000 單位為毫秒，1000毫秒等於1秒 enabled屬性為true.按後編寫如下計時器事件 private sub timer1 timer if text1.text 0 thentext1.text 60 ...