ALGORITMOS E IMPLEMENTAÇÕESCalculadora básica no Lazarus(Delphi 7 para Linux)(Código fonte)

Implementação de equações dentro da computação, programação e algoritmos.

Moderador: [ Moderadores TTB ]

Avatar do usuário
Autor do Tópico
pensadornato
Avançado
Mensagens: 124
Registrado em: Qua 22 Jun, 2016 22:06
Última visita: 13-07-20
Localização: Jaraguá do sul/SC
Mai 2018 19 17:20

Calculadora básica no Lazarus(Delphi 7 para Linux)(Código fonte)

Mensagem não lida por pensadornato »

Componentes necessários:

Label1=1º NÚMERO
Label2=2º NÚMERO
Labe3=RESULTADO
Button1=Adição
Button2=Divisão
Button3=Multiplicação
Button4=Subtração
Button5=Apagar
Button6=Sair

No código fonte abaixo,ignore os asteriscos:

Código: Selecionar todos

unit Ucalculadora;
{$mode objfpc}{$H+}

interface

uses
**Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls,
**Buttons;

type

**{ TForm1 }

**TForm1 = class(TForm)
****ADICAO: TButton;
****SUBTRACAO: TButton;
****DIVISAO: TButton;
****MULTIPLICACAO: TButton;
****APAGAR: TButton;
****SAIR: TButton;
****Edit1: TEdit;
****Edit2: TEdit;
****Edit3: TEdit;
****Label1: TLabel;
****Label2: TLabel;
****Label3: TLabel;
****procedure ADICAOClick(Sender: TObject);
****procedure APAGARClick(Sender: TObject);
****procedure DIVISAOClick(Sender: TObject);
****procedure MULTIPLICACAOClick(Sender: TObject);
****procedure SAIRClick(Sender: TObject);
****procedure SUBTRACAOClick(Sender: TObject);
**private
****{ private declarations }
**public
****{ public declarations }
**end;

var
**Form1: TForm1;

implementation

{ TForm1 }

procedure TForm1.ADICAOClick(Sender: TObject);
var n1,n2,calculo:real;
begin
**n1:=StrToFloat(Edit1.text);
**n2:=StrToFloat(Edit2.text);
**calculo:=n1+n2;
**Edit3.text:=FloatToStr(calculo);
end;

procedure TForm1.APAGARClick(Sender: TObject);
begin
**Edit1.text:='';
**Edit2.text:='';
**Edit3.text:='';
end;

procedure TForm1.DIVISAOClick(Sender: TObject);
var
**n1,n2,calculo:real;
begin
**n1:=StrToFloat(Edit1.text);
**n2:=StrToFloat(Edit2.text);
**calculo:=n1/n2;
**Edit3.text:=FloatToStr(calculo);
end;

procedure TForm1.MULTIPLICACAOClick(Sender: TObject);
var
**n1,n2,calculo:real;
begin
**n1:=StrToFloat(Edit1.text);
**n2:=StrToFloat(Edit2.text);
**calculo:=n1*n2;
**Edit3.text:=FloatToStr(calculo);
end;

procedure TForm1.SAIRClick(Sender: TObject);
begin
**Form1.Close;
end;

procedure TForm1.SUBTRACAOClick(Sender: TObject);
var
**n1,n2,calculo:real;
begin
**n1:=StrToFloat(Edit1.text);
**n2:=StrToFloat(Edit2.text);
**calculo:=n1-n2;
**Edit3.text:=FloatToStr(calculo);
end;

initialization
**{$I ucalculadora.lrs}

end



O homem não é nada sem o ser e o agir,o ser é o que tu é,e o agir é sua atitude.

Responder
  • Tópicos Semelhantes
    Respostas
    Exibições
    Última msg

Voltar para “ALGORITMOS E IMPLEMENTAÇÕES”