vb设计一个科学型计算机,VB课程设计报告--科学计算器.doc

目 录

概要设计说明………………………………………3

总体设计分析………………………………………3

小组成员及分工方法………………………………3 -4

功能模块图…………………………………………4

负责模块的程序设计分析…………………………5

负责模快的程序源代码及流程图…………………5-12

公共系统使用说明及截图…………………………13-16

结束语、心得体会…………………………………17

课程设计结评分表…………………………………18-19

一、概要设计说明

本组设计的科学计算器具有科学型和标准型两种类型，适合不同需要。科学型中包含弧度与角度的计算，同时兼具2、8、10、16进制的运算。在标准型中，编辑菜单(edit)包含复制(copy)、粘贴(paste)。查看菜单包含标准型(standar)、科学型(scientific)。帮助菜单中包含关于(about)(内含开发制作者信息)

二、总体设计分析(含功能模块图)

一．小组成员分工

1 科学型角度弧度和进制的调用，由小组成员共同完成

2 科学计算器中，x^2,x^3,x^y,1/x,n！,Log按键，及八进制转二进制，八进制转十进制，由**负责。

3 科学计算器中，BackSpance、CE、C和运算符号+、-、*、/、.、-/+、=以及标准型计算器由***负责

4 科学计算器中，sin，cos，tan,Rnd,Exp,ATn按钮以sin/cos/tan计算时角度和弧度的转换由**负责。

5 科学行计算器中，Copy，Pst，Not，And，Xor，Int，Or，Abe，Exit按钮;将十进制转化为二进制，制转化为十进制，将二进制转化为八进制由**负责。

6 标准型菜单部分(查看菜单标准型(standar)、科学型(scientific)。帮助菜单中包含关于(about)(内含开发制作者信息))及标准型和科学型的数字键和科学型的16进制转换由李诗瑶负责。

二、功能模块图

负责模块的程序设计分析

sin、cos、tan、ATn按钮

分别求某个数值/角度/弧度的正弦、余弦、正切、反正切值。

2.Exp、Rnd按钮

分别返回e的x次幂和取[0，999999999)之间的随机数，而mod保证了随机数是整数。

3.角度、弧度按钮

计算sin、cos、tan、ATn时进行转换。

四、自己负责模块的程序源代码

(1)Sin、Cos、Tan、Rnd、Exp、Atn按钮程序代码

Sin：

Private Sub m_Btn_sin_Click()

If IsJd Then

m_Tb_Out.Text = str(Sin((Val(m_Tb_Out.Text) / 180) * PI)) '由于sin只能进行对弧度的运算，所以在进行sin的运算时，如果是角度需要转换为弧度后进行sin运算。

Else

m_Tb_Out.Text = str(Sin(Val(m_Tb_Out.Text)))

End If

If Left(m_Tb_Out.Text, 2) = " ." Then

m_Tb_Out.Text = "0" + Right(m_Tb_Out.Text, Len(m_Tb_Out.Text) - 1)

ElseIf Left(m_Tb_Out.Text, 2) = "-." Then

m_Tb_Out.Text = "-0" + Right(m_Tb_Out.Text, Len(m_Tb_Out.Text) - 1)

End If

IsShowEd = True

LastGame = "sin"

IsLastOut = False

End Sub

Cos：

Private Sub m_Btn_Cos_Click()

If IsJd Then

m_Tb_Out.Text = str(Cos((Val(m_Tb_Out.Text) / 180) * PI)) '由于cos只能进行对弧度的运算，所以在进行cos的运算时，如果是角度需要转换为弧度后进行cos运算。

Else

m_Tb_Out.Text = str(Cos(Val(m_Tb_Out.Text)))

End If

If Left(m_Tb_Out.Text, 2) = " ." Then

m_Tb_Out.Text = "0" + Right(m_Tb_Out.Text, Len(m_Tb_Out.Text) - 1)

ElseIf Left(m_Tb_Out.Text, 2) = "-." Then

m_Tb_Out.Text = "-0" + Right(m_Tb_Out.Text, Len(m_Tb_Out.Text) - 1)

End