VB课程设计报告--科学计算器

《VB课程设计报告--科学计算器》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、目录l概要设计说明………………………………………3l总体设计分析………………………………………3l小组成员及分工方法………………………………3-4l功能模块图…………………………………………4l负责模块的程序设计分析…………………………5l负责模快的程序源代码及流程图…………………5-12l公共系统使用说明及截图…………………………13-16l结束语、心得体会…………………………………17l课程设计结评分表…………………………………18-1919一、概要设计说明本组设计的科学计算器具有科学型和标准型两种类型，适合不同需要。科学型中包含弧度与角度的计算，同时兼具2、8、10、1

2、6进制的运算。在标准型中，编辑菜单（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,

3、Exp,ATn按钮以sin/cos/tan计算时角度和弧度的转换由**负责。5科学行计算器中，Copy，Pst，Not，And，Xor，Int，Or，Abe，Exit按钮;将十进制转化为二进制，制转化为十进制，将二进制转化为八进制由**负责。196标准型菜单部分（查看菜单标准型（standar）、科学型（scientific）。帮助菜单中包含关于（about）（内含开发制作者信息））及标准型和科学型的数字键和科学型的16进制转换由李诗瑶负责。二、功能模块图19统计框数据的处理保存调出清除基本运算进制之间的转换科学计算器特殊功能平均值标准误差求和+-*科学计数法三角函数的运算

4、阶乘倒数乘方对数函数角度弧度梯度指数三、负责模块的程序设计分析1.sin、cos、tan、ATn按钮分别求某个数值/角度/弧度的正弦、余弦、正切、反正切值。2.Exp、Rnd按钮分别返回e的x次幂和取[0，999999999）之间的随机数，而mod保证了随机数是整数。3.角度、弧度按钮19计算sin、cos、tan、ATn时进行转换。四、自己负责模块的程序源代码（1）Sin、Cos、Tan、Rnd、Exp、Atn按钮程序代码Sin：PrivateSubm_Btn_sin_Click()IfIsJdThenm_Tb_Out.Text=str(Sin((Val(m_Tb_Out.

5、Text)/180)*PI))'由于sin只能进行对弧度的运算，所以在进行sin的运算时，如果是角度需要转换为弧度后进行sin运算。Elsem_Tb_Out.Text=str(Sin(Val(m_Tb_Out.Text)))EndIfIfLeft(m_Tb_Out.Text,2)="."Thenm_Tb_Out.Text="0"+Right(m_Tb_Out.Text,Len(m_Tb_Out.Text)-1)ElseIfLeft(m_Tb_Out.Text,2)="-."Thenm_Tb_Out.Text="-0"+Right(m_Tb_Out.Text,Len(m_Tb_

6、Out.Text)-1)EndIfIsShowEd=TrueLastGame="sin"IsLastOut=FalseEndSubCos：PrivateSubm_Btn_Cos_Click()IfIsJdThenm_Tb_Out.Text=str(Cos((Val(m_Tb_Out.Text)/180)*PI))'由于cos只能进行对弧度的运算，所以在进行cos的运算时，如果是角度需要转换为弧度后进行cos运算。Elsem_Tb_Out.Text=str(Cos(Val(m_Tb_Out.Text)))EndIfIfLeft(m_Tb_Out.Text,2)="."Thenm

7、_Tb_Out.Text="0"+Right(m_Tb_Out.Text,Len(m_Tb_Out.Text)-1)19ElseIfLeft(m_Tb_Out.Text,2)="-."Thenm_Tb_Out.Text="-0"+Right(m_Tb_Out.Text,Len(m_Tb_Out.Text)-1)EndIfIsShowEd=TrueLastGame="cos"IsLastOut=FalseEndSubTan：PrivateSubm_Btn_tan_Click()IfIsJdThenm_Tb