Calculadora básica no Lazarus
Publicado por Perfil removido 06/04/2009
[ Hits: 14.403 ]
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
Função Fatorial Recursiva em Ada 95
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
Efeito "livro" em arquivos PDF
Como resolver o erro no CUPS: Unable to get list of printer drivers
Flatpak: remover runtimes não usados e pacotes
Mudar o gerenciador de login (GDM para SDDM e vice-versa) - parte 2
Wifi não funciona no Aspire ES 15 com o Debian (8)
Como atualizar o Debian 8 para o 10 (10)
Dica sobre iptables ACCEPT e DROP (6)
NGNIX - Aplicar SNAT para evitar roteamento assimetrico (29)
[Python] Automação de scan de vulnerabilidades
[Python] Script para analise de superficie de ataque
[Shell Script] Novo script para redimensionar, rotacionar, converter e espelhar arquivos de imagem
[Shell Script] Iniciador de DOOM (DSDA-DOOM, Doom Retro ou Woof!)
[Shell Script] Script para adicionar bordas às imagens de uma pasta