• / 5
  • 下载费用:10 金币  

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

关 键 词:
计算机二级VB实例编程 红绿灯控制程序.doc
资源描述:
计算机二级 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 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 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 = FalseLabel1.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 = 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键),运行程序检测运行结果是否符合题意。例如,单击“手动”按钮后,再单击“红灯”按钮,则窗体上显示出亮的红灯图形,其他的
展开阅读全文
  微传网所有资源均是用户自行上传分享,仅供网友学习交流,未经上传用户书面授权,请勿作他用。
0条评论

还可以输入200字符

暂无评论,赶快抢占沙发吧。

关于本文
本文标题:计算机二级VB实例编程 红绿灯控制程序.doc
链接地址:https://www.weizhuannet.com/p-9787713.html
微传网是一个办公文档、学习资料下载的在线文档分享平台!

微传网博客

网站资源均来自网络,如有侵权,请联系客服删除!

 网站客服QQ:80879498  会员QQ群:727456886

copyright@ 2018-2028 微传网络工作室版权所有

     经营许可证编号:冀ICP备18006529号-1 ,公安局备案号:13028102000124

收起
展开