Calculadora de décimo terceiro no Lazarus

Publicado por Perfil removido (última atualização em 01/10/2009)

[ Hits: 5.029 ]

Download CalculadoraDecimoSalarioNoLazarus




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

  



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.     

Scripts recomendados

Loops

Sequência de Fibonacci

Operações básicas da matemática

soma de números pares

Extenso em dll, com parâmetros adicionais


  

Comentários
[1] Comentário enviado por doradu em 09/02/2010 - 16:54h

pq vc não coloca o programa completo? se aqui é o tópico de introdução?

[2] Comentário enviado por doradu em 09/02/2010 - 16:55h

ou então ensine a incrementar seu programa


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner
Linux banner

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts