小球沿SIN曲线运动.docx
- 文档编号:10248022
- 上传时间:2023-02-09
- 格式:DOCX
- 页数:8
- 大小:101.65KB
小球沿SIN曲线运动.docx
《小球沿SIN曲线运动.docx》由会员分享,可在线阅读,更多相关《小球沿SIN曲线运动.docx(8页珍藏版)》请在冰豆网上搜索。
小球沿SIN曲线运动
沈阳航空航天大学
课程设计
学号2009040301003
班级__94030101___
姓名___黄慧萍____
指导教师___刘学平____
2011年3月18日
沈阳航空航天大学
课程设计任务书
学院:
航宇专业:
飞行器制造班级:
94030101
学号:
2009040301003题目:
小球沿SIN曲线运动
一、课程设计时间
2011年3月7日~11日(第1周),共计1周。
二、课程设计内容
一个实心的小红球沿SIN(X)的曲线匀速运动。
要求速度值和曲线区间可由用户在界面自行设置,运动过程可随时停止和启动。
三、课程设计要求
程序质量:
✧贯彻事件驱动的程序设计思想。
✧用户界面友好,功能明确,操作方便;可以增加其它功能或修饰。
✧代码应适当缩进,并给出必要的注释,以增强程序的可读性。
课程设计说明书:
✧课设结束后,上交课程设计说明书和源程序。
课程设计说明书的内容参见提供的模板。
四、指导教师和学生签字
指导教师:
____________学生签名:
___________
五、成绩
六、教师评语
目录
一、需求分析4
二、设计分析4
三、关键技术5
四、总结8
五、完整的源程序9
六、参考文献11
一、需求分析
一个实心的小红球沿SIN(X)的曲线匀速运动。
要求速度值和曲线区间可由用户在界面自行设置,运动过程可随时停止和启动。
①小球的速度值可由用户在界面自行设置。
②sin(x)的曲线区间可由用户在界面自行设置。
③运动过程可随时停止和启动。
二、设计分析
(1)基本原理:
通过文本框接收用户所设置的信息,绘制sin(x)曲线,用Timer控件使形状控件沿曲线以用户所设置速度运动
(2)总体设计:
图1总体设计
(3)详细设计:
图1详细设计
三、关键技术
(1)建立坐标系与画sin(x)曲线代码如下。
Picture1.Cls
a=Text1.Text
b=Text2.Text
v=Text3.Text
Picture1.Scale(a-1,1.2)-(b+1,-1.2)'定义坐标系
Picture1.AutoRedraw=True
Picture1.Line(a-1,0)-(b+1,0),vbBlack'画坐标轴
Picture1.Line(0,-1.2)-(0,1.2),vbBlack
Picture1.CurrentX=a:
Picture1.CurrentY=0:
Picture1.Printa'标记区间
Picture1.CurrentX=b:
Picture1.CurrentY=0:
Picture1.Printb
Fori=aTobStep0.01'画sin曲线
Picture1.PSet(i,Sin(i))
Nexti
图1窗体-绘制好sin(x)曲线和小球
(2)timer控制小球运动速度的代码如下。
PrivateSubTimer1_Timer()
Statici
i=i+v'确定运动速度
c=i
x=c+a'因为i≠a,所以用c使x为当前坐标
Ifx>bThenx=a:
i=0
Shape1.Movex-Shape1.Width/2,Sin(x)+Shape1.Height/2'小球运动
EndSub
图2窗体-小球沿sin(x)曲线运动
图3窗体-任意改变曲线区间和速度值
四、总结
这次课设我的题目是小球沿SIN曲线运动,通过这次课设让我了解了怎么使VB中静态的图形运动起来,可以用Timer事件制作简单的小动画,还学会了用VB对二维图象进行处理。
在课设程序编写的1周左右的时间里,我遇到了许多困难,包括程序设计构思,甚至是timer控件等某些知识点的欠缺,导致的工作中出现的困难。
但是,通过老师的帮助和查阅相关书籍,解决了这些困难之后,发现自己也可以编写比较复杂的、应用性的程序了,更发现自己对VisualBasic这门学科的兴趣也提高了。
在平时学习的过程中,像Timer这些太抽象的东西,在学习VB的时候我就有点“似懂非懂”,可是在眼下的VB实训中,像这么重要的VB知识,一定要达到能熟练掌握,实际运用的程度。
所以,在实训期间,我在巩固基本知识的基础上,逐块攻克实训课题,克服了困难,自信心也得到了提高。
当然,我编写程序还存在着疏漏和不合理之处。
比如,程序不够精炼,如果时间充裕,我将在不改变程序运行效果的基础上,简化程序,使每一句更加精辟,总体上更加简化。
另外,在程序的外观上,由于时间问题,没有做更多的修饰,运行起来显得比较死板、枯燥乏味。
如果增添一些色彩和其他效果,我的程序也许会更加完美。
五、完整的源程序
Dima!
b!
v!
i!
c!
x!
PrivateSubCommand1_Click()
Picture1.Cls
a=Text1.Text
b=Text2.Text
v=Text3.Text
Picture1.Scale(a-1,1.2)-(b+1,-1.2)'定义坐标系
Picture1.AutoRedraw=True
Shape1.Shape=3'设置小球的形状,大小,颜色
Shape1.FillStyle=0
Shape1.FillColor=vbRed
Shape1.Width=0.2
Shape1.Height=0.2
Picture1.Line(a-1,0)-(b+1,0),vbBlack'画坐标轴
Picture1.Line(0,-1.2)-(0,1.2),vbBlack
Picture1.CurrentX=a:
Picture1.CurrentY=0:
Picture1.Printa'标记区间
Picture1.CurrentX=b:
Picture1.CurrentY=0:
Picture1.Printb
Fori=aTobStep0.01'画sin曲线
Picture1.PSet(i,Sin(i))
Nexti
Timer1.Enabled=True
EndSub
PrivateSubCommand2_Click()
Timer1.Enabled=False
EndSub
PrivateSubTimer1_Timer()
Statici
i=i+v
c=i:
x=c+a
Ifx>bThenx=a:
i=0
Shape1.Movex-Shape1.Width/2,Sin(x)+Shape1.Height/2'小球运动
EndSub
六、参考文献
[1]龚沛曾.《VisualBasic程序设计教程》.北京:
高等教育出版社,2007
[2]高春燕.《VisuaBasic程序开发范例宝典》.北京:
人民邮电出版社,2009
[3]冯小燕.《VisualBasic项目开发案例精粹》.北京:
电子工业出版社,2010
[4]西工大编委会.《VisualBasic精彩编程150例Ⅱ》.西安:
西北工业大学出版社,2004
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 小球 SIN 曲线运动