VB课设报告样例2.doc

  1. 1、本文档共12页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
沈 阳 航 空 航 天 大 学 课程设计 学 号 _2011040301091_ 班 级 _____ 姓 名 赵洪畅______ 指导教师 _ 刘成_____ 2013年 3 月 15 日 沈阳航空航天大学 课程设计任务书 学院: 航空航天工程学部 专业:飞行器制造工程 班级学号: 2011040301091 题目:红灯停绿灯行 一、课程设计时间 2013年3月11日~3月15日(第三周),共计1周,20学时。 课程设计内容 当一辆汽车驶入交通岗时,发现不远处交通岗指示灯正由绿变红,于是汽车开始减速,最终在边界停止。10秒钟后,指示灯由红变绿,于是汽车开始行走,并逐渐加速离开交通岗。 请用VB写程序,动画模拟上述过程。 重点是要实现指示灯的周期性变换颜色,以及汽车减速和加速度的动画效果。 三、课程设计要求 程序质量: 贯彻事件驱动的程序设计思想。 用户界面友好,功能明确,操作方便。 代码应适当缩进,并给出必要的注释,以增强程序的可读性。 课程设计说明书: 课程结束后,上交课程设计说明书和源程序。课程设计说明书的内容参见提供的模板。 四、指导教师和学生签字 指导教师:________ 学生签名:________ 成绩 六、教师评语 目 录 需求分析 4 设计分析 4 技术要点 5 主要界面截图 6 总结 7 完整的源程序 8 参考文献 9 需求分析 “红灯停绿灯走”这个课程设计模拟汽车依照指示灯指示路过交通岗,能够改变红绿灯周期,与汽车加减速的速度,用户可以任意更改参数以便模拟汽车在不同情况下驶过交通岗,便于用户模拟行车过程。 设计分析 (1)概述: Image控件的left、width等属性变换,timer控件的使用,以及两者之间相互关联。 重点是实现汽车驶过交通岗之后,其运动不再随红绿灯变化而变化。 (2)总体设计: 红绿灯变换 汽车速度及位置变化 (3)详细设计: 开始 红绿灯变换---绿灯image.picture控件 汽车加速 红灯 汽车减速 ,加速度变慢至0 绿灯 汽车加速,加速驶离 至窗体左边框,汽车返回右边框 技术要点 本课程设计用到了timer控件,还有image控件,form窗口。 image控件 Image控件的picture属性用于加载红绿灯图片,用空白image控件在其他两个加载了红绿灯的image控件之间通过timer进行转换。 Image控件还用于加载汽车的图片,,它的left属性值用于改变汽车在窗体中的位置,例如: Image7.Left = Image7.Left - s * Timer2;s = s + 1,用来使汽车加速,其中timer2控件触发后,其属性为true,返回值为-1。(在相同的timer触发的时间段内,每一次触发走过的距离比上一次多,即为加速,减速则相反), Timer控件 Timer控件用于控制红绿灯周期变化及汽车行进速度。Timer控件的interval属性值,表示timer的刷新频率,例如timer.interval=1,表示1毫秒,进行一次事件过程。 3.if语句 If语句用于判断该过程是否执行,Private Sub Timer1_Timer() i = (i + 1) Mod 2 If i = 1 Then Timer1.Interval = 2500 Image4.Picture = Image3 Timer2.Interval = 20 Else Timer1.Interval = 10000 Image4.Picture = Image1 Timer2.Interval = 20 End If End Sub 例如本段程序就是对红绿灯进行判断, If Image4.Picture = Image1 And Image7.Left < 7200 And Image7.Left > 7000 Then s = 0是对车位置进行判断。 If s >= 10 Then s = s - 1 Else s = 0 End If这个也表示了一个循环过程,在s符

文档评论(0)

xingyuxiaxiang + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档