【Delphi练习】简易计算器（升级版）

最新推荐文章于 2024-08-01 10:42:41 发布
最新推荐文章于 2024-08-01 10:42:41 发布
阅读量1.2k 收藏 11
点赞数 4
分类专栏： Delphi 代码功能类 文章标签： delphi
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/qq_44759710/article/details/114978275
版权

问题描述

模拟电脑计算器制作一个计算器实现简单加减乘除

考点

  1. Delphi 窗体与组件设置及使用
  2. 数据类型、函数过程、程序设计（选择循环等）的考核

代码实现

页面显示：
在这里插入图片描述
Unit1.pas

unit Unit1;
interface
uses
  SysUtils, Types, Classes, QGraphics, QControls, QForms, QDialogs,
  QStdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Button10: TButton;
    Button11: TButton;
    Button12: TButton;
    Button13: TButton;
    Button14: TButton;
    Button15: TButton;
    Button16: TButton;
    Edit1: TEdit;
    Button17: TButton;
    Button18: 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);
    procedure Button10Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure Button13Click(Sender: TObject);
    procedure Button14Click(Sender: TObject);
    procedure Button15Click(Sender: TObject);
    procedure Button16Click(Sender: TObject);
    procedure Button17Click(Sender: TObject);
    procedure Button18Click(Sender: TObject);
    procedure Button12Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

type
  TNew1= object
    temp1: Double;
    temp2: Double;
    flag: Char;
    sign: Integer;
  public
    function Add(x: Double; y: Double): Double;
    function Sub(x: Double; y: Double): Double;
    function Mul(x: Double; y: Double): Double;
    function Divv(x: Double; y: Double):Double;
    function Get(z: Char):Double;
  end;

var
  Form1: TForm1;
  New1: TNew1;

implementation

{$R *.xfm}

function TNew1.Get(z: Char):Double;
begin
  if(z = '+')then
    result:= New1.Add(New1.temp2, New1.temp1)
  else
    if(z = '-')then
      result:= New1.Sub(New1.temp2, New1.temp1)
    else
      if(z = '*')then
        result:= New1.Mul(New1.temp2, New1.temp1)
      else
        if(z = '/')then
           result:= New1.Divv(New1.temp2, New1.temp1);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if(New1.sign = 1)then
  begin
    Edit1.Clear;
    New1.sign:= 0;
  end;
  Edit1.Text := Edit1.Text + '1';
  New1.temp1 := StrTofloat(Edit1.text);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if(New1.sign = 1)then
  begin
    Edit1.Clear;
    New1.sign:= 0;
  end;
  Edit1.Text := Edit1.Text + '2';
  New1.temp1 := StrTofloat(Edit1.text);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  if(New1.sign = 1)then
  begin
    Edit1.Clear;
    New1.sign:= 0;
  end;
  Edit1.Text := Edit1.Text + '3';
  New1.temp1 := StrTofloat(Edit1.text);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  if(New1.sign = 1)then
  begin
    Edit1.Clear;
    New1.sign:= 0;
  end;
  Edit1.Text := Edit1.Text + '4';
  New1.temp1 := StrTofloat(Edit1.text);
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
  if(New1.sign = 1)then
  begin
    Edit1.Clear;
    New1.sign:= 0;
  end;
  Edit1.Text := Edit1.Text + '5';
  New1.temp1 := StrTofloat(Edit1.text);
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
  if(New1.sign = 1)then
  begin
    Edit1.Clear;
    New1.sign:= 0;
  end;
  Edit1.Text := Edit1.Text + '6';
  New1.temp1 := StrTofloat(Edit1.text);
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
  if(New1.sign = 1)then
  begin
    Edit1.Clear;
    New1.sign:= 0;
  end;
  Edit1.Text := Edit1.Text + '7';
  New1.temp1 := StrTofloat(Edit1.text);
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
  if(New1.sign = 1)then
  begin
    Edit1.Clear;
    New1.sign:= 0;
  end;
  Edit1.Text := Edit1.Text + '8';
  New1.temp1 := StrTofloat(Edit1.text);
end;

procedure TForm1.Button9Click(Sender: TObject);
begin
  if(New1.sign = 1)then
  begin
    Edit1.Clear;
    New1.sign:= 0;
  end;
  Edit1.Text := Edit1.Text + '9';
  New1.temp1 := StrTofloat(Edit1.text);
end;

procedure TForm1.Button10Click(Sender: TObject);
begin
  if(New1.sign = 1)then
  begin
    Edit1.Clear;
    New1.sign:= 0;
  end;
  Edit1.Text := Edit1.Text + '0';
  New1.temp1 := StrTofloat(Edit1.text);
end;

procedure TForm1.Button11Click(Sender: TObject);
begin
  if(New1.sign = 1)then
  begin
    Edit1.Clear;
    New1.sign:= 0;
  end;
  Edit1.Text := Edit1.Text + '.';
  New1.temp1 := StrTofloat(Edit1.text);
end;

procedure TForm1.Button13Click(Sender: TObject);
begin
  Edit1.Clear;
  if(New1.flag = '')then
    New1.temp2:= New1.temp1
  else
  begin
    New1.temp2:= New1.Get(New1.flag);
  end;
  New1.flag:= '+';
end;

procedure TForm1.Button14Click(Sender: TObject);
begin
  Edit1.Clear;
  if(New1.flag = '')then
    New1.temp2:= New1.temp1
  else
  begin
    New1.temp2:= New1.Get(New1.flag);
  end;
  New1.flag:= '-';
end;

procedure TForm1.Button15Click(Sender: TObject);
begin
  Edit1.Clear;
  if(New1.flag = '')then
    New1.temp2:= New1.temp1
  else
  begin
    New1.temp2:= New1.Get(New1.flag);
  end;
  New1.flag:= '*';
end;

procedure TForm1.Button16Click(Sender: TObject);
begin
  Edit1.Clear;
  if(new1.flag = '')then
    New1.temp2:= New1.temp1
  else
  begin
    New1.temp2:= New1.Get(New1.flag);
  end;
  New1.flag:= '/';
end;

procedure TForm1.Button17Click(Sender: TObject);
begin
  Edit1.Clear;
  New1.temp1:= 0;
  New1.temp2:= 0;
  New1.flag:= #0;
  New1.sign:= 0;
end;

procedure TForm1.Button18Click(Sender: TObject);
begin
  if(Length(Edit1.Text) < 2)then
  begin
    Edit1.Text:= '0';
  end
  else
    Edit1.Text:= Copy(Edit1.Text,1,Length(Edit1.Text)-1);
  New1.temp1 := StrTofloat(Edit1.text);
end;

function TNew1.Add(x: Double; y: Double): Double;
begin
  Result:= x + y;
end;

function TNew1.Sub(x: Double; y: Double): Double;
begin
  Result:= x - y;
end;

function TNew1.Mul(x: Double; y: Double): Double;
begin
  Result:= x * y;
end;

function TNew1.Divv(x: Double; y: Double):Double;
begin
  if(y = 0)then
    begin
      Result:= 0;
      ShowMessage('除数不能为0');
      New1.temp1:= 0;
      New1.temp2:= 0;
    end
  else
    Result:= x / y;
end;

procedure TForm1.Button12Click(Sender: TObject);
begin
  if(New1.flag = '+')then
    Form1.Edit1.Text:= FloatToStr(New1.Add(New1.temp2, New1.temp1))
  else
    if(New1.flag = '-')then
      Form1.Edit1.Text:= FloatToStr(New1.Sub(New1.temp2, New1.temp1))
    else
      if(New1.flag = '*')then
        Form1.Edit1.Text:= FloatToStr(New1.Mul(New1.temp2, New1.temp1))
      else
        if(New1.flag = '/')then
           Form1.Edit1.Text:= FloatToStr(New1.Divv(New1.temp2, New1.temp1));
  New1.temp1:= StrToFloat(Form1.Edit1.Text);
  New1.temp2:= StrToFloat(Form1.Edit1.Text);
  New1.sign:= 1;
  New1.flag:= #0;
end;
end.

代码升级之处

  1. 可以实现两个以上的数的运算
  2. 每次出结果前会清除上一步结果
  3. 可以实现结果作加数、减数等继续计算
根号二点五
关注
专栏目录
Delphi 计算器
weixin_42528089的博客
11-16 554
 计算器V1: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Edit1: TEdit; E...
