vb.net小車過(guò)紅綠燈 vb紅綠燈編程
求VB紅綠燈編程
代碼：
成都創(chuàng)新互聯(lián)公司堅(jiān)信：善待客戶，將會(huì)成為終身客戶。我們能堅(jiān)持多年，是因?yàn)槲覀円恢笨芍档眯刨?。我們從不忽悠初訪客戶，我們用心做好本職工作，不忘初心，方得始終。10余年網(wǎng)站建設(shè)經(jīng)驗(yàn)成都創(chuàng)新互聯(lián)公司是成都老牌網(wǎng)站營(yíng)銷服務(wù)商,為您提供做網(wǎng)站、成都網(wǎng)站建設(shè)、網(wǎng)站設(shè)計(jì)、成都h5網(wǎng)站建設(shè)、網(wǎng)站制作、品牌網(wǎng)站設(shè)計(jì)、小程序開發(fā)服務(wù),給眾多知名企業(yè)提供過(guò)好品質(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的背景顏色來(lái)表示你需要改變顏色的地方，加入你有其他需要的，可以把那句話修改一下就可以。
需要在窗體上面畫上一個(gè)標(biāo)簽（名稱是label1），一個(gè)名稱是text1的文本框，一個(gè)時(shí)鐘控件，一個(gè)按鈕控件，當(dāng)然，可以不寫在按鈕控件的click上面，寫在窗體的click時(shí)間也可以。
以下是圖片：
至于運(yùn)行期間的是
其他的兩幅圖片就不一一解釋了，又不懂可以找我
望采納，謝謝
用VB.NET編寫紅綠燈程序
給你思路把：當(dāng)汽車運(yùn)動(dòng)時(shí)，他的left和top和right(left+width)和bottom(top+height)碰到紅綠燈的范圍，就停止汽車運(yùn)動(dòng)的那個(gè)計(jì)時(shí)器，并將另一個(gè)計(jì)時(shí)器的時(shí)間設(shè)為延時(shí)秒數(shù)并開啟，里面的代碼是打開騎車運(yùn)動(dòng)的計(jì)時(shí)器。
用VB.net模擬十字路口紅綠燈交通信號(hào)的切換
實(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、?接著，在彈出選取圖片對(duì)話框，選擇合適的紅綠燈素材來(lái)體現(xiàn)效果，這里先選取了一張紅燈的圖片。
3、在Image屬性面板的名稱屬性上，將其改名為red，標(biāo)識(shí)后就不會(huì)與其他圖混淆。
4、在VB編程的界面中也可以直接復(fù)制控件，如將red這個(gè)Image控件復(fù)制兩個(gè)出來(lái)，不加入控件組，并將后兩個(gè)依次改名為yellow、green。
5、?然后，將yellow圖形控件與red控件重疊，并右鍵單擊，在彈出的菜單中選擇【移至底層】，放好后，green 圖形控件放在最底層。三個(gè)圖形控件依紅、黃、綠的順序疊加重合了。
6、接著，鼠標(biāo)左鍵雙擊red圖形控件，彈出輸入代碼窗口，在其上輸入如下代碼段。
本文題目：vb.net小車過(guò)紅綠燈 vb紅綠燈編程
文章地址：http://m.jiaotiyi.com/article/hhgjjg.html