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

• Download CalculadoraDecimoSalarioNoLazarus
• Enviar nova versão

Esconder código-fonte

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.     

calculo de vendas

SpaceAllience_Animation

Hello World!!!

Cáculo de Fatorial, utilizando-se de Repeat - Until

Rompecompiladores Ackerman