[VB.NET]交通灯

交通灯

实例说明

在本实例中，我们将制作一个具有交通灯效果的应用程序。程序运行后，交通灯不断地变化，可以通过按钮运行或停止程序。程序运行结果如图88-1所示。

技术要点

l 不断变换图片

l 不断更改时间间隔

<script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>

实现过程

■ 新建项目

打开Visual Studio.NET，选择"新建项目"，在项目类型窗口中选择"Visual Basic项目"，在模板窗口中选择"Windows应用程序"，在名称域中输入"Traffic"，然后选择保存路径。单击"确认"。

■ 添加控件

向当前窗体添加一个Timer控件，用于控制交通灯变换的时间；三个Picture控件，分别装入相应的图片；一个Button按钮，用于控制交通灯。属性保持默认值。

■ 添加代码

Dim vv As Boolean

Dim updirec As Boolean

Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click

vv = Timer1.Enabled

vv = Not vv

Timer1.Enabled = vv

If vv Then

Command1.Text = "开 始"

Else

Command1.Text = "停 止"

End If

End Sub

Private Sub Timer1_Tick(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Timer1.Tick

Static i As Short

Select Case i

Case 0

Timer1.Interval = 3000

picicon0.Visible = True

picicon1.Visible = False

picicon2.Visible = False

i = i + 1

updirec = False

Case 1

Timer1.Interval = 1000

picicon0.Visible = False

picicon1.Visible = True

picicon2.Visible = False

'Me.Icon = picicon(i).Image

If updirec Then

i = i - 1

Else

i = i + 1

End If

Case 2

Timer1.Interval = 3000

picicon0.Visible = False

picicon1.Visible = False

picicon2.Visible = True

i = i - 1

updirec = True

End Select

End Sub

■ 运行程序

单击菜单"调试|启动"或单击 图标运行程序。

小结

本实例主要是通过不断地变化图片来实现交通灯的效果。