189 8069 5689
下面这个希望可以帮到你~交通灯
成都创新互联公司是一家网站设计公司，集创意、互联网应用、软件技术为一体的创意网站建设服务商，主营产品：成都响应式网站建设、成都品牌网站建设、营销型网站。我们专注企业品牌在网站中的整体树立，网络互动的体验，以及在手机等移动端的优质呈现。成都网站建设、网站设计、移动互联产品、网络运营、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■ 运行程序单击菜单"调试|启动"或单击 图标运行程序。
添加三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所以没测试过.
给你思路把：当汽车运动时，他的left和top和right(left+width)和bottom(top+height)碰到红绿灯的范围，就停止汽车运动的那个计时器，并将另一个计时器的时间设为延时秒数并开启，里面的代码是打开骑车运动的计时器。