《2023年计算机二级VB实例编程红绿灯控制程序》由会员分享,可在线阅读,更多相关《2023年计算机二级VB实例编程红绿灯控制程序(7页珍藏版)》请在金锄头文库上搜索。
1、计算机二级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
2、属性值,重要用于以便显示矩形、正方形、椭圆、圆形、圆角矩形或者圆角正方形几何图形。本程序运用形状控件设立两组红黄绿灯,一组颜色较暗,一组颜色较亮,运用对象Visible可见属性和Timer控件Timer属性实现对红黄绿三灯变换控制。三、创建顾客界面如图8-4所示,其中,三个比较亮红色、黄色和绿色圆,分别是名称为Shape2、Shape3和Shape4图形控件;三个比较暗红色、黄色和绿色圆,分别是名称为Shape6、Shape7、Shape8图形控件,这6个图形控件相应互相重叠,Shape2、Shape3和Shape4在上面,Shape6、Shape7、Shape8在下面。所有控件及其属性设立状
3、况如下表所示。表实验八对象及其属性四、编写程序代码Dim s As IntegerDim n As Integer单击“红灯”按钮Private Sub Command1_Click()Shape6.Visible = True :Shape7.Visible = False :Shape8.Visible = FalseEnd Sub单击“黄灯”按钮Private Sub Command2_Click()Shape6.Visible = False :Shape7.Visible = True :Shape8.Visible = FalseEnd Sub单击“绿灯”按钮Private Sub
4、 Command3_Click()Shape6.Visible = False :Shape7.Visible = False :Shape8.Visible = TrueEnd Sub单击“自动”按钮Private Sub Command4_Click()Timer1.Enabled = TrueCommand1.Enabled = FalseCommand2.Enabled = FalseCommand3.Enabled = Falsen = 0 :s = 0End Sub单击“手动”按钮Private Sub Command5_Click()Timer1.Enabled = FalseL
5、abel1.Caption = Shape6.Visible = FalseShape7.Visible = FalseShape8.Visible = FalseCommand1.Enabled = TrueCommand2.Enabled = TrueCommand3.Enabled = TrueEnd Sub时钟控件启动Private Sub Timer1_Timer()Select Case nCase 0Shape6.Visible = TrueShape7.Visible = FalseShape8.Visible = FalseLabel1.Caption = 3 - ss =
6、s + 1If s 3 Thenn = 1s = 0End IfCase 1Shape6.Visible = FalseShape7.Visible = TrueShape8.Visible = Falsen = 2Case 2Shape6.Visible = FalseShape7.Visible = FalseShape8.Visible = TrueLabel1.Caption = 3 - ss = s + 1If s 3 Thenn = 0 :s = 0End IfEnd SelectEnd Sub五、保存并运营程序执行【文献】【保存工程】命令,打开 “文献另存为”对话框,按提醒分别保存窗体文献及工程文献;然后,执行【运营】【启动】命令(或直接按F5键),运营程序检测运营成果与否符合题意。例如,单击“手动”按钮后,再单击“红灯”按钮,则窗体上显示出亮红灯图形,其她两个则显示出暗图形。六、思考假如想要变化红绿灯各种灯变化显示时间,应如何修改程序?