Calculadora básica no Lazarus
Publicado por Perfil removido 06/04/2009
[ Hits: 14.463 ]
Seguindo essas instruções e o código fonte desse script você terá uma calculadora básica no Lazarus.
Componentes necessários: Label1=1º NÚMERO Label2=2º NÚMERO Labe3=RESULTADO Button1=Adição Button2=Divisão Button3=Multiplicação Button4=Subtração Button5=Apagar Button6=Sair Código-fonte: unit Ucalculadora; {$mode objfpc}{$H+} interface uses **Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls, **Buttons; type **{ TForm1 } **TForm1 = class(TForm) ****ADICAO: TButton; ****SUBTRACAO: TButton; ****DIVISAO: TButton; ****MULTIPLICACAO: TButton; ****APAGAR: TButton; ****SAIR: TButton; ****Edit1: TEdit; ****Edit2: TEdit; ****Edit3: TEdit; ****Label1: TLabel; ****Label2: TLabel; ****Label3: TLabel; ****procedure ADICAOClick(Sender: TObject); ****procedure APAGARClick(Sender: TObject); ****procedure DIVISAOClick(Sender: TObject); ****procedure MULTIPLICACAOClick(Sender: TObject); ****procedure SAIRClick(Sender: TObject); ****procedure SUBTRACAOClick(Sender: TObject); **private ****{ private declarations } **public ****{ public declarations } **end; var **Form1: TForm1; implementation { TForm1 } procedure TForm1.ADICAOClick(Sender: TObject); var n1,n2,calculo:real; begin **n1:=StrToFloat(Edit1.text); **n2:=StrToFloat(Edit2.text); **calculo:=n1+n2; **Edit3.text:=FloatToStr(calculo); end; procedure TForm1.APAGARClick(Sender: TObject); begin **Edit1.text:=''; **Edit2.text:=''; **Edit3.text:=''; end; procedure TForm1.DIVISAOClick(Sender: TObject); var **n1,n2,calculo:real; begin **n1:=StrToFloat(Edit1.text); **n2:=StrToFloat(Edit2.text); **calculo:=n1/n2; **Edit3.text:=FloatToStr(calculo); end; procedure TForm1.MULTIPLICACAOClick(Sender: TObject); var **n1,n2,calculo:real; begin **n1:=StrToFloat(Edit1.text); **n2:=StrToFloat(Edit2.text); **calculo:=n1*n2; **Edit3.text:=FloatToStr(calculo); end; procedure TForm1.SAIRClick(Sender: TObject); begin **Form1.Close; end; procedure TForm1.SUBTRACAOClick(Sender: TObject); var **n1,n2,calculo:real; begin **n1:=StrToFloat(Edit1.text); **n2:=StrToFloat(Edit2.text); **calculo:=n1-n2; **Edit3.text:=FloatToStr(calculo); end; initialization **{$I ucalculadora.lrs} end
Array de números aleatórios não-repetidos de um intervalo em Pascal
Tocador de vídeo no Lazarus (Delphi 7 para Linux).
vendas de uma empresa em matriz
Enviar mensagem ao usuário trabalhando com as opções do php.ini
Meu Fork do Plugin de Integração do CVS para o KDevelop
Compartilhando a tela do Computador no Celular via Deskreen
Como Configurar um Túnel SSH Reverso para Acessar Sua Máquina Local a Partir de uma Máquina Remota
Configuração para desligamento automatizado de Computadores em um Ambiente Comercial
Compartilhamento de Rede com samba em modo Público/Anônimo de forma simples, rápido e fácil
Cups: Mapear/listar todas as impressoras de outro Servidor CUPS de forma rápida e fácil
Criando uma VPC na AWS via CLI
Tem como instalar o gerenciador AMD Adrenalin no Ubuntu 24.04? (16)
Arch Linux - Guia para Iniciantes (2)
Problemas ao instalar o PHP (11)
Tenho dois Link's ( IP VÁLIDOS ), estou tentando fazer o failover... (0)