bkjhdsbvcdb【DOC精选】.docVIP

实验要求 （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() Shape6.Visible = True : Shape7.Visible = False : Shape8.Visible = False End Sub 单击“黄灯”按钮 Private Sub Command2_Click() Shape6.Visible = False : Shape7.Visible = True : Shape8.Visible = False End Sub 单击“绿灯”按钮 Private Sub Command3_Click() Shape6.Visible = False : Shape7.Visible = False : Shape8.Visible = True End Sub 单击“自动”按钮 Private Sub Command4_Click() Timer1.Enabled = True Command1.Enabled = False Command2.Enabled = False Command3.Enabled = False n = 0 : s = 0 End Sub 单击“手动”按钮 Private Sub Command5_Click() Timer1.Enabled = False Label1.Caption = Shape6.Visible = False Shape7.Visible = False Shape8.Visible = False Command1.Enabled = True Command2.Enabled = True Command3.Enabled = True End Sub 时钟控件启动 Private Sub Timer1_Timer() Select Case n Case 0 Shape6.Visible = True Shape7.Visible = False Shape8.Visible = False Label1.Caption = 3 - s s = s + 1 If s 3 Then n = 1 s = 0 End If Case 1 Shape6.Visible = False Shape7.Visible = True Shape8.Visible = False n = 2 Case 2 Shape6.Visible = False Shape7.Visible = False Shape8.Visible = True Label1.Caption = 3 - s s = s + 1 If s 3 Then n = 0 : s = 0 End If End Select End Sub 五、保存并运行程序 执行【文件】→【保存工程】命令，打开 “文件另存为”对话框，按提示分别保存窗体文件及工程文件；然后，执行【运行】→【启动】命令（