vb计算器课程设计报告

1、课程设计程程序设计级名号指导老师：钉录，:系统开发环境3:、功能描述4三、概要设计：设计流程框图4.四、各功能模块的实现过程，所用到的算法巧等：5五、运行界面（运行效果）:5六、心得体会6.七、附录（程序）8.八、参考文献1.4.九、本人在该组中完成的部分141.4十、进度安排:系统开发环境系统开发环境包括硬件平台和软件平台两种。硬件平台是指开发与运行所需要的硬件环境，主要包括计算机机型及硬件配置。由于本系统是一个小型的MIS管理系统，因此对计算机硬件的要求不高，比较经济，只要配备有PM处理器（或以上）、256M内存（或以上）、20G硬盘（或以上）的普通微机即可顺利运行。软件平台是指系统开发与

2、运行的软件环境。本系统在开发时选用了稳定性较强的WindowsXP中文专业版和VisualBasic6.0作为开发语言，同时选用了Access数据库，由于这些软件产品都是Microsoft公司的产品，因此彼此之间的兼容性较好，开发出的应用系统稳定性较高。VisualBasic6.0具有可视化的开发环境，可以快速完成系统的开发,内部集成的数据库访问通道，使得可以轻松方便的对数据库管理。数据库采用MicrosoftAccess,由于我们的系统要求，采用它完全可以适合我们的工作需求，并且它所支持的数据类型十分丰富，维护简便，费用比较低，人员素质要求不是很高，容易升级。本系统在单机上运行。1、功能描述

3、使用vb设计科学型计算器，功能介于科学型和简单型之间要求能进行加减乘除和开方，乘方，求对数，三角函数计算，可以存储与调出数据。标保调清准存出除误差道制之问的转换特殊功能基本运算科学计算器1V1r1L概要设计：设计流程框图四、各功能模块的实现过程，所用到的算法巧等:1. sin、cos、tan按钮分别求某个数值/角度/弧度的正弦、余弦、正切、反正切值Exp按钮分别返回e的x次籍和取0,999999999）之间的随机数，而mod保证了随机数是整数3?角度、弧度按钮计算sin、cos、tan时进行转换4.+、-、*、/实行加减乘除五、运行界面（运行效果）：巴计算器1一T456*jffOOg+ACI0

4、iSqrtSinCgTanLegexpLn六、心得体会我们组要设计一个程序，题为：计算器程序设计。既为计算器，我们编写后的程序代码，就必须实现平常计算器能够实现的基本功能。基本实现9的开方功能功能：基本的加，减，乘，除，开方等简单运算。通过向老师请教，我们设计的计算器不但得实现上述功能，而且还需要实现进制间的相互转换，像一些基本函数(SIN,COS,TAN)，我们设计的计算器也应该轻易的得到使用者想要得到的答案。为顺利完成老师布置的任务，我们三个人不得不做一个详细的规划，以便育眦30作品。第1天，老师给我们讲了一些基本操作和注意事项，接下来的时间就只能靠我们自己了。而我们第一天的任务就是要完成

5、简单的加，减，乘除运算的窗口设计和代码编写。幸运的是，这些程序代码都是能够在图书馆找到资料的。于是，我们反复输入数据都能够快速得到正确答案，自豪感不言而喻。第2天，我们要完成的任务是有关三角函数的问题，虽然代码也有，但对于我们初学者来说，还是有一定难度的。我们去图书馆搜集了好多资料。我们应该说第一次遇到了真正的挑战，我们不得不运用自己知道的VB知识进行修改和完善。通过这次短暂的VB实训，我看到了自己的不足，也学会了更加真确的看待自己。在本次设计中，在本设计的设计和制作过程中，很多同学、老师都热心地帮助了我，尤其是指导老师给予我悉心指导和帮助，自始至终关心督促毕业设计进程和进度，帮助解决毕业设计

6、中遇到的许多问题，还不断向我们传授分析问题和解决问题的办法，并指出了正确的努力方向，使我在毕设过程中少走很多弯路。在此向老师和同学表示深深的感谢！再次感谢所有给予我支持、鼓励和帮助的人！七、附录(程序)PublicchoiceAsStringPubliccurrentAsDoublePublicprevAsDoublePubliccounterAsIntegerPrivateDeclareSubSleepLib"kernel32”(ByValdwMillisecondsAsLong)PrivateSubac_Click()Text1.Text=""prev=cur

7、rent=0EndSubPrivateSubasterisk_Click()Text1.Text=""choice="*"prev=currentcurrent=0EndSubPrivateSubCommand1_Click(IndexAsInteger)Textl.Text=Textl.Text&Command1(Index).Captioncurrent=Textl.Textasterisk.Enabled=Trueequal.Enabled=Trueexpo.Enabled=Truelogn.Enabled=Truelogten.Enabl

