vb.net小车过红绿灯 vb红绿灯编程

求VB红绿灯编程

代码：

成都创新互联公司坚信：善待客户，将会成为终身客户。我们能坚持多年，是因为我们一直可值得信赖。我们从不忽悠初访客户，我们用心做好本职工作，不忘初心，方得始终。10余年网站建设经验成都创新互联公司是成都老牌网站营销服务商,为您提供做网站、成都网站建设、网站设计、成都h5网站建设、网站制作、品牌网站设计、小程序开发服务,给众多知名企业提供过好品质的建站服务。

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

这个是具体的代码，其中我设置的是label1的背景颜色来表示你需要改变颜色的地方，加入你有其他需要的，可以把那句话修改一下就可以。

需要在窗体上面画上一个标签（名称是label1），一个名称是text1的文本框，一个时钟控件，一个按钮控件，当然，可以不写在按钮控件的click上面，写在窗体的click时间也可以。

以下是图片：

至于运行期间的是

其他的两幅图片就不一一解释了，又不懂可以找我

望采纳，谢谢

用VB.NET编写红绿灯程序

给你思路把：当汽车运动时，他的left和top和right(left+width)和bottom(top+height)碰到红绿灯的范围，就停止汽车运动的那个计时器，并将另一个计时器的时间设为延时秒数并开启，里面的代码是打开骑车运动的计时器。

用VB.net模拟十字路口红绿灯交通信号的切换

实在不难，就是不知道你写了代码没有？

答案补充：

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程序红绿灯设计

1、  在桌面上，鼠标左键双击，打开VB编程软件，在左边工具栏上单击Image按钮，在Form1窗口上，绘制出图框，然后在Image属性面板的Picture属性上，单击【加载图片】按钮。

2、 接着，在弹出选取图片对话框，选择合适的红绿灯素材来体现效果，这里先选取了一张红灯的图片。

3、在Image属性面板的名称属性上，将其改名为red，标识后就不会与其他图混淆。

4、在VB编程的界面中也可以直接复制控件，如将red这个Image控件复制两个出来，不加入控件组，并将后两个依次改名为yellow、green。

5、 然后，将yellow图形控件与red控件重叠，并右键单击，在弹出的菜单中选择【移至底层】，放好后，green 图形控件放在最底层。三个图形控件依红、黄、绿的顺序叠加重合了。

6、接着，鼠标左键双击red图形控件，弹出输入代码窗口，在其上输入如下代码段。