VB课程设计报告+计算器.docx

VB课程设计报告+计算器目 录 l 概要设计说明3 l 总体设计分析3 l 小组成员及分工方法3 -4 l 功能模块图4 l 负责模块的程序设计分析5 l 负责模快的程序源代码及流程图5-12 l 公共系统使用说明及截图13-16 l 结束语、心得体会17 l 课程设计结评分表18-19 1 一、概要设计说明 本组设计的科学计算器具有科学型和标准型两种类型，适合不同需要。科学型中包含弧度与角度的计算，同时兼具2、8、10、16进制的运算。在标准型中，编辑菜单包含复制、粘贴。查看菜单包含标准型、科学型。帮助菜单中包含关于 二、总体设计分析 一小组成员分工 1 科学型角度弧度和进制的调用，由小组成员共同完成 2 科学计算器中，x2,x3,xy,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按钮;将十进制转化为二进制，制转化为十进制，将二进制转化为八进制由*负责。 2 6 标准型菜单部分、科学型。帮助菜单中包含关于）及标准型和科学型的数字键和科学型的16进制转换由李诗瑶负责。 二、功能模块图 3 科学计算器 统计框 数据的处理 平均值 标求准和 误差 保存 调清出 除 进制之间的转换 特殊功能 基本运算 + - * 科学计数法 三倒角数 函数的运算 阶指乘 数 角乘度方 弧度梯度 对数函数 三、负责模块的程序设计分析 1. sin、cos、tan、ATn按钮 分别求某个数值/角度/弧度的正弦、余弦、正切、反正切值。 2.Exp、Rnd按钮 分别返回e的x次幂和取0，999999999）之间的随机数，而mod保证了随机数是整数。 3.角度、弧度按钮 4 计算sin、cos、tan、ATn时进行转换。 四、自己负责模块的程序源代码 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) 5 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 = "cos" IsLastOut = False End Sub Tan： Private Sub m_Btn_tan_Click If IsJd Then m_Tb_Out.Text = str(Tan(Val(m_Tb_Out.Text) / 180) * PI) '由于tan只能进行对弧度的运算，所以在进行tan的运算时，如果是角度需要转换为弧度后进行tan运算。 Else m_Tb_Out.Text = str(Tan(Val(m_Tb_Out.Text) / 180) * PI) 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 = "tan" IsLastOut = False End Sub Rnd： Private Sub m_Btn_rnd_Click OutptNum Rnd * 1000000000 Mod 1000000000 '取0，999999999）之间的随机数，而mod保证了随机数是整数 IsShowEd = True LastGame = "rnd" IsLastOut = False End Sub 6 Exp： Private Sub m_Btn_exp_Click '返回e的x次幂的值 OutptNum Exp(InptNum) IsShowEd = True LastGame = "exp" IsLastOut = False End Sub Atn： Private Sub m_Btn_Atan_Click '返回一个数的反正切值If IsJd Then m_Tb_Out.Text = str(Atn(Val(m_Tb_Out.Text) / 180) * PI) Else m_Tb_Out.Text = str(Atn(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 = "atan" IsLastOut = False End Sub 角度、弧度按钮程序代码 角度： Private Sub m_RoBtn_Jd_Click(Index As Integer) If Index = 1 Then IsJd = False 7 Else IsJd = True End If End Sub 弧度： Private Sub m_RoBtn_Jd_Click(Index As Integer) If Index = 1 Then IsJd = False Else IsJd = True End If End Sub 五、sin、cos、tan、Atn流程图 1.sin: 8 开始 IsJd m_Tb_Out.Text = str(Sin(Val(m_Tb_Out.Text) / 180) * PI) m_Tb_Out.Text = str(Sin(Val(m_Tb_Out.Text) 开始 Left(m_Tb_Out.Text, 2) = " ." m_Tb_Out.Text = "0" Right(m_Tb_Out.Text, Len(m_Tb_Out.Text) - 1) + Left(m_Tb_Out.Text, 2) = "-." m_Tb_Out.Text = "-0" Right(m_Tb_Out.Text, Len(m_Tb_Out.Text) - 1) + 2、cos: 9 开始 IsJd m_Tb_Out.Text = str(Cos(Val(m_Tb_Out.Text) / 180) * PI) m_Tb_Out.Text = str(Cos(Val(m_Tb_Out.Text) 开始 Left(m_Tb_Out.Text, 2) = " ." m_Tb_Out.Text = "0" Right(m_Tb_Out.Text, Len(m_Tb_Out.Text) - 1) + Left(m_Tb_Out.Text, 2) = "-." m_Tb_Out.Text = "-0" Right(m_Tb_Out.Text, Len(m_Tb_Out.Text) - 1) + 3、tan: 10 开始 IsJd m_Tb_Out.Text = str(Tan(Val(m_Tb_Out.Text) / 180) * PI) m_Tb_Out.Text = str(Tan(Val(m_Tb_Out.Text) / 180) * 开始 Left(m_Tb_Out.Text, 2) = " ." m_Tb_Out.Text = "0" Right(m_Tb_Out.Text, Len(m_Tb_Out.Text) - 1) + Left(m_Tb_Out.Text, 2) = "-." m_Tb_Out.Text = "-0" Right(m_Tb_Out.Text, Len(m_Tb_Out.Text) - 1) + 4Atn: 11 开始 IsJd m_Tb_Out.Text = str(Atn(Val(m_Tb_Out.Text) / 180) * PI) m_Tb_Out.Text = str(Atn(Val(m_Tb_Out.Text) 开始 Left(m_Tb_Out.Text, 2) = " ." m_Tb_Out.Text = "0" + Right(m_Tb_Out.Text, Len(m_Tb_Out.Text) - 1) Left(m_Tb_Out.Text, 2) = "-." m_Tb_Out.Text = "-0" Right(m_Tb_Out.Text, Len(m_Tb_Out.Text) - 1) + 六、公共系统使用说明及截图 12 一、进制调用 Private Sub m_Rdo_Jz_Click(Index As Integer) '对于二进制、八进制、十进制以及十六进制之间的相互转换创建控件数组 If Index = 0 Then '当选择hex时，即选择了option button的index=0,把文本框里面的数转化为十六进制数 If LstChk = 1 Then '运用选择语句，把所有的进制数全部转化为十六进制数 ElseIf LstChk = 2 Then m_Tb_Out.Text = DEC_to_HEX(Int(Val(m_Tb_Out.Text) m_Tb_Out.Text = OCT_to_HEX(m_Tb_Out.Text) ElseIf LstChk = 3 Then m_Tb_Out.Text = BIN_to_HEX(m_Tb_Out.Text) End If ElseIf Index = 1 Then '当选择1时，所有进制转化为十进制 If LstChk = 0 Then m_Tb_Out.Text = IIf(HEX_to_DEC(m_Tb_Out.Text) HEX_to_DEC(m_Tb_Out.Text) ElseIf LstChk = 2 Then m_Tb_Out.Text = IIf(OCT_to_DEC(m_Tb_Out.Text) OCT_to_DEC(m_Tb_Out.Text) ElseIf LstChk = 3 Then m_Tb_Out.Text = IIf(BIN_to_DEC(m_Tb_Out.Text) BIN_to_DEC(m_Tb_Out.Text) End If ElseIf Index = 2 Then '当选择2时，所有进制转化为八进制 If LstChk = 0 Then m_Tb_Out.Text = HEX_to_OCT(m_Tb_Out.Text) ElseIf LstChk = 1 Then m_Tb_Out.Text = DEC_to_OCT(Int(Val(m_Tb_Out.Text) ElseIf LstChk = 3 Then m_Tb_Out.Text = BIN_to_OCT(m_Tb_Out.Text) End If ElseIf Index = 3 Then '当选择3时，所有进制转化为二进制 If LstChk = 0 Then m_Tb_Out.Text = HEX_to_BIN(m_Tb_Out.Text) ElseIf LstChk = 1 Then m_Tb_Out.Text = DEC_to_BIN(Int(Val(m_Tb_Out.Text) ElseIf LstChk = 2 Then m_Tb_Out.Text = OCT_to_BIN(m_Tb_Out.Text) End If End If LstChk = Index EnableNumBtn = 0, = 0, = 0, "", "", "", 13 End Sub 题 工作量适中，难易度合理 能熟练应用所学知识，有一定查阅文献及运用文献资料能力 能 力 水 平 理论依据充分，数据准确，公式推导正确 能应用计算机软件进行编程、资料搜集录入、加工、排版、制图等 能体现创造性思维，或有独特见解 总体设计正确、合理，各项技术指标符合要求。 说明书综述简练完整，概念清楚、立论正确、技术用语准确、成 果 质 量 结论严谨合理；分析处理科学、条理分明、语言流畅、结构严谨、版面清晰 设计说明书栏目齐全、合理，符号统一、编号齐全。 格式、绘图、表格、插图等规范准确，符合国家标准 有一定篇幅，字符数不少于5000 总 分 10 项目内容 能结合所学课程知识、有一定的能力训练。符合选题要求 满分 实 评 10 10 10 10 10 10 10 10 10 100 18 指导教师评语： 指导教师签名： 年 月 日 19