vb程式紅綠燈設計
1樓：刺友互
1、 在桌面上，滑鼠左鍵雙擊，開啟vb程式設計軟體，在左邊工具欄上單擊image按鈕，在form1視窗上，繪製出圖框，然後在image屬性面板的picture屬性上，單擊【載入**】按鈕。
2、 接著，在彈出選取**對話方塊，選擇合適的紅綠燈素材來體現效果，這裡先選取了一張紅燈的**。
3、在image屬性面板的名稱屬性上，將其改名為red，標識後就不會與其他圖混淆。
4、在vb程式設計的介面中也可以直接複製控制項，如將red這個image控制項複製兩個出來，不加入控制項組，並將後兩個依次改名為yellow、green。
5、 然後，將yellow圖形控制項與red控制項重疊，並右鍵單擊，在彈出的選單中選擇【移至底層】，放好後，green 圖形控制項放在最底層。三個圖形控制項依紅、黃、綠的順序疊加重合了。
6、接著，滑鼠左鍵雙擊red圖形控制項，彈出輸入**視窗，在其上輸入如下**段。
2樓：匿名使用者
dim a, b, c as integer '事先把三個timer控制項的interval設為1000,enabled屬性設為false ,並且文字框只能輸入整數。
private sub command1_click() '開始按鈕。
timer1 = true
truefalse
falsea =b =
c =end sub
private sub command2_click() '結束按鈕。
falsefalse
falsefalse
falsefalse
end sub
private sub timer1_timer()= - 1
if = 0 then
b= b true
falsetrue false
end if
end sub
private sub timer2_timer()= - 1
if = 0 then
c= c true
falsefalse
trueend if
end sub
private sub timer3_timer()= - 1
if = 0 then
a= a true
falsetrue false
end if
end sub
急求用vb程式設計紅綠燈
3樓：網友
這個邏輯上有問題吧？
乙個十字路口，乙個方向上綠燈另一方向必為紅燈；即乙個方向上綠燈90秒，那麼另一方向紅燈就要90秒，現在你這樣不要出車禍的啊？
vb 製作紅綠燈的問題 怎麼做?
4樓：不v個
給你**。
private sub command1_click()= "紅燈"
紅燈表示一律車輛停止"
vbredend sub
private sub command2_click()= "黃燈"
黃燈表示一律車輛準備停止"
vbyellow
end sub
private sub command3_click()= "綠燈"
綠燈表示一律車輛前進"
vbgreen
end sub
用vb製作紅綠燈** 急急急急
5樓：
不知道同學要幹嘛？把微控制器的東西發到這邊來了？
6樓：惡少老七
起碼說清楚紅綠燈的功能吧同學。。
誰會用vb程式設計一紅綠燈
7樓：不懂就問不怕問
不知道是不是你要的答案：
新建窗體，新增乙個時間控制項，乙個label控制項private sub form_load()= ""
end sub
private sub timer1_timer()static s
s = s + 1
t = slabel1 = t & "秒"
if t >= 10 then
s = 0end if
if t <= 3 then
label1 = t & "秒" & "綠燈行"
end if
if t > 3 then
label1 = t & "秒" & "注意"
end if
if t > 5 then
label1 = t & "秒" & "紅綠燈"
end if
if t >= 9 then
label1 = t & "秒" & "注意"
end if
end sub
8樓：青松踏雪
private sub command1_click() '開始按鈕= true
timer1_timer
end sub
private sub timer1_timer() '計時開始static s
s = s + 1
if s <= 3 then
vbgreen
else &h8000000f
end if
if s > 3 and s <= 5 then= vbyellow
else &h8000000f
end if
if s > 5 and s <= 8 then= vbred
else &h8000000f
end if
if s > 8 and s <= 10 then= vbyellow
elseif s > 5 and s < 8 then= &h8000000f
end if
if s = 11 then
s = 0end if
s & "秒" '顯示當前秒數。
end sub
label1 2 3 分別表示紅黃綠。
用vb設計乙個能顯示紅綠燈倒計時的程式
9樓：匿名使用者
弄個timer控制項，每秒減一，當=0時，秒數回到10，並且紅綠燈換顏色，
10樓：匿名使用者
你把紅綠燈的**發我，在發下效果圖，我幫你做。
我用vb程式設計交通紅綠燈為什麼只顯示紅燈，請高手指點
11樓：網友
其實你的問題lighttime在於變數為區域性變數，每一次計時器執行timer過程，都會重新生成lighttime，並且預設賦值為1，所以，永遠是紅燈。
只要把dim lighttime as integer這句話，移動到所有**的最上面，變為全域性變數，就可以了。
修改如下。dim lighttime as integer '<--這裡定義全域性變數。
private sub form_load()
end sub
private sub timer1_timer()
dim n as integer '<--這裡定義n，因為n只是用於計算除以52的餘數，所以用區域性變數。
lighttime = lighttime + 1
n = lighttime mod 52
if n <= 25 then
vbredelseif n > 25 and lighttime <= 27 then
vbyellow
elseif n > 27 then
= vbgreen
end if
end sub
怎麼用vb做紅綠燈倒計時器
12樓：網友
vb可用timer計時器控制項和，label控制項和shape控制項組合實現紅綠燈倒計時器。
timer 控制項，通過引發 timer 事件，timer 控制項可以有規律地隔一段時間執行一次**。
label 控制項是圖形控制項，可以顯示使用者不能直接改變的文字。
shape 控制項是圖形控制項，顯示矩形、正方形、橢圓、圓形、圓角矩形或者圓角正方形。
將label控制項和shape控制項疊放在一起，用下列**：
option explicit
dim i as long
private sub form_load()= 1000
vbredi = 10
end sub
private sub timer1_timer()i = i - 1
iif i = 0 then
vbgreen
falseend if
end sub
真實的紅綠燈還需對程式的設計和**進行完整修改。
13樓：蓋瑞的詩和遠方
1.拖乙個timer控制項，將其時間間隔設為1000,2.拖乙個lable1,將其caption設為103.雙擊timerr控制項，在其事件中寫入**：
細節你調一下。
新版紅綠燈為什麼這麼設計？解決了什麼現有問題？
等相關新聞上，我們大家可以看到的是啊，新版紅綠燈的它的乙個設計的一跡羨個理念是為了能夠讓我們的乙個交通更加的乙個安全，這種情況下來說的話是有的一定考慮存在了啊，他解決了一系列的乙個。安全問題，但是在這樣的乙個安全問題的乙個情況下來說的話，他有些複雜化，所以說啊這是新版紅綠燈的乙個最大的乙個錯誤。首先...
新版紅綠燈設計者直播引發爭議！你認為新版紅綠燈設計的合理嗎？
新版紅綠燈的設計以及應用讓很多車主憤憤不行，在看到新版紅綠燈的時候，覺得其設計非常不好很容易導致闖紅燈，甚至車禍的出現，這樣的做法無疑增添了馬路上的安全隱患，也增加了交通擁擠的風險性，所以這樣的設計不應該普及開來，而原版的紅綠燈雖然看起來沒有高大上的感覺，但是卻也非常的實用，在行走的時候能夠根據紅綠...
用VB設計程式時出現子程式或函式未定義是什麼原因
這樣子改 private type student sno as string 7 sname as string 9 grade as integer end type option base 1 dim i as integer,j as integer dim stu 10 as studen...