8、ed=Trueminus.Enabled=Trueplus.Enabled=Truesign.Enabled=Trueslash.Enabled=Truesroot.Enabled=Truetangent.Enabled=Truecosine.Enabled=Truesine.Enabled=TrueEndSubPrivateSubCommand3_Click()DimMyAngle,MyHSinMyAngle=1.3定义角度（以"弧度"为单位）计算双曲正弦函数MsgBox(Exp(MyAngle)-Exp(-1*MyAngle)/2值(sin()EndSubPrivate

9、Subcosine_Click()Textl.Text=Cos(current*3.14159265358979/180)current=Cos(current*3.14159265358979/180)EndSubPrivateSubequal_Click()Ifchoice="+"Thencurrent=prev+currentText1.Text=currentElselfchoice="-"Thencurrent=prev-currentText1.Text=currentElselfchoice="*"Thencurrent

10、=prev*currentText1.Text=currentElselfchoice="/"Andcurrent<>0Thencurrent=prev/currentText1.Text=currentElseText1.Text="PressACtocontinue"dz.Visible=Truedz.Caption="DivisionbyZERO"EndIfIfcurrent<0Thensroot.Enabled=FalseElsesroot.Enabled=TrueEndIfEndSubPrivateSube

11、xpo_Click()Text1.Text=Exp(current)current=Exp(current)EndSubPrivateSubexpo10_Click()DimiAsIntegerDimjAsDoublej=currentcurrent=1Fori=1TojStep1current=current*10NextiTextl.Text=currentEndSubPrivateSubinvcos_Click()DimtempAsDoubletemp=current*3.14159265358979/180If(temp<=1Andtemp>=-1)ThenTextl.Te

12、xt=1/Cos(temp)current=1/Cos(temp)EndIfinvsine.Visible=Falseinvcos.Visible=Falseinvtan.Visible=Falseexpo.Visible=Falseexpo10.Visible=FalseEndSubPrivateSubinvsine_Click()DimtempAsDoubletemp=current*3.14159265358979/180If(temp<=1Andtemp>=-1)ThenText1.Text=1/Sin(temp)current=1/Sin(temp)EndIfEndSub

13、PrivateSubinvtan_Click()Text1.Text=1/Tan(current*3.14159265358979/180)current=1/Tan(current*3.14159265358979/180)invsine.Visible=Falseinvcos.Visible=Falseinvtan.Visible=Falseexpo.Visible=Falseexpo10.Visible=FalseEndSubPrivateSublogn_Click()OnErrorGoToToExit'打开错误陷阱Text1.Text=Log(current)current=L

14、og(current)ExitSubToExit:ResumeNextEndSubPrivateSublogten_Click()OnErrorGoToToExit'打开错误陷Textl.Text=Log(current)/Log(10)current=Log(current)/Log(10)1ExitSubToExit:ResumeNextEndSubPrivateSubmode_MouseDown(ButtonAsInteger,shiftAsInteger,XAsSingle,YAsSingle)counter=counter+1Ifcounter>2Thencounter

15、=1EndIfIfcounter=2Thendisplaylb.Caption="NormalCalculator"displaylb.ForeColor=&HFFC0C0Form1.Width=4830sine.Visible=Falsecosine.Visible=Falsetangent.Visible=Falselogn.Visible=Falselogten.Visible=Falserandom.Enabled=Falserandom.Visible=Falseshiftb.Visible=Falserecall.Visible=FalseElsedis

16、playlb.Caption="ScientificCalculator"displaylb.ForeColor=&HC0&Form1.Width=5670sine.Visible=Truecosine.Visible=Truetangent.Visible=Truelogn.Visible=Truelogten.Visible=Truerandom.Enabled=Truerandom.Visible=Trueshiftb.Visible=Truerecall.Visible=TrueEndIfEndSubPrivateSubpoint_Click()If

17、Text1.Text=""ThenText1.Text="0."ElseText1.Text=Text1.Text&EndIfEndSubPrivateSubrandom_Click()Text1.Text=(2.1021020134*Rnd+1)EndSubPrivateSubrecall_Click()Text1.Text=currentEndSubPrivateSubshiftb_Click()invsine.Visible=Trueinvcos.Visible=Trueinvtan.Visible=Trueexpo.Visible=Tru

18、eexpo10.Visible=TrueIfText1.Text<=1AndText1.Text>=-1Theninvsine.Enabled=Trueinvcos.Enabled=TrueEndIfinvtan.Enabled=Trueexpo.Enabled=Trueexpo10.Enabled=TrueEndSubPrivateSubsign_Click()Ifcurrent<0ThenText1.Text=-currentcurrent=-currentElseText1.Text="-"&Text1.Textcurrent=-curren

19、tEndIfIfcurrent<0Thensroot.Enabled=FalseElsesroot.Enabled=TrueEndIfEndSubPrivateSubminus_Click()Text1.Text=""choice="-"prev=currentcurrent=0EndSubPrivateSubplus_Click()Text1.Text=""choice="+"prev=currentcurrent=0EndSubPrivateSubsine_Click()Text1.Text=Sin(current*3.14159265358979/180)current=Sin(current*3.14159265358979/180)EndSubPrivateSubslash_Click()Text1.Text=""choice="/"prev=currentcurrent=0EndSubPrivateSubsroot_Click()Text1.Text=Sqr(current)current=Sqr(current)E