unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons,Math;//Math是数学运算单元
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
SpeedButton4: TSpeedButton;
SpeedButton5: TSpeedButton;
SpeedButton6: TSpeedButton;
SpeedButton7: TSpeedButton;
StaticText1: TStaticText;
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton7Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
Statictext1.Caption := TSpeedButton(Sender).Caption;
end;
procedure TForm1.SpeedButton7Click(Sender: TObject);
begin
if Trim(StaticText1.Caption) = '+' then
Edit3.Text := FloatToStr(StrToFloat(Edit1.Text)+
StrToFloat(Edit2.Text));
if Trim(StaticText1.Caption) = '-' then
Edit3.Text := FloatToStr(StrToFloat(Edit1.Text)-
StrToFloat(Edit2.Text));
if Trim(StaticText1.Caption) = '*' then
Edit3.Text := FloatToStr(StrToFloat(Edit1.Text)*
StrToFloat(Edit2.Text));
if Trim(StaticText1.Caption) = '/' then
Edit3.Text := FloatToStr(StrToFloat(Edit1.Text)/
StrToFloat(Edit2.Text));
if Trim(StaticText1.Caption) = 'Pow' then
Edit3.Text := FloatToStr(Power(StrToFloat(Edit1.Text),
StrToFloat(Edit2.Text)));
if Trim(StaticText1.Caption) = 'Sqrt' then
Edit3.Text := FloatToStr(Sqrt(StrToFloat(Edit1.Text)));
end;
end.
分享到:
相关推荐
微信小程序 简易计算器 (源码)微信小程序 简易计算器 (源码)微信小程序 简易计算器 (源码)微信小程序 简易计算器 (源码)微信小程序 简易计算器 (源码)微信小程序 简易计算器 (源码)微信小程序 简易计算器 (源码)微信...
利用java实现简易计算器,java源代码,利用java实现简易计算器
数电实验二:简易计算器(设计报告).pdf数电实验二:简易计算器(设计报告).pdf数电实验二:简易计算器(设计报告).pdf数电实验二:简易计算器(设计报告).pdf数电实验二:简易计算器(设计报告).pdf数电实验二:简易...
简易计算器java实训报告.pdf
66-矩阵键盘简易计算器(51单片机C语言实例Proteus仿真和代码)66-矩阵键盘简易计算器(51单片机C语言实例Proteus仿真和代码)66-矩阵键盘简易计算器(51单片机C语言实例Proteus仿真和代码)66-矩阵键盘简易计算器(51...
数电实验二:简易计算器(设计报告) (2).pdf数电实验二:简易计算器(设计报告) (2).pdf数电实验二:简易计算器(设计报告) (2).pdf数电实验二:简易计算器(设计报告) (2).pdf数电实验二:简易计算器(设计报告) (2).pdf...
简易计算器的汇编语言程序设计报告包括加减乘除,有简单的界面
微信小程序 小工具类 简易计算器 (源代码+截图)微信小程序 小工具类 简易计算器 (源代码+截图)微信小程序 小工具类 简易计算器 (源代码+截图)微信小程序 小工具类 简易计算器 (源代码+截图)微信小程序 小...
嵌入式实验报告-简易计算器.pdf
(微信小程序毕业设计)简易计算器(源码+截图)(微信小程序毕业设计)简易计算器(源码+截图)(微信小程序毕业设计)简易计算器(源码+截图)(微信小程序毕业设计)简易计算器(源码+截图)(微信小程序毕业设计)简易计算器(源码+...
基于LabVIEW编写的简易计算器,初学者适合看看研究,源码文件
flex 简易计算器flex 简易计算器flex 简易计算器flex 简易计算器
一个简易计算器源代码,用c++builder 写成……
Swing版的简单计算器,实现加减乘除,第一次写,希望大家给点建议。
C#简单计算器,采用vs2017作为开发工具,可以实现计算机的加减乘除等基本功能,可作为课程设计使用,需要说明书请下载后私聊
jQuery简易计算器,需要的话,可以学习一下。不懂得地方请留言
微信小程序实现的简易计算器,可以实现简单的运算(包括:加减乘除、平方根等) 微信小程序实现的简易计算器,可以实现简单的运算(包括:加减乘除、平方根等) 微信小程序实现的简易计算器,可以实现简单的运算...
基于MATLAB-GUI的简易计算器设计,基于MATLAB GUI的计算器设计是利用GUIDE创建图形用户界面进行计算器设计。设计计算器时,主要是考虑到计算器的易用性、功能的常用程度进行计算器界面与功能的设计。通过调整控件和...
ANDROID简单计算器课程设计.pdf
数电实验二:简易计算器(实验报告).docx数电实验二:简易计算器(实验报告).docx数电实验二:简易计算器(实验报告).docx数电实验二:简易计算器(实验报告).docx数电实验二:简易计算器(实验报告).docx数电实验二:...