绘制三角函数.docx
《绘制三角函数.docx》由会员分享，可在线阅读，更多相关《绘制三角函数.docx（11页珍藏版）》请在冰豆网上搜索。
绘制三角函数
沈阳航空航天大学
课程设计
学号2009040301027
班级94030101
姓名王玥
指导教师刘学平
2011年03月18日
沈阳航空航天大学
课程设计任务书
学院：
航宇专业：
飞行器制造班级：
94030101
学号：
2009040301027题目：
绘制三角函数
一、课程设计时间
2011年3月7日~11日（第1周），共计1周。
二、课程设计内容
根据菜单的选取，在给定的区间内绘制正弦函数或余弦函数。
菜单按照下图制作。
其中“选取三角函数”菜单有2个子项，其余3个没有子项。
三、课程设计要求
程序质量：
✧贯彻事件驱动的程序设计思想。
✧用户界面友好，功能明确，操作方便；可以增加其它功能或修饰。
✧代码应适当缩进，并给出必要的注释，以增强程序的可读性。
课程设计说明书：
✧课设结束后，上交课程设计说明书和源程序。
课程设计说明书的内容参见提供的模板。
四、指导教师和学生签字
指导教师：
________学生签名：
________
五、成绩
六、教师评语
目录
需求分析4
设计分析5
关键技术7
总结13
完整的源程序14
参考文献17
需求分析
学生信息查询系统，主要提供按学号查询，按姓名查询学生所有信息的服务。
按省份统计出各省的人数。
当点击按学号查询按钮时，出现对话框“请输入学号”，后，输入你要查询的学号；点击查询，则显示该出学生所有的信息
当点击按姓名查询按钮时，出现对话框“请输入姓名”，输入你要查询的姓名；点击查询，则显示出该学生所有信息
当点击按省份统计按钮时，显示来自各省的人数
设计分析
（1）基本原理：
应用菜单编辑器编辑几个菜单项,利用图形操作中的Cls、Line、Pset、Print语句进行绘图操作。
（2）总体设计：
（3）详细设计：
关键技术
1Form_paint代码如下
PrivateSubForm_paint（）
Dimi%,j%
j=-2
Form1.Scale（-8,2）-（8,-2）
DrawWidth=2
Line（-7.5,0）-（7.5,0）:
Line（0,1.9）-（0,-1.9）
CurrentX=7.5:
CurrentY=0.2:
Print"X"
CurrentX=0.5:
CurrentY=2:
Print"Y"
Fori=-2*PITo2*PIStepPI
Line（i,0）-（i,0.1）
CurrentX=i-0.2:
CurrentY=-0.1
Ifj<>0Then
Printj&"π"
Else:
Print0
EndIf
j=j+1
Nexti
EndSub窗体如下
2输入数据程序段如下：
PublicSubFileMenu2_Click（）
a=Val（InputBox（"输入左区间","输入绘图区间",0））
b=Val（InputBox（"输入右区间","输入绘图区间",0））
m=1
EndSubEndSub窗体-如下：
3开始绘图程序段如下：
PrivateSubFileMenu3_Click（）
Ifn=0Then
MsgBox（"请选取三角函数"）
EndIf
Ifm=0Then
MsgBox（"请输入区间"）
EndIf
Forx=aTobStep0.0001
Ifn=1Then
y=Sin（x）
ElseIfn=2Then
y=Cos（x）
EndIf
PSet（x,y）
Nextx
EndSub
窗体如下：
4清除数据程序段如下：
PrivateSubFileMenu5_Click（）
Cls
Dimi%,j%
j=-2
Form1.Scale（-8,2）-（8,-2）
DrawWidth=2
Line（-7.5,0）-（7.5,0）:
Line（0,1.9）-（0,-1.9）
CurrentX=7.5:
CurrentY=0.2:
Print"X"
CurrentX=0.5:
CurrentY=2:
Print"Y"
Fori=-2*PITo2*PIStepPI
Line（i,0）-（i,0.1）
CurrentX=i-0.2:
CurrentY=-0.1
Ifj<>0Then
Printj&"π"
Else:
Print0
EndIf
j=j+1
Nexti
EndSub
窗体如下：
5退出代码如下
PrivateSubFileMenu4_Click（）
End
EndSub
总结
这次课设我的题目是绘制三角函数，通过这次课设让我了解了VB与日常生活学习之间的联系，可以应用VB中图形绘制使VB与日常教学进行联系，还可以应用菜单编辑器使它能够完成不同的绘图命令。
在课设过程中，我遇到了重重困难，例如：
VB与图形绘制和日常教学的结合，通过老师的指点和自己查阅资料，我克服了困难。
VB程序是一门很实用的软件，它可以做出很多与日常生活中息息相关的程序，我们一定要好好学习这门软件。
完整的源程序
Publica!
b!
n%,m%
ConstPI=3.1415926535898
PublicSubFileMenu2_Click（）
a=Val（InputBox（"输入左区间","输入绘图区间",0））
b=Val（InputBox（"输入右区间","输入绘图区间",0））
m=1
EndSub
PrivateSubFileMenu3_Click（）
Ifn=0Then
MsgBox（"请选取三角函数"）
EndIf
Ifm=0Then
MsgBox（"请输入区间"）
EndIf
Forx=aTobStep0.0001
Ifn=1Then
y=Sin（x）
ElseIfn=2Then
y=Cos（x）
EndIf
PSet（x,y）
Nextx
EndSub
PrivateSubFileMenu4_Click（）
End
EndSub
PrivateSubFileMenu5_Click（）
Cls
Dimi%,j%
j=-2
Form1.Scale（-8,2）-（8,-2）
DrawWidth=2
Line（-7.5,0）-（7.5,0）:
Line（0,1.9）-（0,-1.9）
CurrentX=7.5:
CurrentY=0.2:
Print"X"
CurrentX=0.5:
CurrentY=2:
Print"Y"
Fori=-2*PITo2*PIStepPI
Line（i,0）-（i,0.1）
CurrentX=i-0.2:
CurrentY=-0.1
Ifj<>0Then
Printj&"π"
Else:
Print0
EndIf
j=j+1
Nexti
EndSub
PrivateSubForm_paint（）
Dimi%,j%
j=-2
Form1.Scale（-8,2）-（8,-2）
DrawWidth=2
Line（-7.5,0）-（7.5,0）:
Line（0,1.9）-（0,-1.9）
CurrentX=7.5:
CurrentY=0.2:
Print"X"
CurrentX=0.5:
CurrentY=2:
Print"Y"
Fori=-2*PITo2*PIStepPI
Line（i,0）-（i,0.1）
CurrentX=i-0.2:
CurrentY=-0.1
Ifj<>0Then
Printj&"π"
Else:
Print0
EndIf
j=j+1
Nexti
EndSub
PublicSubone_Click（）
n=1
EndSub
PublicSubsecond_Click（）
n=2
EndSub
参考文献
[1]刘瑞新．《VisualBasic程序设计教程》．北京：
机械工业出版社，2003
[2]龚沛曾、杨志强、陆慰民.《VisualBasic程序设计教程》北京：
高等教育出版社，2007
[3]龚沛曾、杨志强、陆慰民《VisualBasic程序设计教程.实验指导与测试》北京：
高等教育出版社，2007
升级会员 