实验报告(用DELPHI做一个简易计算器)

数据库实验报告

姓名：

学号：

专业：

院系：

实验二、用熟悉Delphi的开发环境,用Delphi设计一个简易的计算器

一、实验目的

1、练习Delphi中Edit组件和Button组件的使用方法。

2、能实现计算器的基本功能。

3、要求界面的设计具有个性化。

4、提交的程序前面要有分析，中间应有注释。

二、实验分析：

在设计的时候，首先考虑其“计算”功能的实现。可以通过编辑框edit的形式输入要操作的数据，然后通过选择button按键来选择运算方式。在设计时，我考虑了最基本的“加”“减”“乘”“除”运算，另外加入了“取倒数”以及“求平方”和“求立方”的操作。当然，这些操作都可以在“乘”“除”运算中实现，只是为了计算更而已。

二：实验步骤

1、实验代码：

unit Unit1;

interface

uses

Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,

Dialogs,StdCtrls;

type

TForm1=class(TForm)

Label1:TLabel;

Edit1:TEdit;

Label2:TLabel;

Edit2:TEdit;

Label3:TLabel;

Label4:TLabel;

Edit3:TEdit;

Button1:TButton;

Button2:TButton;

Button3:TButton;

Button4:TButton;

Button5:TButton;

Button6:TButton;

Button7:TButton;

Label5:TLabel;

Edit4:TEdit;

Label6:TLabel;

Label7:TLabel;

Edit5:TEdit;

Label8:TLabel;

Label9:TLabel;

Button8:TButton;

Button9:TButton;

procedure button1click(Sender:TObject);

procedure button2click(Sender:TObject);

procedure button3click(Sender:TObject);

procedure button4click(Sender:TObject);

procedure button5click(Sender:TObject);

procedure button6click(Sender:TObject);

procedure button7click(Sender:TObject);

procedure Button8Click(Sender:TObject);

procedure button9click(Sender:TObject);

private

{Private declarations}

public

{Public declarations}

end;

var

Form1:TForm1;

implementation

{$R*.dfm}

procedure TForm1.button1click(Sender:TObject);//第一个button，进行“加”操作var

x1,x2,x3:double;

begin

x1:=strtofloat(edit1.text);

x2:=strtofloat(edit2.text);

x3:=x1+x2;

edit3.text:=floattostr(x3);

end;

procedure TForm1.button2click(Sender:TObject);//第二个button，进行“减”操作var

x1,x2,x3:double;

begin

x1:=strtofloat(edit1.text);

x2:=strtofloat(edit2.text);

x3:=x1-x2;

edit3.text:=floattostr(x3);

end;

procedure TForm1.button3click(Sender:TObject);//第三个button，进行“乘”操作var

x1,x2,x3:double;

begin

x1:=strtofloat(edit1.text);

x2:=strtofloat(edit2.text);

x3:=x1*x2;

edit3.text:=floattostr(x3);

end;

procedure TForm1.button4click(Sender:TObject);//第四个button，进行“除”操作var

x1,x2,x3:double;

begin

x1:=strtofloat(edit1.text);

x2:=strtofloat(edit2.text);

if(x2<>0)then

begin

x3:=x1/x2;

edit3.text:=floattostr(x3);

end

else showmessage('除数不能为空或0')

end;

procedure TForm1.button5click(Sender:TObject);//第五个button，进行“清零”操作var

x1,x2,x3,x4,x5:double;

begin

x1:=strtofloat(edit1.text);

x2:=strtofloat(edit2.text);

x3:=strtofloat(edit3.text);

x4:=strtofloat(edit4.text);

x5:=strtofloat(edit5.text);

x1:=0;

x2:=0;

x3:=0;

x4:=0;

x5:=0;

edit1.text:=floattostr(x1);

edit2.text:=floattostr(x2);

edit3.text:=floattostr(x3);

edit4.text:=floattostr(x4);

edit5.text:=floattostr(x5);

end;