[VB.NET]交通灯
交通灯
实例说明 在本实例中,我们将制作一个具有交通灯效果的应用程序。程序运行后,交通灯不断地变化,可以通过按钮运行或停止程序。程序运行结果如图88-1所示。 技术要点 l 不断变换图片 l 不断更改时间间隔 实现过程 ■ 新建项目 打开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 ■ 运行程序 单击菜单"调试|启动"或单击 图标运行程序。 小结 本实例主要是通过不断地变化图片来实现交通灯的效果。 (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |