VB课程设计报告 9.docx
《VB课程设计报告 9.docx》由会员分享，可在线阅读，更多相关《VB课程设计报告 9.docx（8页珍藏版）》请在冰豆网上搜索。
VB课程设计报告9
沈阳航空航天大学
课程设计
学号
班级_
姓名______
指导教师_______
2012年3月13日
沈阳航空航天大学
课程设计任务书
学院：
机电工程学院专业：
机械设计制造及其自动化班级：
04060101
学号：
2010*********题目：
绘制三角函数曲线
一、课程设计时间
2012年3月5日~12日（第1周），共计1周。
二、课程设计内容
根据菜单的选取，在给定的区间内绘制正弦函数或余弦函数。
菜单按照下图制作。
其中“选取三角函数”菜单有2个子项，其余3个没有子项。
三、课程设计要求
程序质量：
✧贯彻事件驱动的程序设计思想。
✧用户界面友好，功能明确，操作方便；可以增加其它功能或修饰。
✧代码应适当缩进，并给出必要的注释，以增强程序的可读性。
课程设计说明书：
✧课设结束后，上交课程设计说明书和源程序。
说明书的内容参见提供的模板。
四、指导教师和学生签字
指导教师：
________学生签名：
______
五、成绩
六、教师评语
目录
需求分析4
设计分析4
技术要点5
主要界面截图7
总结8
完整的源程序9
参考文献10
需求分析
帮助用户绘制正弦（或者余弦）的三角函数图像，适用于给定区间，方便用户在三角函数的学习过程中有个形象的印象，强化记忆。
设计分析
（1）概述：
本程序运用了VB中的IF语句，InputBox，坐标程序，For循环，DoWhile语句以及MsgBox语句等，用户可以通过在给定的区间内来绘制正余弦图像，并强化记忆。
（2）总体设计：
（3）详细设计：
技术要点
1．子菜单选择的应用
根据用户要求来选择计算方式，对操作进行判断，并对判断结果进行处理。
代码如下：
PrivateSubzheng_Click（）
zheng.Checked=True'在Sin选项前面加上勾
yu.Checked=False
EndSub
PrivateSubyu_Click（）
yu.Checked=True'在Cos选项前面加上勾
zheng.Checked=False
EndSub
2.坐标轴的应用
定义一个窗体坐标系，设定X和Y轴以及轴线的宽度，在设定位置上标记X,Y以及O。
代码如下：
Scale（-8,2）-（8,-2）'定义窗口坐标系
DrawWidth=2'设置绘制线宽
Line（-8,0）-（8,0）:
Line（0,2）-（0,-2）'画X轴和Y轴
CurrentX=7.5:
CurrentY=0.3:
Print"X"'标记X,Y,O位置及字符
CurrentX=0.5:
CurrentY=2:
Print"Y"
CurrentX=0.2:
CurrentY=-0.2:
Print"0"
3.DoWhile语句以及IF的应用
运用DoWhile和IF选择语句，对操作进行判断，并对判断结果进行处理。
代码如下：
DoWhilea>6.283Ora<-6.283‘当a
Ifa>6.283ThenIfa<-6.283Then‘如果a
Loop
DoWhileb>6.283Orb<-6.283‘当b
Ifb>6.283ThenIfb<-6.283Then‘如果b
Loop
4.For循环的应用
运用For循环和坐标程序来标记点和刻线以及画图像代码如下：
Fori=-2To-1'标记轴上-2π,-π,π,2π位置及坐标
CurrentX=i*3.1415+0.02:
CurrentY=-0.2:
Printi&"π"
Nexti
Fori=1To2
CurrentX=i*3.1415+0.02:
CurrentY=-0.2:
Printi&"π"
Nexti
Forx=aTobStep0.01'计算并绘制正弦或余弦图像
Ifzheng.Checked=TrueTheny=Sin（x）
Ifyu.Checked=TrueTheny=Cos（x）
PSet（x,y）
Nextx
5.MsgBox的应用
运用MsgBox生成对话框代码如下：
MsgBox（"超出范围,偏大,请重新输入"）‘弹出提示
MsgBox（"超出范围,偏小,请重新输入"）‘弹出提示
MsgBox（"确定退出?
"）'弹出询问
6.InputBox的应用
运用InputBox来生成对话框代码如下：
a=Val（InputBox（"请输入x的最小值,在-2π,2π之间","输入绘图区间"））
a=Val（InputBox（"重新输入x的最小值,在-2π,2π之间","输入绘图区间"））
b=Val（InputBox（"请输入x的最大值,在-2π,2π之间","输入绘图区间"））
b=Val（InputBox（"重新输入x的最大值,在-2π,2π之间","输入绘图区间"））
主要界面截图
总结
经过这次课程设计，我对VB的程序设计又有了更深的理解。
而且在互相交流知识的过程中使我们的关系更近了一步，互相探讨，互相帮助让我们尽自己全力完成了这次设计。
在这次设计中从没有思路，到书和网络上查找相关知识，再到和同学探讨互相参谋，最后才经过自己反复的实验和修改才完成了此次设计。
最后，在作为我的第一次答辩中我没有感到丝毫紧张，经过反复的实验和修改我已经对我设计的程序内容了然于胸。
这让我知道在不同的情况下采用不同的解决方案会获得更加好的效果。
这次课设让我对VB有了更深的了解，知道程序是给人们带来方便的巨大财富。
总的来说。
VB课程设计，给我提供了一个展现自我的平台，给了我一个证明自己的机会，对我个人素质的提高有了很大的帮助。
完整的源程序
Dima!
b!
y!
x!
f!
‘定义单精度
PrivateSubzheng_Click（）‘通过选定绘制正弦函数
zheng.Checked=True
yu.Checked=False
EndSub
PrivateSubyu_Click（）‘通过选定绘制余弦函数
yu.Checked=True
zheng.Checked=False
EndSub
PrivateSubshuru_Click（）
a=Val（InputBox（"请输入x的最小值,在-2π,2π之间","输入绘图区间"））‘输入x最小值,并判断是否在规定区间内
DoWhilea>6.283Ora<-6.283
Ifa>6.283ThenMsgBox（"超出范围,偏大,请重新输入"）:
a=Val（InputBox（"重新输入x的最小值,在-2π,2π之间","输入绘图区间"））
Ifa<-6.283ThenMsgBox（"超出范围,偏小,请重新输入"）:
a=Val（InputBox（"重新输入x的最小值,在-2π,2π之间","输入绘图区间"））
Loop
b=Val（InputBox（"请输入x的最大值,在-2π,2π之间","输入绘图区间"））'输入x最大值,并判断是否在规定区间内
DoWhileb>6.283Orb<-6.283
Ifb>6.283ThenMsgBox（"超出范围,偏大,请重新输入"）:
b=Val（InputBox（"重新输入x的最大值,在-2π,2π之间","输入绘图区间"））
Ifb<-6.283ThenMsgBox（"超出范围,偏小,请重新输入"）:
b=Val（InputBox（"重新输入x的最大值,在-2π,2π之间","输入绘图区间"））
Loop
Ifa>bThenMsgBox（"最小值不允许超过最大值,自动排序"）:
f=a:
b=a:
a=f'判断比较区间最大值最小值是否规范,不规范将自动排序
EndSub
PrivateSubkaishi_Click（）
Scale（-8,2）-（8,-2）'定义窗口坐标系
DrawWidth=2'设置绘制线宽
Line（-8,0）-（8,0）:
Line（0,2）-（0,-2）'画X轴和Y轴
CurrentX=7.5:
CurrentY=0.3:
Print"X"'标记X,Y,O位置及字符
CurrentX=0.5:
CurrentY=2:
Print"Y"
CurrentX=0.2:
CurrentY=-0.2:
Print"0"
Fori=-2To2'画出刻线
Line（i*3.1415,0）-（i*3.1415,0.05）
Nexti
Fori=-2To-1'标记轴上-2π,-π,π,2π位置及坐标
CurrentX=i*3.1415+0.02:
CurrentY=-0.2:
Printi&"π"
Nexti
Fori=1To2
CurrentX=i*3.1415+0.02:
CurrentY=-0.2:
Printi&"π"
Nexti
Forx=aTobStep0.01'计算并绘制正弦或余弦
Ifzheng.Checked=TrueTheny=Sin（x）
Ifyu.Checked=TrueTheny=Cos（x）
PSet（x,y）
Nextx
EndSub
PrivateSubtuichu_Click（）
IfMsgBox（"确定退出?
"）ThenUnloadMe'询问并关闭程序
EndSub
参考文献
[1]刘瑞新．《VisualBasic程序设计教程》．北京：
机械工业出版社，2003
（等等）
升级会员 