vb.net绘制绿灯,vb红绿灯编程代码

用VB.NET编写一个交通灯的程序

下面这个希望可以帮到你~交通灯

成都创新互联公司是一家网站设计公司，集创意、互联网应用、软件技术为一体的创意网站建设服务商，主营产品：成都响应式网站建设、成都品牌网站建设、营销型网站。我们专注企业品牌在网站中的整体树立，网络互动的体验，以及在手机等移动端的优质呈现。成都网站建设、网站设计、移动互联产品、网络运营、VI设计、云产品.运维为核心业务。为用户提供一站式解决方案，我们深知市场的竞争激烈，认真对待每位客户，为客户提供赏析悦目的作品，网站的价值服务。

实例说明在本实例中，我们将制作一个具有交通灯效果的应用程序。程序运行后，交通灯不断地变化，可以通过按钮运行或停止程序。程序运行结果如图88-1所示。技术要点l 不断变换图片l 不断更改时间间隔 type="text/javascript" type="text/javascript" src=" "

实现过程■ 新建项目打开Visual Studio.NET，选择"新建项目"，在项目类型窗口中选择"Visual Basic项目"，在模板窗口中选择"Windows应用程序"，在名称域中输入"Traffic"，然后选择保存路径。单击"确认"。■ 添加控件向当前窗体添加一个Timer控件，用于控制交通灯变换的时间；三个Picture控件，分别装入相应的图片；一个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■ 运行程序单击菜单"调试|启动"或单击 图标运行程序。

怎么用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()

假设声明过了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编写红绿灯程序

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