绘制三角函数

沈航设计用纸
沈阳航空航天大学
课程设计任务书
学院：航宇专业：飞行器制造班级：94030101
学号：2009040301027 题目：绘制三角函数
一、课程设计时间
2011年3月7日~11日（第1周），共计1周。

二、课程设计内容
根据菜单的选取，在给定的区间内绘制正弦函数或余弦函数。

菜单按照下图制作。

其中“选取三角函数”菜单有2个子项，其余3个没有子项。

三、课程设计要求
程序质量：
✧贯彻事件驱动的程序设计思想。

✧用户界面友好，功能明确，操作方便；可以增加其它功能或修饰。

✧代码应适当缩进，并给出必要的注释，以增强程序的可读性。

课程设计说明书：
✧课设结束后，上交课程设计说明书和源程序。

课程设计说明书的内容参见提
供的模板。

四、指导教师和学生签字
指导教师：________ 学生签名：________
五、成绩
六、教师评语
沈航设计用纸
目录
需求分析 (4)
设计分析 (5)
关键技术 (7)
总结 (13)
完整的源程序 (14)
参考文献 (17)
需求分析
学生信息查询系统，主要提供按学号查询，按姓名查询学生所有信息的服务。

按省份统计出各省的人数。

当点击按学号查询按钮时，出现对话框“请输入学号”，后，输入你要查询的学号；点击查询，则显示该出学生所有的信息
当点击按姓名查询按钮时，出现对话框“请输入姓名”，输入你要查询的姓名；点击查询，则显示出该学生所有信息
当点击按省份统计按钮时，显示来自各省的人数
设计分析
（1）基本原理：应用菜单编辑器编辑几个菜单项,利用图形操作中的Cls、Line、Pset、Print语句进
行绘图操作。

（2）总体设计：
（3）详细设计：
关键技术
1 Form_paint代码如下
Private Sub Form_paint()
Dim i%, 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"
For i = -2 * PI To 2 * PI Step PI
Line (i, 0)-(i, 0.1)
CurrentX = i - 0.2: CurrentY = -0.1
If j <> 0 Then
Print j & "π"
Else: Print 0
End If
j = j + 1
Next i
End Sub窗体如下
2输入数据程序段如下：
Public Sub FileMenu2_Click()
a = Val(InputBox("输入左区间", "输入绘图区间", 0))
b = Val(InputBox("输入右区间", "输入绘图区间", 0)) m = 1
End SubEnd Sub窗体-如下：
3开始绘图程序段如下：
Private Sub FileMenu3_Click()
If n = 0 Then
MsgBox ("请选取三角函数") End If
If m = 0 Then
MsgBox ("请输入区间")
End If
For x = a T o b Step 0.0001
If n = 1 Then
y = Sin(x)
ElseIf n = 2 Then
y = Cos(x)
End If
PSet (x, y)
Next x
End Sub 窗体如下：
4清除数据程序段如下：
Private Sub FileMenu5_Click()
Cls
Dim i%, 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"
For i = -2 * PI T o 2 * PI Step PI
Line (i, 0)-(i, 0.1)
CurrentX = i - 0.2: CurrentY = -0.1
If j <> 0 Then
Print j & "π"
Else: Print 0
End If
j = j + 1
Next i
End Sub
窗体如下：
5退出代码如下
Private Sub FileMenu4_Click() End
End Sub
总结
这次课设我的题目是绘制三角函数，通过这次课设让我了解了VB与日常生活学习之间的联系，可以应用VB 中图形绘制使VB与日常教学进行联系，还可以应用菜单编辑器使它能够完成不同的绘图命令。

在课设过程中，我遇到了重重困难，例如：VB与图形绘制和日常教学的结合，通过老师的指点和自己查阅资料，我克服了困难。

VB程序是一门很实用的软件，它可以做出很多与日常生活中息息相关的程序，我们一定要好好学习这门软件。

完整的源程序
Public a!, b!, n%, m%
Const PI = 3.1415926535898
Public Sub FileMenu2_Click()
a = Val(InputBox("输入左区间", "输入绘图区间", 0))
b = Val(InputBox("输入右区间", "输入绘图区间", 0)) m = 1
End Sub
Private Sub FileMenu3_Click()
If n = 0 Then
MsgBox ("请选取三角函数")
End If
If m = 0 Then
MsgBox ("请输入区间")
End If
For x = a T o b Step 0.0001
If n = 1 Then
y = Sin(x)
ElseIf n = 2 Then
y = Cos(x)
End If
PSet (x, y)
Next x
End Sub
Private Sub FileMenu4_Click()
End
End Sub
Private Sub FileMenu5_Click()
Cls
Dim i%, 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"
For i = -2 * PI T o 2 * PI Step PI
Line (i, 0)-(i, 0.1)
CurrentX = i - 0.2: CurrentY = -0.1
If j <> 0 Then
Print j & "π"
Else: Print 0
End If
j = j + 1
Next i
End Sub
Private Sub Form_paint()
Dim i%, 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"
For i = -2 * PI T o 2 * PI Step PI
Line (i, 0)-(i, 0.1)
CurrentX = i - 0.2: CurrentY = -0.1
If j <> 0 Then
Print j & "π"
Else: Print 0
End If
j = j + 1
Next i
End Sub
Public Sub one_Click()
n = 1
End Sub
Public Sub second_Click() n = 2
End Sub
沈航设计用纸
参考文献
[1] 刘瑞新．《Visual Basic程序设计教程》．北京：机械工业出版社，2003
[2]龚沛曾、杨志强、陆慰民.《Visual Basic程序设计教程》北京：高等教育出版社，2007
[3] 龚沛曾、杨志强、陆慰民《Visual Basic程序设计教程 . 实验指导与测试》北京：高等教育出版社，2007。