求VB紅綠燈編程

代碼：

成都創(chuàng)新互聯(lián)公司堅(jiān)信：善待客戶，將會成為終身客戶。我們能堅(jiān)持多年，是因?yàn)槲覀円恢笨芍档眯刨?。我們從不忽悠初訪客戶，我們用心做好本職工作，不忘初心，方得始終。10余年網(wǎng)站建設(shè)經(jīng)驗(yàn)成都創(chuàng)新互聯(lián)公司是成都老牌網(wǎng)站營銷服務(wù)商,為您提供做網(wǎng)站、成都網(wǎng)站建設(shè)、網(wǎng)站設(shè)計(jì)、成都h5網(wǎng)站建設(shè)、網(wǎng)站制作、品牌網(wǎng)站設(shè)計(jì)、小程序開發(fā)服務(wù),給眾多知名企業(yè)提供過好品質(zhì)的建站服務(wù)。

Dim k As Integer

Private Sub Command1_Click()

Dim a As Integer

a = Val(Text1.Text) * 1000

Timer1.Interval = a

k = 0

End Sub

Private Sub Timer1_Timer()

If k = 0 Then

Label1.BackColor = RGB(255, 0, 0)

k = 1

ElseIf k = 1 Then

Label1.BackColor = RGB(0, 255, 0)

k = 2

ElseIf k = 2 Then

Label1.BackColor = RGB(0, 0, 255)

k = 0

End If

End Sub

這個(gè)是具體的代碼，其中我設(shè)置的是label1的背景顏色來表示你需要改變顏色的地方，加入你有其他需要的，可以把那句話修改一下就可以。

需要在窗體上面畫上一個(gè)標(biāo)簽（名稱是label1），一個(gè)名稱是text1的文本框，一個(gè)時(shí)鐘控件，一個(gè)按鈕控件，當(dāng)然，可以不寫在按鈕控件的click上面，寫在窗體的click時(shí)間也可以。

以下是圖片：

至于運(yùn)行期間的是

其他的兩幅圖片就不一一解釋了，又不懂可以找我

望采納，謝謝

用VB.NET編寫紅綠燈程序

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

用VB.net模擬十字路口紅綠燈交通信號的切換

實(shí)在不難，就是不知道你寫了代碼沒有？

答案補(bǔ)充：

Dim xuhao As Integer

Const wenjianjia = "" '自己寫好了

Private Sub Command1_Click()

Timer1.Enabled = True

End Sub

Private Sub Command2_Click()

Timer1.Enabled = False

End Sub

Private Sub Timer1_Timer()

xuhao = xuhao + 1

If xuhao = 4 Then xuhao = 1

Picture1.Picture = LoadPicture(wenjianjia "\" xuhao ".ico")

End Sub

VB程序紅綠燈設(shè)計(jì)

1、? 在桌面上，鼠標(biāo)左鍵雙擊，打開VB編程軟件，在左邊工具欄上單擊Image按鈕，在Form1窗口上，繪制出圖框，然后在Image屬性面板的Picture屬性上，單擊【加載圖片】按鈕。

2、?接著，在彈出選取圖片對話框，選擇合適的紅綠燈素材來體現(xiàn)效果，這里先選取了一張紅燈的圖片。

3、在Image屬性面板的名稱屬性上，將其改名為red，標(biāo)識后就不會與其他圖混淆。

4、在VB編程的界面中也可以直接復(fù)制控件，如將red這個(gè)Image控件復(fù)制兩個(gè)出來，不加入控件組，并將后兩個(gè)依次改名為yellow、green。

5、?然后，將yellow圖形控件與red控件重疊，并右鍵單擊，在彈出的菜單中選擇【移至底層】，放好后，green 圖形控件放在最底層。三個(gè)圖形控件依紅、黃、綠的順序疊加重合了。

6、接著，鼠標(biāo)左鍵雙擊red圖形控件，彈出輸入代碼窗口，在其上輸入如下代碼段。

網(wǎng)站標(biāo)題：vb.net小車過紅綠燈 vb紅綠燈編程
文章路徑：http://www.rwnh.cn/article26/hhgjjg.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供服務(wù)器托管、營銷型網(wǎng)站建設(shè)、搜索引擎優(yōu)化、靜態(tài)網(wǎng)站、做網(wǎng)站、微信小程序

廣告

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