ALGORITMOS E IMPLEMENTAÇÕESCalculadora de decimo terceiro salário no Lazarus (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 16:51

Calculadora de decimo terceiro salário no Lazarus (Código fonte)

Mensagem não lida por pensadornato »

O Lazarus é o Delphi 7 para Linux,mas tem para Windows e para MacOS também.

Siga essas instruções e você terá uma calculadora de décimo terceiro no Lazarus.

Componentes necessários:

Edit1=numero1
Edit2=numero2
Edit3=resultado
Button1=Calcular
Button2=Apagar
Button3=Sair

Código: Selecionar todos

unit Unit1; 

{$mode objfpc}{$H+}

interface

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

type

  { TForm1 }

  TForm1 = class(TForm)
    Calcular: TButton;
    Apagar: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Sair: TButton;
    procedure ApagarClick(Sender: TObject);
    procedure CalcularClick(Sender: TObject);
    procedure SairClick(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 

var
  Form1: TForm1; 

implementation

{ TForm1 }

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

end;

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

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

initialization
  {$I unit1.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”