用VB.NET編寫一個交通燈的程序

下面這個希望可以幫到你~交通燈

成都創(chuàng)新互聯(lián)公司是一家網(wǎng)站設(shè)計公司，集創(chuàng)意、互聯(lián)網(wǎng)應(yīng)用、軟件技術(shù)為一體的創(chuàng)意網(wǎng)站建設(shè)服務(wù)商，主營產(chǎn)品：成都響應(yīng)式網(wǎng)站建設(shè)、成都品牌網(wǎng)站建設(shè)、營銷型網(wǎng)站。我們專注企業(yè)品牌在網(wǎng)站中的整體樹立，網(wǎng)絡(luò)互動的體驗，以及在手機等移動端的優(yōu)質(zhì)呈現(xiàn)。成都網(wǎng)站建設(shè)、網(wǎng)站設(shè)計、移動互聯(lián)產(chǎn)品、網(wǎng)絡(luò)運營、VI設(shè)計、云產(chǎn)品.運維為核心業(yè)務(wù)。為用戶提供一站式解決方案，我們深知市場的競爭激烈，認真對待每位客戶，為客戶提供賞析悅目的作品，網(wǎng)站的價值服務(wù)。

實例說明在本實例中，我們將制作一個具有交通燈效果的應(yīng)用程序。程序運行后，交通燈不斷地變化，可以通過按鈕運行或停止程序。程序運行結(jié)果如圖88-1所示。技術(shù)要點l 不斷變換圖片l 不斷更改時間間隔 type="text/javascript" type="text/javascript" src=" "

實現(xiàn)過程■ 新建項目打開Visual Studio.NET，選擇"新建項目"，在項目類型窗口中選擇"Visual Basic項目"，在模板窗口中選擇"Windows應(yīng)用程序"，在名稱域中輸入"Traffic"，然后選擇保存路徑。單擊"確認"?！?添加控件向當(dāng)前窗體添加一個Timer控件，用于控制交通燈變換的時間；三個Picture控件，分別裝入相應(yīng)的圖片；一個Button按鈕，用于控制交通燈。屬性保持默認值?！?添加代碼Dim vv As BooleanDim updirec As BooleanPrivate Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Clickvv = Timer1.Enabledvv = Not vvTimer1.Enabled = vvIf vv ThenCommand1.Text = "開 始"ElseCommand1.Text = "停 止"End IfEnd SubPrivate Sub Timer1_Tick(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Timer1.TickStatic i As ShortSelect Case iCase 0Timer1.Interval = 3000picicon0.Visible = Truepicicon1.Visible = Falsepicicon2.Visible = Falsei = i + 1updirec = FalseCase 1Timer1.Interval = 1000picicon0.Visible = Falsepicicon1.Visible = Truepicicon2.Visible = False'Me.Icon = picicon(i).ImageIf updirec Theni = i - 1Elsei = i + 1End IfCase 2Timer1.Interval = 3000picicon0.Visible = Falsepicicon1.Visible = Falsepicicon2.Visible = Truei = i - 1updirec = TrueEnd SelectEnd Sub■ 運行程序單擊菜單"調(diào)試|啟動"或單擊 圖標(biāo)運行程序。

怎么用VB做三色交通燈..要求黃燈亮4秒..紅燈亮8秒..綠燈亮10秒

添加三PictureBox控件

A的name:yellow

B:red

C:green

先聲明sleep和doevents語句,API查詢的到,具體怎么聲明我忘記了,.NET下是這樣的: System.Threading.Thread.Sleep()和 System.Windows.Forms.Application.DoEvents()

假設(shè)聲明過了sleep和Doevents,然后:

public IfStop as boolen=false

Function XunHuan(yellowTime as integer,redTime as integer,greenTime as integer)as boolen

On error Goto k

IfStop=true

While IfStop

yellow.backcolor=黃色

red.backcolor=透明

green.backcolor=透明

sleep(yellowTime)

doevents()

yellow.backcolor=透明

red.backcolor=紅色

green.backcolor=透明

sleep(redTime)

doevents()

yellow.backcolor=透明

red.backcolor=透明

green.backcolor=綠色

sleep(greenTime)

doevents()

End While

k:

Return false

end function

加一個Button,在CLICK事件里這樣寫:

Sub Button_Click

dim x as boolen=XunHuan(4000,8000,10000)

if x=false then

msgbox "出錯了!"

yellow.backcolor=透明

red.backcolor=透明

green.backcolor=透明

exit sub

end if

End Sub

如需要停只需要將IfStop=True可以了,其他細致方面自己修改,我這沒裝VB所以沒測試過.

用VB.NET編寫紅綠燈程序

給你思路把：當(dāng)汽車運動時，他的left和top和right(left+width)和bottom(top+height)碰到紅綠燈的范圍，就停止汽車運動的那個計時器，并將另一個計時器的時間設(shè)為延時秒數(shù)并開啟，里面的代碼是打開騎車運動的計時器。

分享標(biāo)題：vb.net繪制綠燈,vb紅綠燈編程代碼
轉(zhuǎn)載源于：http://m.rwnh.cn/article34/phpope.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供動態(tài)網(wǎng)站、網(wǎng)站維護、網(wǎng)站改版、網(wǎng)站收錄、網(wǎng)站排名、網(wǎng)站策劃

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)