Planeta Linux

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
Planeta Linux

Fórum De Linux


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

    C@pit@o_Z@p
    C@pit@o_Z@p
    Administradores


    Aquário Tigre
    Mensagens : 11
    Data de inscrição : 03/09/2019
    Idade : 35
    Localização : Jaraguá Do Sul,SC

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

    Mensagem por C@pit@o_Z@p Qua Set 04, 2019 8:02 pm

    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:

    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.   



      Data/hora atual: Qui Out 06, 2022 6:45 am