Delphi练习一
易元——美好吧
03-03 595
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, jpeg; type TForm1 = class(TForm) Label1: TLabel; Edi
Delphi制作的简易计算器
11-27
Delphi制作的简单计算器，加、减、乘、除。
用Delphi做简易计算器
05-11
delphi课程实验之一，只实现了简单的运算符，有兴趣的童鞋可以在此基础上进一步增强计算器的功能。
使用delphi开发的计算器，案例
最新发布
qq_52195445的博客
08-01 262
delphi写的计算器案例
delphi 计算器（含全部代码）
11-26
用于DELPHI初学者的演示程序，包括算法、背景图片、背景颜色的设置，同时也包含了对小数点位数的控制，具有开关灯的功能，字符串换算类型转变等的实例，在DELPHI 10.1中调试通过
程序员升级攻略
黄俊东的专栏
03-24 1624
本文转载自http://coolshell.cn/articles/4990.html 月光博客6月12日发表了《写给新手程序员的一封信》，翻译自《An open letter to those who want to start programming》，我的朋友（他在本站的id是Mailper）告诉我，他希望在酷壳上看到一篇更具操作性的文章。因为他也是喜欢编程和技术的家伙，于是，我让
程序员技术升级攻略
Java海洋
07-25 1815
月光博客6月12日发表了《写给新手程序员的一封信》，翻译自《An open letter to those who want to start programming》，我的朋友（他在本站的id是Mailper）告诉我，他希望在酷壳上看到一篇更具操作性的文章。因为他也是喜欢编程和技术的家伙，于是，我让他把他的一些学习Python和Web编程的一些点滴总结一下。于是他给我发来了一些他的心得和经历
程序员技术升级攻略(转)
liyf155的专栏
02-11 266
月光博客6月12日发表了《写给新手程序员的一封信》，翻译自《An open letter to those who want to start programming》，我的朋友（他在本站的id是Mailper）告诉我，他希望在酷壳上看到一篇更具操作性的文章。因为他也是喜欢编程和技术的家伙，于是，我让他把他的一些学习Python和Web编程的一些点滴总结一下。于是他给我发来了一些他的心得和经历，...
Delphi版简易计算器
12-06
Delphi版简易计算器是一款基于Delphi编程环境开发的计算器应用，主要面向初学者设计，用于帮助他们学习Delphi编程语言和基本的GUI（图形用户界面）设计。Delphi是一种强大的对象 Pascal 编程工具，以其高效的编译器...
delphi 简易计算器
05-22
本项目“delphi 简易计算器”是一个使用Delphi编写的简单计算器程序，旨在实现基本的数学计算功能。 在Delphi中创建这样的计算器通常涉及以下几个核心知识点： 1. **用户界面设计**：Delphi使用可视化组件库（VCL...
用delphi写的计算器
02-09
用delphi写的简单计算器，包含所有代码。放在Delphi7中即可使用
Delphi简易计算器
05-14
可实现最基础的加减乘除运算，可以对数字进行求相反数
Delphi做的简单计算器
03-30
这是一个用Delphi做的简易计算器，只支持加、减、乘、除、开方，倒取运算，不识别运算优先级，是一个非常简易的计算器。
Delphi编写的简易计算器（含源码）
09-24
Delphi编写的简易计算器,仿windows里的计算器，包括加减乘除等操作。欢迎各位爱好者共同探讨。共同进步！
delphi7 制作的计算器
04-01
delphi7 制作的计算器，里面很多计算公式代码供初学者参考参考
基于Delphi设计的简易计算器
05-31
本项目是基于Delphi设计的简易计算器，旨在提供基本的数学运算功能，如加、减、乘、除。通过这个项目，我们可以深入探讨以下几个关键知识点： 1. **Delphi IDE**：Delphi的用户界面使得开发过程更加直观，它提供了...
Delphi编辑简单计算器
Francis的博客
11-14 4580
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) edt1: TEdit; btn1: TButton; btn
Delphi学习1--一个小练习
cuihao0532的博客
12-05 511
更新UI：Update();---------------------------------------------------------------------------------------当前线程暂停：Sleep(毫秒);----------------------------------------------------------------------------------
delphi制作简易计算器
05-20
以下是一个简单的 Delphi 计算器示例: 1. 创建一个新的 Delphi 应用程序项目。 2. 将一个 TEdit 控件用作计算器显示器，并设置其 ReadOnly 属性为 True。 3. 将多个 TButton 控件用作计算器数字和操作符键，并设置它们的 Caption 属性分别为 0~9 和 +、-、*、/、=。 4. 为每个按钮添加 OnClick 事件处理程序。 5. 在事件处理程序中使用 if 语句或 case 语句来确定用户点击的是哪个按钮，并在计算器显示器上显示相应的数字或操作符。 6. 当用户点击等号按钮时，执行相应的计算并将结果显示在计算器显示器上。 以下是示例代码： ```delphi unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Button5: TButton; Button6: TButton; Button7: TButton; Button8: TButton; Button9: TButton; Button10: TButton; Button11: TButton; Button12: TButton; Button13: TButton; Button14: TButton; Button15: TButton; procedure ButtonClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; Op1, Op2: Double; Operator: Char; implementation {$R *.dfm} procedure TForm1.ButtonClick(Sender: TObject); var Button: TButton; Value: string; begin Button := TButton(Sender); Value := Button.Caption; case Value of '0'..'9': begin Edit1.Text := Edit1.Text + Value; end; '+', '-', '*', '/': begin Op1 := StrToFloat(Edit1.Text); Operator := Value[1]; Edit1.Clear; end; '=': begin Op2 := StrToFloat(Edit1.Text); case Operator of '+': Edit1.Text := FloatToStr(Op1 + Op2); '-': Edit1.Text := FloatToStr(Op1 - Op2); '*': Edit1.Text := FloatToStr(Op1 * Op2); '/': Edit1.Text := FloatToStr(Op1 / Op2); end; end; end; end; end. ``` 请注意，此示例仅用于演示目的，可能缺少错误处理和其他功能。建议在实际开发中添加这些功能以提高应用程序的稳定性和可靠性。
评论 2
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值