1樓：匿名使用者
單燈轉換（紅黃綠一個燈）：
dim t as integer
t = val(text1.text) + 1end if
t = val(text2.text) + 1end if
t = t - 1
if t = 0 then
case &hffff&
end if
text3.text = t
end sub
控制元件：一個shape，顏色設定為綠色（紅黃都行），填充樣式為0-solid，三個text，一個timer，interval設定為1000。text1記錄紅燈時間，text2記錄綠燈時間，text3顯示剩餘時間。
三等轉換如果需要，我繼續幫忙。
2樓：鄧子潼
你是怎麼變那個顏色？綠色變什麼顏色？和倒計時是一分鐘裡還是一分鐘外？
怎麼用vb做紅綠燈倒計時器
3樓：匿名使用者
vb可用timer計時器控制元件和，label控制元件和shape控制元件組合實現紅綠燈倒計時器。
timer 控制元件，通過引發 timer 事件，timer 控制元件可以有規律地隔一段時間執行一次**。
label 控制元件是圖形控制元件，可以顯示使用者不能直接改變的文字。
shape 控制元件是圖形控制元件，顯示矩形、正方形、橢圓、圓形、圓角矩形或者圓角正方形。
將label控制元件和shape控制元件疊放在一起，用下列**：
option explicit
dim i as long
private sub form_load()timer1.interval = 1000shape1.fillcolor = vbredi = 10
label1.borderstyle = 0label1.fontsize = 18
label1.caption = ""
end sub
private sub timer1_timer()i = i - 1
label1.caption = i
if i = 0 then
shape1.fillcolor = vbgreenlabel1.caption = ""
timer1.enabled = falseend if
end sub
真實的紅綠燈還需對程式的設計和**進行完整修改。
4樓：蓋瑞的詩和遠方
1.拖一個timer控制元件,將其時間間隔設為1000,2.拖一個lable1,將其caption設為103.雙擊timerr控制元件,在其事件中寫入**:
label1.caption=val(label1)-1細節你調一下
求解vb一道題！編寫程式摸擬交通訊號燈 （急！急！急！）
5樓：匿名使用者
用2個時鐘控制元件，和2個滾動條就可以啦！
6樓：匿名使用者
這個的確 很簡單，兩個定時器，兩個形狀控制元件就完成了
你應該自己試一下
vb中利用時鐘控制元件進行字幕移動的**
7樓：匿名使用者
private sub form_load()timer1.interval = 100end sub
end sub
private sub timer1_timer()if label1.left > 6000 then label1.left = 1
label1.left = label1.left + 100end sub
vb中設定一個數字時鐘介面，每改變一秒就更新一次，求程式。
8樓：網海1書生
private sub form_load()me.caption = "數字時鐘"
timer1.interval = 1000timer1.enabled = trueend sub
private sub timer1_timer()label1.caption = format(now, "yyyy年m月d日")
label2.caption = format(now, "hh時nn分ss秒")
end sub
9樓：匿名使用者
非常簡單，但你的圖呢？
vb中如何用時鐘控制元件控制一個程式在一段時間後開始和結束
怎麼使用vb來編寫一個時鐘？
10樓：宇桐非吧外交
數字時鐘還是指標時鐘？數字的就簡單得很~
11樓：無名者
最簡單的時鐘：
在窗體處新增一個picturebox,一個計時器private sub timer1_timer()picture1.cls
picture1.print "" & timeend sub
怎樣在vb中利用winsock控制元件，tcp協議實現多客戶端連
vb的winsock控制元件，不好用，浪費了很多時間。往往是斷了後再連就連不上。所以後來改了一個思路 用c做多執行緒的socket，然後做成dll，供vb呼叫api 如何使用vb winsock控制元件？關於vb6.0使用winsock控制元件通過tcp連線向儀器實時傳送命令 您好，listen l...
vb動態控制元件陣列
最基本的方法就是這樣，根據需要寫成迴圈也行load command1 1 command1 1 left 200command1 1 top 1000command1 1 visible trueload command1 2 command1 2 left 1800command1 2 top 1...
vb的tet控制元件怎麼換行，VB的TEXT控制元件怎麼換行
除設定文字框屬性multiline為true外,如下 private sub form load text1 123 vbnewline 456 end sub 1，先在窗體新增 text1控制元件 2，設定 text1.multiline true3，在text1控制元件顯示中，新增換行資訊，如 ...