计算机二级vb实例编程红绿灯控制程序

计算机二级VB实例编程红绿灯控制程序

实验要求

（1）掌握有关Shape形状控件的使用；

（2）进一步掌握定时器控件(Timer)的使用方法。

实验内容

用Visual Basic制作一个红绿灯程序，程序界面如图8-1、图8-2、图8-3所示。

?

图8-1 运行界面效果1???????????????????????? ???????? 图8-2?运行界面效果2

一、程序说明

程序的用户界面如图8-4所示，当用户在图8-1的控制台上选择“自动”时，红、黄、绿三灯将按一定的时间依次亮，如图8-2所示，并有时间显示；当选择“手动”后，红灯、黄灯、绿灯这3个按钮可用，点哪个按钮，相应灯亮，如图8-1所示。

?

图8-3?设计界面图1??????????????????????????????????????????????? 图8-4设计界面图2

二、技术分析

Shape形状控件通过设置其Shape属性值，主要用于方便显示矩形、正方形、椭圆、圆形、圆角矩形或者圆角正方形几何图形。

本程序利用形状控件设置两组红黄绿灯，一组颜色较暗，一组颜色较亮，利用对象的Visible可见属性和Timer控件的Timer属性实现对红黄绿三灯变换的控制。

三、创建用户界面

如图8-4所示，其中，三个比较亮的红色、黄色和绿色圆，分别是名称为Shape2、Shape3和Shape4的图形控件；三个比较暗的红色、黄色和绿色圆，分别是名称为Shape6、Shape7、Shape8的图形控件，这6个图形控件对应互相重合，Shape2、Shape3和Shape4在上面，Shape6、Shape7、Shape8在下面。所有控件及其属性设置情况如下表所示。

表?实验八对象及其属性

四、编写程序代码

Dim s As Integer

Dim n As Integer

'单击“红灯”按钮

Private Sub Command1_Click() = True : = False : = False End Sub

'单击“黄灯”按钮

Private Sub Command2_Click() = False : = True : = False End Sub

'单击“绿灯”按钮

Private Sub Command3_Click() = False : = False : = True End Sub

'单击“自动”按钮

Private Sub Command4_Click() = True

= False

= False

= False

n = 0 : s = 0

End Sub

'单击“手动”按钮

Private Sub Command5_Click() = False

= ""

= False

= False

= False

= True

= True

= True

End Sub

'时钟控件启动

Private Sub Timer1_Timer() Select Case n

Case 0

= True

= False

= False

= 3 - s

s = s + 1

If s > 3 Then

n = 1

s = 0

End If

Case 1

= False

= True

= False

n = 2

Case 2

= False

= False

= True

= 3 - s

s = s + 1

If s > 3 Then

n = 0 : s = 0

End If

End Select

End Sub

五、保存并运行程序

执行【文件】→【保存工程】命令，打开“文件另存为”对话框，按提示分别保存窗体文件及工程文件；然后，执行【运行】→【启动】命令（或直接按F5键），运行程序检测运行结果是否符合题意。

例如，单击“手动”按钮后，再单击“红灯”按钮，则窗体上显示出亮的红灯图形，其他的两个则显示出暗的图形。

六、思考

如果想要改变红绿灯各种灯的变化显示时间，应如何修改程序？