计算器（delphi）

最新推荐文章于 2024-08-01 10:42:41 发布
最新推荐文章于 2024-08-01 10:42:41 发布
阅读量161 收藏
点赞数
原文链接：http://www.cnblogs.com/xiaoyesoso/p/4247724.html
版权 
  1  unit Unit1;
  2 
  3 interface
  4 
  5 uses
  6   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7   Dialogs, StdCtrls, bsSkinData, BusinessSkinForm, Mask, bsSkinBoxCtrls, bscalc,
  8   bsSkinCtrls;
  9 
 10 type
 11   TForm1 = class(TForm)
 12     Button2: TButton;
 13     Button3: TButton;
 14     Button4: TButton;
 15     Button5: TButton;
 16     Button6: TButton;
 17     Button7: TButton;
 18     Button8: TButton;
 19     Button9: TButton;
 20     Button10: TButton;
 21     Button11: TButton;
 22     Button12: TButton;
 23     Button13: TButton;
 24     Button14: TButton;
 25     Button15: TButton;
 26     Button16: TButton;
 27     Button17: TButton;
 28     Button18: TButton;
 29     Button19: TButton;
 30     Button20: TButton;
 31     Button21: TButton;
 32     Button22: TButton;
 33     bsBusinessSkinForm1: TbsBusinessSkinForm;
 34     bsSkinData1: TbsSkinData;
 35     Edit1: TbsSkinEdit;
 36     bsCompressedStoredSkin1: TbsCompressedStoredSkin;
 37     Edit2: TbsSkinEdit;
 38     Edit3: TbsSkinEdit;
 39     Edit4: TbsSkinEdit;
 40     Label1: TLabel;
 41     Button1: TButton;
 42     Button23: TButton;
 43     procedure Button1Click(Sender: TObject);
 44     procedure FormCreate(Sender: TObject);
 45     procedure Button2Click(Sender: TObject);
 46     procedure Button3Click(Sender: TObject);
 47     procedure Button4Click(Sender: TObject);
 48     procedure Button5Click(Sender: TObject);
 49     procedure Button6Click(Sender: TObject);
 50     procedure Button7Click(Sender: TObject);
 51     procedure Button8Click(Sender: TObject);
 52     procedure Button9Click(Sender: TObject);
 53     procedure Button10Click(Sender: TObject);
 54     procedure Button11Click(Sender: TObject);
 55     procedure Button12Click(Sender: TObject);
 56     procedure Button13Click(Sender: TObject);
 57     procedure Button14Click(Sender: TObject);
 58     procedure Button15Click(Sender: TObject);
 59     procedure Button16Click(Sender: TObject);
 60     procedure Edit1Change(Sender: TObject);
 61     procedure Edit3Change(Sender: TObject);
 62     procedure Edit1Enter(Sender: TObject);
 63     procedure Edit3Enter(Sender: TObject);
 64     procedure Button17Click(Sender: TObject);
 65     procedure Button18Click(Sender: TObject);
 66     procedure Button19Click(Sender: TObject);
 67     procedure Button20Click(Sender: TObject);
 68     procedure Button21Click(Sender: TObject);
 69     procedure Button22Click(Sender: TObject);
 70     procedure bsSkinButton1Click(Sender: TObject);
 71     procedure Button23Click(Sender: TObject);
 72   private
 73     { Private declarations }
 74   public
 75     { Public declarations }
 76 
 77   end;
 78 
 79 var
 80   Form1: TForm1;
 81   str1:String;
 82    str2:String;
 83     int1:real;
 84      int2:real;
 85      bo:real;
 86     result:real;
 87 implementation
 88 
 89 {$R *.dfm}
 90 
 91 procedure TForm1.Button1Click(Sender: TObject);
 92 begin
 93 
 94 if bo=0 then
 95  begin
 96   str1:=str1+'1';
 97   Edit1.Text:=str1;
 98   end
 99 Else
