Citação:
|
Postado Originalmente por Marcio DJ
Delphi, ta no tópico a linguagem.
Ja descolei umas legais ai é só alterar agora
Valeu pessoal
|
Esta eu fiz, bem simples mesmo.
unit operacao_u;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls, Buttons;
type
TForm1 = class(TForm)
txtValor1: TEdit;
Label1: TLabel;
Label2: TLabel;
txtValor2: TEdit;
Label3: TLabel;
pnlSoma: TPanel;
Label4: TLabel;
pnlDif: TPanel;
Label5: TLabel;
pnlProd: TPanel;
Label6: TLabel;
pnlQuoc: TPanel;
btnCalc: TBitBtn;
btnLimpa: TBitBtn;
BitBtn3: TBitBtn;
procedure btnCalcClick(Sender: TObject);
procedure btnLimpaClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.btnCalcClick(Sender: TObject);
var
n1,n2 : Real;
Soma, Diferenca, Produto, Quociente : Real;
begin
N1:=StrToFloat(txtValor1.Text);
N2:=StrToFloat(txtValor2.Text);
Soma:=N1+N2;
pnlSoma.Caption:=FloatToStr(Soma);
Diferenca:=N1-N2;
pnlDif.Caption:=FloatToStr(Diferenca);
Produto:=N1*N2;
pnlProd.Caption:=FloatToStr(Produto);
if N2=0 then
begin
ShowMessage('Divisão por 0!!!');
pnlQuoc.Caption:='';
txtValor2.SetFocus;
end
else
begin
Quociente:=N1/N2;
pnlQuoc.Caption:=FloatToStr(Quociente);
txtValor1.Setfocus;
end;
end;
procedure TForm1.btnLimpaClick(Sender: TObject);
begin
txtValor1.Clear;
txtValor2.Clear;
pnlSoma.Caption:='';
pnlDif.Caption:='';
pnlQuoc.Caption:='';
pnlProd.Caption:='';
txtValor1.SetFocus;
end;
end.
Calculadora em Delphi
. Nós temos 759.173 usuários, convidamos você fazer parte de nossa comunidade também! Se ainda não encontrou o que procura use nossa pesquisa. Esperamos que aprecie nosso trabalho.
Calculadora em Delphi
Amigo não é aquele que separa a briga mas sim aquele que chega na voadora! 
