Logo Hardware.com.br
ChaveirinhoDoMaguila
ChaveirinhoD... Veterano Registrado
617 Mensagens 124 Curtidas

(Código fonte)Calculadora de décimo terceiro salário(Delphi/Lazarus)

#1 Por ChaveirinhoD... 16/12/2020 - 23:39
Precisaremos de 2 Buttons,3 Edits,e 3 labels,no label1:

Digite o seu salário:

No label2:


Digite a quantidade de meses em que trabalhou:Exemplo:Trabalhei 10 meses,então digite 10 no Edit de baixo.

No label3:

Resultado:

Button1=Calcular
Button2=Apagar

    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);

private
{ private declarations }
public
{ public declarations }
end;


var
Form1: TForm1;


implementation


{ TForm1 }


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


end;





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


initialization
{$I unit1.lrs}


end.
© 1999-2025 Hardware.com.br. Todos os direitos reservados.
Imagem do Modal