100   begin
101   str2:=str2+'1';
102   Edit3.Text:=str2;
103   end
104 
105 
106 end;
107 
108 procedure TForm1.FormCreate(Sender: TObject);
109 begin
110 
111 int1:=0;
112  int2:=0;
113  bo:=0;
114  SetWindowLong(Edit1.Handle,GWL_STYLE,GetWindowLong(Edit1.Handle,GWL_STYLE) or Es_right);
115  SetWindowLong(Edit2.Handle,GWL_STYLE,GetWindowLong(Edit2.Handle,GWL_STYLE) or Es_right);
116  SetWindowLong(Edit3.Handle,GWL_STYLE,GetWindowLong(Edit3.Handle,GWL_STYLE) or Es_right);
117  SetWindowLong(Edit4.Handle,GWL_STYLE,GetWindowLong(Edit4.Handle,GWL_STYLE) or Es_right);
118 end;
119 
120 procedure TForm1.Button20Click(Sender: TObject);
121 begin
122 edit2.Text:='';
123 edit3.Text:='';
124 int2:=0;
125 edit4.Text:= FormatFloat('0.00000',1/int1) ;
126 end;
127 
128 procedure TForm1.Button21Click(Sender: TObject);
129 begin
130   edit2.Text:='';
131 edit3.Text:='';
132 int2:=0;
133 edit4.Text:= FormatFloat('0.00000',Sqrt(int1)) ;
134 end;
135 
136 procedure TForm1.Button22Click(Sender: TObject);
137 begin
138 result:=int1*int2/100;
139  Edit4.Text:=FormatFloat('0.00000',result);
140 end;
141 
142 procedure TForm1.Button23Click(Sender: TObject);
143 begin
144 if bo=0 then
145     edit1.Text:=''
146     else
147     edit3.Text:='';
148 
149 end;
150 
151 procedure TForm1.Button2Click(Sender: TObject);
152 
153 
154 begin
155 if bo=0 then
156  begin
157   str1:=str1+'2';
158   Edit1.Text:=str1;
159   end
160 Else
161   begin
162   str2:=str2+'2';
163   Edit3.Text:=str2;
164   end
165 end;
166 
167 procedure TForm1.Button3Click(Sender: TObject);
168 begin
169 if bo=0 then
170  begin
171   str1:=str1+'3';
172   Edit1.Text:=str1;
173   end
174 Else
175   begin
176   str2:=str2+'3';
177   Edit3.Text:=str2;
178   end
179 end;
180 
181 procedure TForm1.Button4Click(Sender: TObject);
182 begin
183 if bo=0 then
184  begin
185   str1:=str1+'4';
186   Edit1.Text:=str1;
187   end
188 Else
189   begin
190   str2:=str2+'4';
191   Edit3.Text:=str2;
192   end
193 end;
194 
195 procedure TForm1.Button5Click(Sender: TObject);
196 begin
197  if bo=0 then
198  begin
199   str1:=str1+'5';
200   Edit1.Text:=str1;
201   end
202 Else
203   begin
204   str2:=str2+'5';
205   Edit3.Text:=str2;
206   end
207 end;
208 
209 procedure TForm1.Button6Click(Sender: TObject);
210 begin
211 if bo=0 then
212  begin
213   str1:=str1+'6';
214   Edit1.Text:=str1;
215   end
216 Else
217   begin
218   str2:=str2+'6';
219   Edit3.Text:=str2;
220   end
221 end;
222 
223 procedure TForm1.Button7Click(Sender: TObject);
224 begin
225 if bo=0 then
226  begin
227   str1:=str1+'7';
228   Edit1.Text:=str1;
229   end
230 Else
231   begin
232   str2:=str2+'7';
233   Edit3.Text:=str2;
234   end
235 end;
236 
237 procedure TForm1.Button8Click(Sender: TObject);
238 begin
239 if bo=0 then
240  begin
241   str1:=str1+'8';
242   Edit1.Text:=str1;
243   end
244 Else
245   begin
246   str2:=str2+'8';
247   Edit3.Text:=str2;
248   end
249 end;
250 
251 procedure TForm1.Button9Click(Sender: TObject);
252 begin
253 if bo=0 then
254  begin
255   str1:=str1+'9';
256   Edit1.Text:=str1;
257   end
258 Else
259   begin
260   str2:=str2+'9';
261   Edit3.Text:=str2;
262   end
263 end;
264 
265 procedure TForm1.Edit1Change(Sender: TObject);
266 begin
267     str1:=edit1.Text;
268     if edit1.Text<>'' then
269    int1:=strtofloat(edit1.Text)
270    else
271    int1:=0;
272 
273 end;
274 
275 procedure TForm1.Edit1Enter(Sender: TObject);
276 begin
277     bo:=0;
278 end;
279 
280 procedure TForm1.Edit3Change(Sender: TObject);
281 begin
282    str2:=edit3.Text;
283   if edit3.Text<>'' then
284  int2:=strtofloat(edit3.Text)
285  else
286    int2:=0;
287 
288 end;
289 
290 procedure TForm1.Edit3Enter(Sender: TObject);
291 begin
292   bo:=1;
293 end;
294 
295 procedure TForm1.bsSkinButton1Click(Sender: TObject);
296 begin
297 if bo=0 then
298  begin
299   str1:=str1+'1';
300   Edit1.Text:=str1;
301   end
302 Else
303   begin
304   str2:=str2+'1';
305   Edit3.Text:=str2;
306   end
307 end;
308 
309 procedure TForm1.Button10Click(Sender: TObject);
310 begin
311 if bo=0 then
312  begin
313   str1:=str1+'0';
314   Edit1.Text:=str1;
315   end
316 Else
317   begin
318   str2:=str2+'0';
319   Edit3.Text:=str2;
320   end
321 end;
322 
323 procedure TForm1.Button11Click(Sender: TObject);
324 begin
325  bo:=1;
326 Edit2.Text:='+';
327 end;
328 
329 procedure TForm1.Button12Click(Sender: TObject);
330 begin
331 bo:=1;
332 Edit2.Text:='-';
333 end;
334 
335 procedure TForm1.Button13Click(Sender: TObject);
336 begin
337 bo:=1;
338 Edit2.Text:='*';
339 end;
340 
341 procedure TForm1.Button14Click(Sender: TObject);
342 begin
343 bo:=1;
344 Edit2.Text:='/';
345 end;
346 
347 procedure TForm1.Button15Click(Sender: TObject);
348 begin
349 
350 
351 if  Edit2.Text='+' then
352   begin
353      result:=int1+int2;
354      Edit4.Text:=floattostr(result);
355   end ;
356 
357 
358  if  Edit2.Text='-' then
359     begin
360      result:=int1-int2;
361      Edit4.Text:=floattostr(result);
362   end ;
363    if  Edit2.Text='*' then
364      begin
365      result:=int1*int2;
366      Edit4.Text:=floattostr(result);
367     end ;
368    if ( Edit2.Text='/') and (int2<>0 ) then
369      begin
370      result:=int1/int2;
371         {保留5位小数}
372     Edit4.Text:=FormatFloat('0.00000',result);
373     end  ;
374 
375     if ( Edit2.Text='/') and (int2=0 ) then
376      begin
377        Application.MessageBox('除数不能为0!','错误提示',MB_OKCANCEL);
378     end  ;
379 
380 
381  end;
382 
383 
384 procedure TForm1.Button16Click(Sender: TObject);
385 begin
386   
387 
388    bo:=0;
389    Edit1.Text:='';
390    Edit2.Text:='';
391    Edit3.Text:='';
392    Edit4.Text:='';
393    int1:=0;
394    int2:=0;
395    result:=0;
396 end;
397 
398 procedure TForm1.Button17Click(Sender: TObject);
399 begin
400   if bo=0 then
401       edit1.Text:= Copy( edit1.Text, 1, length( Edit1.text )-1 ) {截取}
402   else
403        edit3.Text:= Copy( edit3.Text, 1, length( Edit3.text )-1 );
404 
405 
406 end;
407 
408 procedure TForm1.Button18Click(Sender: TObject);
409 begin
410 if bo=0 then
411  begin
412   str1:=str1+'.';
413   Edit1.Text:=str1;
414   end
415 Else
416   begin
417   str2:=str2+'.';
418   Edit3.Text:=str2;
419   end
420 end;
421 
422 procedure TForm1.Button19Click(Sender: TObject);
423 begin
424 if bo=0 then
425   begin
426     if int1>0 then
427     edit1.Text:='-'+edit1.Text
428     else
429     begin
430       int1:=0-strtofloat(edit1.Text);
431       edit1.Text:=floattostr(int1) ;
432     end;
433 
434   end
435 
436   else
437   begin
438       if int2>0 then
439     edit3.Text:='-'+edit3.Text
440     else
441     begin
442       int2:=0-strtofloat(edit3.Text);
443       edit3.Text:=floattostr(int2) ;
444     end;
445   end;
446 end;
447 
448 end.

 

