Calculadora básica no Lazarus
Publicado por Perfil removido 06/04/2009
[ Hits: 14.145 ]
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
vendas de uma empresa em matriz
calculo de porcentagem em vetores
Atenção a quem posta conteúdo de dicas, scripts e tal (1)
Manutenção de sistemas Linux Debian e derivados com apt-get, apt, aptitude e dpkg
Melhorando o tempo de boot do Fedora e outras distribuições
Como instalar as extensões Dash To Dock e Hide Top Bar no Gnome 45/46
Como Atualizar Fedora 39 para 40
Instalar Google Chrome no Debian e derivados
Consertando o erro do Sushi e Wayland no Opensuse Leap 15
Instalar a última versão do PostgreSQL no Lunix mantendo atualizado
Flathub na sua distribuição Linux e comandos básicos de gerenciamento
pacotes 32 bit no void 64 bit (1)
erro ao clonar repo github (7)
ASRock H310CM-HG4 vs Linux (1)
Como adicionar módulo de saúde da bateria dos notebooks Acer ao kernel... (26)
[Shell Script] Script para desinstalar pacotes desnecessários no OpenSuse
[Shell Script] Script para criar certificados de forma automatizada no OpenVpn
[Shell Script] Conversor de vídeo com opção de legenda
[C/C++] BRT - Bulk Renaming Tool
[Shell Script] Criação de Usuarios , Grupo e instalação do servidor de arquivos samba