SHARE
TWEET

Calculadora Completa

Automake Sep 12th, 2019 (edited) 123 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. unit unitCalculadora1;
  2.  
  3. {$mode objfpc}{$H+}
  4.  
  5. interface
  6.  
  7. uses
  8.   Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls;
  9.  
  10. type
  11.  
  12.   { TForm1 }
  13.  
  14.   TForm1 = class(TForm)
  15.     Button1: TButton;
  16.     Button10: TButton;
  17.     Button11: TButton;
  18.     Button12: TButton;
  19.     Button13: TButton;
  20.     Button14: TButton;
  21.     Button15: TButton;
  22.     Button16: TButton;
  23.     Button17: TButton;
  24.     Button18: TButton;
  25.     Button2: TButton;
  26.     Button3: TButton;
  27.     Button4: TButton;
  28.     Button5: TButton;
  29.     Button6: TButton;
  30.     Button7: TButton;
  31.     Button8: TButton;
  32.     Button9: TButton;
  33.     Edit1: TEdit;
  34.     Label1: TLabel;
  35.     procedure Button10Click(Sender: TObject);
  36.     procedure Button11Click(Sender: TObject);
  37.     procedure Button12Click(Sender: TObject);
  38.     procedure Button13Click(Sender: TObject);
  39.     procedure Button14Click(Sender: TObject);
  40.     procedure Button15Click(Sender: TObject);
  41.     procedure Button16Click(Sender: TObject);
  42.     procedure Button17Click(Sender: TObject);
  43.     procedure Button18Click(Sender: TObject);
  44.     procedure Button1Click(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.   private
  54.  
  55.   public
  56.  
  57.   end;
  58.  
  59. var
  60.   Form1: TForm1;
  61.   valor1, valor2, porcentagem:real;
  62.   tipoconta:string;
  63.  
  64. implementation
  65.  
  66. {$R *.lfm}
  67.  
  68. { TForm1 }
  69.  
  70. procedure TForm1.Button1Click(Sender: TObject);
  71. begin
  72.       if tipoconta = 'adição' then
  73.       begin
  74.       valor2:=strtofloat(edit1.text);
  75.       edit1.text:=floattostr(valor1+valor2);
  76.  
  77.     end;
  78.  
  79.     if tipoconta = 'subtração' then
  80.     begin
  81.       valor2:=strtofloat(edit1.text);
  82.       edit1.text:=floattostr(valor1-valor2);
  83.  
  84.     end;
  85.  
  86.     if tipoconta = 'divisão' then
  87.     begin
  88.       valor2:=strtofloat(edit1.text);
  89.       edit1.text:=floattostr(valor1/valor2);
  90.  
  91.     end;
  92.  
  93.  
  94.  
  95.  
  96.  
  97.  
  98.  
  99.  
  100. end;
  101.  
  102. procedure TForm1.Button2Click(Sender: TObject);
  103. begin
  104.    Edit1.text:=Edit1.text+'1';
  105. end;
  106.  
  107. procedure TForm1.Button3Click(Sender: TObject);
  108. begin
  109.    Edit1.text:=Edit1.text+'2';
  110. end;
  111.  
  112. procedure TForm1.Button4Click(Sender: TObject);
  113. begin
  114.    Edit1.text:=Edit1.text+'3';
  115. end;
  116.  
  117. procedure TForm1.Button5Click(Sender: TObject);
  118. begin
  119.    Edit1.text:=Edit1.text+'4';
  120. end;
  121.  
  122. procedure TForm1.Button6Click(Sender: TObject);
  123. begin
  124.    Edit1.text:=Edit1.text+'5';
  125. end;
  126.  
  127. procedure TForm1.Button7Click(Sender: TObject);
  128. begin
  129.    Edit1.text:=Edit1.text+'6';
  130. end;
  131.  
  132. procedure TForm1.Button8Click(Sender: TObject);
  133. begin
  134.    Edit1.text:=Edit1.text+'7';
  135. end;
  136.  
  137. procedure TForm1.Button9Click(Sender: TObject);
  138. begin
  139.    Edit1.text:=Edit1.text+'8';
  140. end;
  141.  
  142. procedure TForm1.Button11Click(Sender: TObject);
  143. begin
  144.   Edit1.text:=Edit1.text+'.';
  145. end;
  146.  
  147. procedure TForm1.Button10Click(Sender: TObject);
  148. begin
  149.    Edit1.text:=Edit1.text+'9';
  150. end;
  151.  
  152. procedure TForm1.Button12Click(Sender: TObject);
  153. begin
  154.     tipoconta:='adição';
  155.     valor1:=strtofloat(Edit1.text);
  156.     Edit1.Text:='';
  157.     Label1.Caption:='+';
  158. end;
  159.  
  160. procedure TForm1.Button13Click(Sender: TObject);
  161.  
  162. var resultado:real;
  163.  
  164.    begin
  165.  
  166.     if tipoconta ='multiplicação' then
  167.     begin
  168.  
  169.      valor2:=strtofloat(edit1.text);
  170.      resultado:=valor1*valor2/100;
  171.      Edit1.text:=FloatToStr(resultado);
  172.      Label1.Caption:='%';
  173.      end;
  174.        if tipoconta = 'adição' then
  175.    begin
  176.       porcentagem:=strtofloat(edit1.text);
  177.       porcentagem:=porcentagem/100;
  178.       porcentagem:=porcentagem*valor1;
  179.       edit1.text:=floattostr(valor1+porcentagem);
  180.  
  181.    end;
  182.    if tipoconta = 'subtração' then
  183.    begin
  184.       porcentagem:=strtofloat(edit1.text);
  185.       porcentagem:=porcentagem/100;
  186.       porcentagem:=porcentagem*valor1;
  187.       edit1.text:=floattostr(valor1-porcentagem);
  188.  
  189.  
  190.        end;
  191.     if tipoconta = 'divisão' then
  192.    begin
  193.       porcentagem:=strtofloat(edit1.text);
  194.       porcentagem:=porcentagem/100;
  195.       porcentagem:=porcentagem*valor1;
  196.       edit1.text:=floattostr(valor1/porcentagem);
  197.  
  198.    end;
  199.         end;
  200.  
  201. procedure TForm1.Button14Click(Sender: TObject);
  202. begin
  203.     tipoconta:='divisão';
  204.     valor1:=strtofloat(edit1.text);
  205.     Edit1.Text:='';
  206.     Label1.Caption:='/';
  207. end;
  208.  
  209. procedure TForm1.Button15Click(Sender: TObject);
  210.  
  211.     begin
  212.  
  213.  
  214.       tipoconta:='multiplicação';
  215.       valor1:=strtofloat(Edit1.text);
  216.       Edit1.Text:='';
  217.       Label1.Caption:='*';
  218.  
  219. end;
  220.  
  221.  
  222.  
  223.  
  224.  
  225. procedure TForm1.Button16Click(Sender: TObject);
  226. begin
  227.     tipoconta:='subtração';
  228.     valor1:=strtofloat(edit1.text);
  229.     Edit1.Text:='';
  230.     Label1.Caption:='-';
  231. end;
  232.  
  233. procedure TForm1.Button17Click(Sender: TObject);
  234. begin
  235.   Edit1.text:='';
  236.   valor1:=0;
  237.   valor2:=0;
  238.   tipoconta:='';
  239.   Label1.Caption:='';
  240. end;
  241.  
  242. procedure TForm1.Button18Click(Sender: TObject);
  243. begin
  244.     Edit1.text:=Edit1.text+'0';
  245. end;
  246.  
  247. end.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top