Calculadora básica no Lazarus
Publicado por Perfil removido 06/04/2009
[ Hits: 14.211 ]
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
controle de notas de uma clase com vetor e registro
Tocador de vídeo no Lazarus (Delphi 7 para Linux).
Transformação entre as escalas térmicas Kelvin, Fahrenheit e Celcius
Como ativar o módulo de cancelamento de ruído no Pipewire
Como escolher o melhor escalonador de CPU para melhorar o desempenho da máquina
Curiosidade sobre DOOM Guy e Isabelle de Animal Crossing
Inicializando servidor Ubuntu na AWS e rodando apache em Container
Termux: Transforme Seu Android em um Terminal Linux
Instalando Unifi Controler no Ubuntu 24.04
Como desativar o modo de "auto configuração de ganho" do microfone no Pulseaudio e no Pipewire
Problemas para importar XVA de 3.2TB Xen Server 7.6 (1)
Regex para validação de senhas[DUVIDA] (1)
Adaptador para Notebooks para uso de dois monitores no linux (3)
Como desativar o agrupamento de janelas no mesmo botão da barra de tar... (0)