转载于:https://www.cnblogs.com/xiaoyesoso/p/4247724.html

weixin_30235225
关注
Delphi 计算器
weixin_42528089的博客
11-16 558
 计算器V1: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Edit1: TEdit; E...
delphi 计算器（含全部代码）
11-26
用于DELPHI初学者的演示程序，包括算法、背景图片、背景颜色的设置，同时也包含了对小数点位数的控制，具有开关灯的功能，字符串换算类型转变等的实例，在DELPHI 10.1中调试通过
Delphi编写的简易计算器（含源码）
09-24
Delphi编写的简易计算器,仿windows里的计算器，包括加减乘除等操作。欢迎各位爱好者共同探讨。共同进步！
用delphi写的计算器
02-09
用delphi写的简单计算器，包含所有代码。放在Delphi7中即可使用
delphi 简单计算器
03-21
时间要求： 1天完成 题目：实现简单计算器(只要求实现+-*/)的功能，请不要忽略MS，MR,MC的功能。
使用delphi开发的计算器，案例
最新发布
qq_52195445的博客
08-01 268
delphi写的计算器案例
程序员成长之旅——Delphi实现一个简单的科学计算器
wuweiwuju___的博客
07-08 1428
程序员成长之旅——Delphi实现一个简单的科学计算器目标效果组件以及开发环境最终呈现源码GITHUB 目标效果 组件以及开发环境 delphi7版本及以上，这里我用delphi10.4进行的练习，并且只用了edit和button两个组件进行的简单的科学计算器的实现。 最终呈现 当然这是作为初学者简单的为了更快速的了解这门语言而进行的练习，它还有很多功能有待完善，有兴趣的小伙伴可以一起来探索实现一下。 源码GITHUB https://github.com/wuweiwuju/Delphi/tree/m
aab.rar_delphi calculator_delphi 计算器_计算器_计算器 Delphi
09-24
在给定的“aab.rar”压缩包中，我们找到了一个名为“Delphi calculator”的项目，这显然是一款使用Delphi编程语言开发的计算器应用。 Delphi计算器应用通常包含以下关键组成部分： 1. **用户界面（UI）**：Delphi...
计算器 delphi代码简单版.rar
07-10
可进行加减乘除运算的简单计算器 delphi代码，同时还可进行数学中的sin/cos/tan/cot/abs/sqrt/exp的计算，是一个标准的数学计算器，你可了解一下Delphi按钮方面的应用和算法相关知识。
计算器delphi(1).rar
07-30
《计算器Delphi编程详解》 Delphi，这款由Embarcadero Technologies开发的集成开发环境（IDE），在软件开发领域，尤其是Windows平台的应用程序开发上，有着广泛的应用。本资料聚焦于利用Delphi进行计算器应用的开发...
delphi 计算器
10-21
实现简单功能，加减乘除。 界面风格良好，希望大家喜欢，采用delphi2010编写
delphi计算器
07-14
用delphi做的计算器。unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Scr: TLabel; 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; Button17: TButton; Button18: TButton; Button19: TButton; Button20: TButton; procedure Button1Click(Sender: TObject); procedure Button12Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure Button11Click(Sender: TObject); procedure Button13Click(Sender: TObject); procedure Button20Click(Sender: TObject); procedure Button19Click(Sender: TObject); procedure Button18Click(Sender: TObject); private { Private declarations } pnt,er,fb:boolean; fstnm:Extended; fbcaption:string; public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var temp:string; begin if er then exit; if pnt then scr.Caption:=scr.Caption+(sender as Tbutton).Caption else if (scr.Caption='0.') or fb then begin scr.Caption:=(sender as Tbutton).caption+'.'; fb:=false; end else begin temp:=scr.Caption; insert((sender as Tbutton).Caption,temp,length(temp)); scr.Caption:=temp; end; end; procedure TForm1.Button12Click(Sender: TObject); var temp:string; begin if er then exit; if scr.Caption<>'0.' then if pos('-',scr.Caption)>0 then begin temp:=scr.Caption; delete(temp,1,1); scr.Caption:=temp; end else scr.Caption:='-'+scr.Caption; end; procedure TForm1.FormCreate(Sender: TObject); begin pnt:=false; fstnm:=0; fb:=false; fbcaption:=''; er:=false; end; procedure TForm1.Button11Click(Sender: TObject); begin if er then exit; pnt:=true; end; procedure TForm1.Button13Click(Sender: TObject); begin if er then exit; if not fb then button20click(nil); if er then exit; fstnm:=strtofloat(scr.Caption); fbcaption:=(sender as Tbutton).Caption; fb:=true; pnt:=false; end; procedure TForm1.Button20Click(Sender: TObject); begin if er then exit; if fbcaption='+' then begin scr.Caption:=floattostr(strtofloat(scr.Caption)+fstnm); end; if fbcaption='-' then begin scr.Caption:=floattostr(fstnm-strtofloat(scr.Caption)); end; if fbcaption='*' then begin scr.Caption:=floattostr(strtofloat(scr.Caption)*fstnm); end; if fbcaption='/' then begin if scr.Caption<>'0.' then scr.Caption:=floattostr(fstnm/strtofloat(scr.Caption)) else begin scr.Caption:='zero divid error!'; er:=true; end; end; if pos('.',scr.caption)=0 then scr.Caption:=scr.Caption+'.'; fb:=true; pnt:=false; fbcaption:=''; end; procedure TForm1.Button19Click(Sender: TObject); begin pnt:=false; fstnm:=0; fb:=false; fbcaption:=''; er:=false; scr.Caption:='0.'; end; procedure TForm1.Button18Click(Sender: TObject); begin if er then exit; scr.Caption:='0.'; end; end.
delphi仿系统自带计算器
02-03
仿照windows自带计算器写成，源代码很清晰，值得学习
科学计算器 delphi
02-15
**科学计算器 Delphi** 在IT领域，开发一个科学计算器程序是一项常见的练习，它涉及到编程语言的理解、用户界面设计以及数学算法的实现。本项目中，我们聚焦于使用Delphi编程环境，这是一种基于Pascal语言的集成...
仿Windows计算器 Delphi
08-21
【标题】"仿Windows计算器 Delphi"所涉及的知识点主要集中在使用Delphi编程语言开发一个类似于Windows操作系统内置计算器的应用程序。Delphi是一款基于Object Pascal语言的集成开发环境（IDE），以其高效、快速的...
Delphi实现简单的计算器
m0_58498198的博客
08-18 590
每创建一个窗体，Delphi 会在单元中自动建立一个新的数据类型--类(class)在单元的界面区中可以声明许多不同的元素，包括过程、函数、全程变量及数据类型。这些外部单元中定义了你需要引用的数据类型，如自定义窗体内所用的控件。//实现区 存放界面的实现代码及外部不可见的声明。//进行多轮计算时，先把前面一轮的计算结果输出。//未进行计算时，直接返回输入框中现有的值。//界面区 用于声明其它单元能看到的部分。//输入为多个0时，只显示一个0。//消除数字前面的0。//进行两个数的计算。
Delphi做得计算器
02-28
本人用Delphi编写的计算器程序，与windows自带的计算器功能一样，其中包含标准计算器和科学计算器。
用Delphi构建基础计算器
"这篇资源是关于使用Delphi编程语言实现一个简单计算器的教程。通过这段代码，我们可以了解如何在Delphi环境下设计用户界面，并实现基本的数学运算功能。" 在Delphi中创建一个简单的计算器涉及到以下几个关键知识点...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值