女明星整容前后
计算机二级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
'单击“红灯”按钮
二级VB
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键,运行程序检测运行结果是否符合题意;
例如,单击“手动”按钮后,再单击“红灯”按钮,则窗体上显示出亮的红灯图形,其他的两个则显示出暗的图形;
六、思考
如果想要改变红绿灯各种灯的变化显示时间,应如何修改程序