《课程设计计算器的制作毕业论文》由会员分享，可在线阅读，更多相关《课程设计计算器的制作毕业论文（40页珍藏版）》请在金锄头文库上搜索。
1、第一章系统分析11 系统设计要求：1利用Delphi开发工具制作一计算器，该计算器要现基本四则运算。2实现统计计算，三角运算，对数运算，逻辑运算。3实现十六进制，十进制，八进制，二进制的转换。12 系统原理框图本次课程设计的原理框图如图1.1所示：图1.1系统原理框图13 系统设计原理计算器的制作的实现主要通过Delphi软件的添加基本控件以与编程序来实现基本四则运算，统计运算，三角运算，对数运算，逻辑运算以与进制间的转换第二章系统设计过程2.1 概要设计1. 各组件的基本使用该设计要求的主要是数学上的简单计算，需要输入的控件和输出的控件（显示结果）输入控件使用button。而输出控件使用便于
2、编辑的edit框来实现。2.功能模块设计 从界面上来看，程序分两个部分.菜单和按钮。 从软件构架上分为输入模块和输出模块。 输入模块程序的主要是按钮的单击事件。输出模块主要是EDIT框的text属性的变化。2.2 详细设计1.基本四则运算 实现加,减,乘,除.的运算.使用BUTTON按钮，给对应的按钮编上相应的程序。核心原程序：var i:real;begin num2:=strtonum(edit1.text,haob); if sign=1 then begin if num2=0 then application.MessageBox(除数为零，不能运算！,提示信息,mb_ok) els
3、e begin num3:=num1 / num2; edit1.Text:=numtostr(num3,haob); end; end else if sign=2 then begin num3:=num1*num2; edit1.text:=numtostr(num3,haob); end else if sign=3 then begin num3:=num1-num2; edit1.text:=numtostr(num3,haob); end else if sign=4 then begin num3:=num1+num2; edit1.text:=numtostr(num3,ha
4、ob); end。2.统计运算 实现求和，就平均值的计算。核心源程序：var s:real; i:integer;begin s:=0; for i:=1 to stat_count do s:=s+stat_memi; s:=s /stat_count; Edit1.text:=numtostr(s,haob);end;var s:real; i:integer;begin s:=0; for i:=1 to stat_count do s:=s+stat_memi; Edit1.text:=numtostr(s,haob);end;3.三角运算 实现正弦，余弦，正切函数的计算。核心源程序：
5、var t1:real; t2:extended; s:string;begin t1:=strtofloat(Edit1.text); if radiobutton5.Checked then t1:=t1 * 3.14159 /180; t2:=sin(t1); str(t2:6:4,s); edit1.text:=s;4.对数运算实现Ln,log的运算。核心源程序：var s:real; s1:string;begin s1:=edit1.text; s:=strtonum(s1,haob); if s0 then begin s:=log10(s); edit1.text:=numto
6、str(s,haob); end else application.MessageBox(数值错误，请检查！,提示信息,mb_ok);end;5.逻辑运算 实现与,或,非的运算.核心源程序:if sign=7 then begin if num1*num2=0 then num3:=0 else num3:=1; edit1.text:=numtostr(num3,haob); end else if sign=8 then begin if num1+num2=0 then num3:=0 else num3:=1; edit1.text:=numtostr(num3,haob); end
7、else if sign=9 then begin if (num1=0) and (num20) then num3:=1 else if (num10) and (num2=0) then num3:=1 else num3:=0; edit1.text:=numtostr(num3,haob); end else application.MessageBox(1111除数为零，不能运算！,提示信息,mb_ok); n1_flag:=false;end;6.进制转换运算实现十六进制,十进制,八进制,二进制间的转换.核心源程序:begin checkHex;end;begin CheckOc
8、tavo;end;begin CheckBinary;end;begin checkHex;end;第三章系统调试过程在软件调试中，采用了模块化的思想进行调试。分四则运算,统计运算,三角运算,对数运算,逻辑运算,进制转换运算,6个模块进行编程调试。1. 打开Delphi7,先放置Button,edit,groupbox,mainmenu,radiobutton控件.2. 給相应的控件编程序.3. 运行程序4. 程序运行成功,但是实现功能时有可能出现乱码情况,未能解决.第五章结论通过本系统的开发，本人对软件开发过程有了更清晰的了解，首先是问题定义、需求分析，然后是功能设计、详细设计等，并对软件测
9、试的方法、手段有了较深的理解，同时对制造业的流程有了一个系统的认识。在开发过程还认真学习了与系统相关的知识，极拓宽了本人的知识面,本人感到收获不小。在系统的开发初期，从开始熟悉这些知识到对整体设计有了解，再从概要设计、详细设计到开始编码，以与最后的测试，整个过程感觉很充实，虽然遇到了不少困难，但通过自己查资料、或是向指导老师请教以与向同事请教，而设计出解决方案并成功实现时，那种成就感和满足感足以鼓励自己加班加点的辛苦。在调试过程中。“=”号的处理我改了5次，“+”号的处理我该了7次，很多东西是事后发现有些重大的功能没有实现，或是有严重性的错误才不得重新设计的。而且很多时候是一个地方的改动必须要
10、牵连到其他地方的变化，这也是最令我头痛的。所以觉得在做程序之前，画好流程图，考虑好细节才是最重要的，因为毕竟一个人的能力有限，未能完全实现功能,但是这次课程设计使我学到了许多，我相信这对我以后做程序时有很大帮助。参考文献1 何鹏飞.Delphi7 程序设计教程M.：清华大学，2003.2 孟岩.tcp网络编程四书五经M.：清华大学， 20033 黄超.Delphi网络应用开发技术与实例M.：清华大学,20054 王沛.Delphi7编程入门M.：机械工业,2006附录A:计算器外观图附录B:源程序procedure TCalculator_Form.FormActivate(Sender: T
11、Object);begin edit1.UseRightToLeftAlignment; start_flag:=false;float_flag:=false; n1_flag:=false;mem_flag:=false; if n7.Checked then begin ScienticToStardard; haob:=10; end else begin StardardToScientic; if N10.Checked then haob:=16 else if n11.checked then haob:=10 else if n12.Checked then haob:=8
12、else haob:=2; end; Button35.Enabled:=false; Button36.Enabled:=false; Button37.Enabled:=false; Button38.Enabled:=false; stat_count:=0;end;procedure TCalculator_Form.N7Click(Sender: TObject);begin ScienticToStardard;end;procedure TCalculator_Form.N8Click(Sender: TObject);begin StardardToScientic;end;procedure TCalculator_Form.StardardToScientic;begin N7.Checked:=false; N8.Checked:=true; N11.Enabled:=true; N12.Enabled:=true; N13.Enabled:=true; N10.enabled:=true; N14.Enabled:=tru
