绘制三角函数曲线

《绘制三角函数曲线》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、沈阳航空工业学院课程设计学号2009040601314班级9406010姓名者廷波指导教师刘成2011年3月26日沈阳航院设计用纸沈阳航空工业学院课程设计任务书学院：机电工程专业：机械班级：94060108学号：2009040601314题目：绘制三角函数曲线一、课程设计时间2011年3月14~18日（第2周），共计1周，20学时。二、课程设计内容根据菜单的选在取，给定的区间内绘制正弦函数或余弦函数。菜单按照下图制作。其中“选取三角函数”菜单有2个子项，其余3个没有子项。三、课程设计要求程序质量：²贯彻事件驱动的程序设计思想。²用户界面友好，功能明确，操作方

2、便。²代码应适当缩进，并给出必要的注释，以增强程序的可读性。课程设计说明书：²课程结束后，上交课程设计说明书和源程序。课程设计说明书的内容参见提供的模板。四、指导教师和学生签字指导教师：________学生签名：________五、成绩第16页，共16页沈阳航院设计用纸目录需求分析4设计分析4关键技术6总结10完整的源程序11参考文献13第16页，共16页沈阳航院设计用纸需求分析绘制三角函数曲线，主要指“正弦三角函数绘制”和“余弦三角函数绘制“。即给定的区间内绘制正弦函数或余弦函数。课程设计要求程序质量：²贯彻事件驱动的程序设计思想。²用户界面友好，功能明确

3、，操作方便。²代码应适当缩进，并给出必要的注释，以增强程序的可读性。课程设计说明书：²课程结束后，上交课程设计说明书和源程序。课程设计说明书的内容参见提供的模板。设计分析（1）基本原理：第16页，共16页沈阳航院设计用纸学会应用三角函数在VB中的表达，同时应用IF条件语句和FOR循环语句，通过图形控件进行图形和绘图操作，将字形符号转化为数值。（1）总体设计：保存生成可执行文件程序编写调试明确对象事件（3）详细设计：第16页，共16页沈阳航院设计用纸开始选取子事件Y=sin(x)Y=cos(x)ab结束警告，重新输入第16页，共16页沈

4、阳航院设计用纸关键技术1建立窗体，对象及事件，，使用菜单编辑器第16页，共16页沈阳航院设计用纸PrivateaAsInteger声明变量为a,b整型PrivatebAsIntegerPrivateSubc_Click()对子事件做出选择c.Checked=True选取c事件，隐藏s事件s.Checked=FalseEndSubPrivateSubdraw_Click()Cls(清屏)Fom1.Scale(a*3.14-1,2)-(b*3.14+1,-2)定义窗体坐标系第16页，共16页沈阳航院设计用纸DrawWidth=1设置绘图线宽Line(a*3.14

5、-1,0)-(b*3.14+1,0)画出X轴和Y轴Line(0,2)-(0,-2)CurrentX=b*3.14+0.5:CurrentY=0:Print"x"在指定位置输CurrentX=0.05:CurrentY=2:Print"y"入字符X和YFori=aTob使用循环结构（For循环控制变量=初值To终值）Ifi=-1ThenCurrentX=3.14*i+0.1:CurrentY=0.1:Print"-π"在指定位置输入π，变将字符转化为数值Ifi=0ThenCurrentX=3.14*i+0.1:CurrentY=-0.1:Print"0"在指定

6、位置输入"0"Ifi=1ThenCurrentX=3.14*i+0.1:CurrentY=0.1:Print"π"在指定位置输入πIfi<-1Ori>1ThenCurrentX=3.14*i:CurrentY=0.1:Printi;"π"NextiForx=3.14*aTo3.14*bStep0.001使用循环结构（For循环控制变量=初值To终值（step步长）Ifs.Checked=TrueTheny=Sin(x)第16页，共16页沈阳航院设计用纸Ifc.Checked=TrueTheny=Cos(x)PSet(x,y)计算所选子事件Nextx画点End

7、SubPrivateSubexit_Click()EndEndSubPrivateSubForm_Load()Dima%,b%EndSubPrivateSubinput_Click()a=Val(InputBox("请输入区间下限，单位：π"))b=Val(InputBox("请输入区间上限，单位：π"))Ifa>=bThenMsgBox("区间下限应小于上限，请重新输入")第16页，共16页沈阳航院设计用纸EndSubPrivateSubs_Click()s.Checked=Truec.Checked=falseEndsub2输入数值运行，调试第16页，共

8、16页沈阳航院设计用纸总结这次课设我的题目是正余弦三