vb.net红绿灯代码 vbs整人代码

用VB编个红绿灯的程序，要求红灯停留5秒在跳黄灯，黄灯停留三秒跳绿灯，绿灯停留五秒再跳红灯，无限循环

贴三张照片，红黄绿灯各一张

创新互联公司是一家专注于网站制作、成都网站制作与策划设计,边坝网站建设哪家好?创新互联公司做网站,专注于网站建设十年,网设计领域的专业建站公司;建站业务涵盖:边坝等地区。边坝做网站价格咨询:18982081108

红image1(0)

黄image2(1)

绿image3(2)

Private Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long) '声明

Private Sub Form_activate()

image1(0).visible=true

image1(1).visible=false

image1(2).visible=false

i=1

doevents

sleep (5)

do while true

if i2 then i=i-3

image1(i-1).visible=not image1(i-1).visible

image1(i).visible=not image1(i).visible

doevents

sleep(5)

i=i+1

loop

end sub

用VB.NET编写红绿灯程序

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

vb.net怎么实现单击数字区域的按钮使按钮变红色，单击运算符按钮变蓝色同时数字区按钮还原？紧急在线等…

您好，这种方法可以通过按钮的MouseDown和MouseUp事件来实现，比如说，当单击按钮RedColor（RedColor为这个按钮的Name属性的属性值）的时候，要使按钮的颜色变成红色，这可以在代码视图中的控件选择下拉列表中选择RedColor这个控件，然后在右边的事件下拉列表中选择MouseDown事件（当按下鼠标时发生），这时，Visual Studio会自动生成如下代码：

Private Sub RedColor_MouseDown(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles RedColor.MouseDown

End Sub

接下来就在当前生成的代码中写入如下代码：

RedColor.BackColor = Color.FromArgb(255, 0, 0)

这句代码的作用是利用Color下的FromArgb方法来设置RGB颜色参数，在RGB颜色系统中，R代表红色，G代表绿色，B代表蓝色，根据这三种颜色的不同程度的调和，就会得到不同的颜色，如果您要得到深色的天蓝色，则可以设置FromArgb(0, 191, 255)，这个颜色转换为HTML中的RGB颜色就是#00BFFF。

当然颜色还原最好是写在MouseUp事件里面，这样就不必在单击其他按钮时来还原上一次按下的按钮的颜色，在这里，为了方便描述，我们假设按钮的默认颜色为白色，也就是FromArgb方法设置为FromArgb(255, 255, 255)的时候，所标示的颜色就是白色

所以选择了RedColor按钮的MouseUp事件后，Visual Studio会自动生成下列代码：

Private Sub RedColor_MouseUp(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles RedColor.MouseUp

End Sub

MouseUp的含义是当鼠标弹起时发生，所以在这个事件就可以设置按钮颜色的还原，即添加下列代码来实现：

RedColor.BackColor = Color.FromArgb(255, 255, 255)

当然，这就编写好了一个按钮按下时变色，回弹时还原的功能，至于另外一个按钮的功能，这与这个按钮的功能一样，只是代码有一些细微的差别而已，假设这个按钮的Name属性的属性值为BlueColor，相应的代码对应如下：

Private Sub BlueColor_MouseDown(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles BlueColor.MouseDown

BlueColor.BackColor = Color.FromArgb(0, 0, 255) '蓝色的FromArgb

End Sub

Private Sub BlueColor_MouseDown(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles BlueColor.MouseDown

BlueColor.BackColor = Color.FromArgb(255, 255, 255)

End Sub

另外，为了避免代码的冗余，可以将RedColor和BlueColor的MouseUp事件进行合并，这合并后的代码如下：

Private Sub BlueColor_MouseDown(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles BlueColor.MouseDown, RedColor.MouseUp

BlueColor.BackColor = Color.FromArgb(255, 255, 255)

RedColor.BackColor = Color.FromArgb(255, 255, 255)

End Sub

当然，这个你只要分析了控件事件代码的基本结构，一切就一目了然了，控件事件代码的基本结构如下：

[作用域] Sub 事件名([参数列表]) Handles 控件事件1 [, 控件事件2, 控件事件3...]

[事件代码区域]

End Sub

如果此回答对您有帮助，别忘了采纳哦，如果没有解决您的问题，您可以在互联网上寻找更多关于此问题的解决方案，谢谢！

VB红绿灯代码

Private Sub Form_Load()

Timer1.Interval = 30000

End Sub

Private Sub Timer1_Timer()

Static a As Integer

a = a + 1

If a = 1 Then

Shape1.FillColor = vbRed

ElseIf a = 2 Then

Shape1.FillColor = vbYellow

ElseIf a = 3 Then

Shape1.FillColor = vbGreen

ElseIf a = 4 Then

Shape1.FillColor = vbYellow

ElseIf a 4 Or a = 1 Then

a = a - 4

Shape1.FillColor = vbRed

End If

End Sub

用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