计算机二级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
11月适合去国外哪里旅游 = 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键,运行程序检测运行结果是否符合题意;
例如,单击“手动”按钮后,再单击“红灯”按钮,则窗体上显示出亮的红灯图形,其他的两个则显示出暗的图形;
六、思考
如果想要改变红绿灯各种灯的变化显示时间,应如何修改程序
版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。
发表评论