计算器项目实训报告书

PAGEPAGE9信息科学与技术学院信息科学与技术学院项目实训报告书课程名称VB程序设计 姓名高海涛 班级10（1）班 学号10261139 指导教师陈劲新盐城师范学院信息科学与技术学院2011.12题目：复杂科学性数学计算器。（【基本要求】本计算器可实现普通的计算功能，如加、减、乘、除，还可以进行倒数、开方、乘方、三角函数计算、阶乘、对数、计算，还可以进行十进制和八进制、十进制和十六进制之间的换算，以及数字的保存和读取。实训的目的和要求：通过本项技术实训活动，了解完整的VB程序设计与工程实现的一般方法，整体掌握模块级的基本编程技术，综合实践课堂与实验课中所学到的单元技术方法。培养VB编程技术的工程应用能力。要求每个同学自行选择题目，《VB程序设计》项目实训指导书题目后面是每个题目数量的每题所选限值人数。也可自己提出设计题目，要预先取得老师的同意。设计时，独立完成，遇到问题可查询网络或询问指导老师。设计后期，应写出设计报告，包括：题目内容、添加控件和属性设置的过程、算法说明、程序变量使用说明、解决方法、创新点及对设计所包含的知识点的认识等。实训的软件环境：VisualBasic6.0集成开发环境Internet互联网实训设计过程和内容（可加附页）：一分析问题选择算法科学计算器主要实现基本的加减乘除运算、三角函数运算、倒数、乘方、开方、阶乘、对数等运算，还要实现十进制与十六进制，十进制与八进制的转换等。为实现上述功能，我的基本思路是运用课上老师讲的简单计算器为基础，利用VB系统自带的常用函数实现运算功能，再添加需要的其它命令按钮。二建立用户界面建立如下界面：三设置相关窗体和控件的基本属性四编写代码进行调试PrivateSubCommand1_Click()Iftxtlabel.Text=""Thentxtfirst.Text=txtfirst.Text+"7"Elsetxtsecond.Text=txtsecond.Text+"7"EndIfEndSubPrivateSubCommand10_Click()'每点击一下该按钮，就在文本框的尾部加字符“0”。'如果txtLabel为空，则说明现在正在输入的是第1个数字；'否则表示输入的是第2个数字；Iftxtlabel.Text=""Thentxtfirst.Text=txtfirst.Text+"0"Elsetxtsecond.Text=txtsecond.Text+"0"EndIfEndSubPrivateSubCommand11_Click()'如果txtLabel为空，则说明现在正在输入的是第1个数字；'否则表示当前正在输入的是第2个数字。'首先用Val函数将txtFirst.Text转换为数字，然后再乘以-1；Iftxtlabel.Text=""Thentxtfirst.Text=-1*Val(txtfirst.Text)Elsetxtsecond.Text=-1*Val(txtsecond.Text)EndIfEndSubPrivateSubCommand12_Click()txtlabel.Text="加"EndSubPrivateSubCommand13_Click()txtlabel.Text="减"EndSubPrivateSubCommand14_Click()txtlabel.Text="乘"EndSubPrivateSubCommand15_Click()txtlabel.Text="除"EndSubPrivateSubCommand16_Click()txtfirst.Text=""txtsecond.Text=""txtlabel.Text=""txtOct.Text=""txtHex.Text=""EndSubPrivateSubCommand17_Click()txtlabel.Text="倒数"EndSubPrivateSubCommand18_Click()txtlabel.Text="乘方"EndSubPrivateSubCommand19_Click()txtlabel.Text="开方"EndSubPrivateSubCommand2_Click()Iftxtlabel.Text=""Thentxtfirst.Text=txtfirst.Text+"8"Elsetxtsecond.Text=txtsecond.Text+"8"EndIfEndSubPrivateSubCommand20_Click()txtlabel.Text="阶乘"EndSubPrivateSubCommand21_Click()txtlabel.Text="对数"EndSubPrivateSubCommand22_Click()txtlabel.Text="Sin"EndSubPrivateSubCommand23_Click()txtlabel.Text="Cos"EndSubPrivateSubCommand24_Click()txtlabel.Text="tan"EndSubPrivateSubCommand26_Click()txtfirst.Text=""txtsecond.Text=""txtlabel.Text=""txtOct.Text=""txtHex.Text=""EndSubPrivateSubCommand27_Click()Open"D:\Test.Dat"ForAppendAs#1Print#1,txtresult.TextPrint#1,txtOct.TextPrint#1,txtHex.TextClose1EndSubPrivateSubCommand28_Click()Iftxtlabel.Text=""Thentxtfirst.Text=txtfirst.Text+"."Elsetxtsecond.Text=txtsecond.Text+"."EndIfEndSubPrivateSubCommand3_Click()Iftxtlabel.Text=""Thentxtfirst.Text=txtfirst.Text+"9"Elsetxtsecond.Text=txtsecond.Text+"9"EndIfEndSubPrivateSubCommand34_Click()DimMyResultAsDouble'定义一个Double类型的变量。SelectCasetxtlabel.Text'以txtLabel.Text的值为多重分支条件Case"加"'当txtLabel.Text的值为“加”时MyResult=Val(txtfirst.Text)+Val(txtsecond.Text)Case"减"'当txtLabel.Text的值为“减”时MyResult=Val(txtfirst.Text)-Val(txtsecond.Text)Case"乘"'当txtLabel.Text的值为“乘”时MyResult=Val(txtfirst.Text)*Val(txtsecond.Text)Case"除"'当txtLabel.Text的值为“除”时MyResult=Val(txtfirst.Text)/Val(txtsecond.Text)Case"倒数"MyResult=1/Val(txtfirst.Text)Case"开方"MyResult=Sqr(Val(txtfirst.Text))Case"乘方"MyResult=Val(txtfirst.Text)^Val(txtsecond.Text)Case"阶乘"DimiAsIntegerMyResult=1Fori=1ToVal(txtfirst.Text)MyResult=MyResult*iNextiCase"对数"MyResult=Log(Val(txtfirst.Text))Case"Sin"MyResult=Sin(Val(txtfirst.Text))Case"Cos"MyResult=Cos(Val(txtfirst.Text))Case"tan"MyResult=Tan(Val(txtfirst.Text))EndSelecttxtlabel.Text=""'将txtLabel、txtSecond清空txtsecond.Text=""txtresult.Text=MyResult'将计算结果显示txtfirst.Text=txtresult.Text'将计算结果做为第1个数字，以便继续运算。txtHex.Text=Hex(MyResult)txtOct.Text=Oct(MyResult)EndSubPrivateSubCommand35_Click()EndEndSubPrivateSubCommand4_Click()Iftxtlabel.Text=""Thentxtfirst.Text=txtfirst.Text+"4"Elsetxtsecond.Text=txtsecond.Text+"4"EndIfEndSubPrivateSubCommand5_Click()Iftxtlabel.Text=""Thentxtfirst.Text=txtfirst.Text+"5"Elsetxtsecond.Text=txtsecond.Text+"5"EndIfEndSubPrivateSubCommand6_Click()Iftxtlabel.Text=""Thentxtfirst.Text=txtfirst.Text+"6"Elsetxtsecond.Text=txtsecond.Text+"6"EndIfEndSubPrivateSubCommand7_Click()Iftxtlabel.Text=""Thentxtfirst.Text=txtfirst.Text+"1"Elsetxtsecond.Text=txtsecond.Text+"1"EndIfEndSubPrivateSubCommand8_Click()Iftxtlabel.Text=""Thentxtfirst.Text=txtfirst.Text+"2"Elsetxtsecond.Text=txtsecond.Text+"2"EndIfEndSubPrivateSubCommand9_Click()Iftxtlabel.Text=""Thentxtfirst.Text=txtfirst.Text+"3"Elsetxtsecond.Text=txtsecon