Calculadora de décimo terceiro no Lazarus
Publicado por Perfil removido (última atualização em 01/10/2009)
[ Hits: 5.247 ]
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
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.
Programa lê nome (básico) - Pascal para iniciantes
calcular o percentual de pessoas que sao maiores de idade
encontrar o maior e o menor valor em um vetor
calculo de porcentagem em vetores
Atenção a quem posta conteúdo de dicas, scripts e tal (6)
O mínimo que você precisa saber sobre o terminal (parte 1)
Como iniciar uma máquina virtual do VirtualBox automaticamente no boot do LUbuntu 18 LTS
Os navegadores "leves" que de leves não tem nada
Liberte-se: Crie um Servidor Proxy na Nuvem para Acessar Conteúdos Bloqueados
Deixando o Opensuse Tumbleweed com KDE bonitão
Estrutura de recuo PHP/Apache para não acessarem arquivos pela URI (barra de endereços)
Escanear a rede com NBTSCAN para descobrir IPs e nomes de computadores
Como instalar ou remover ambientes gráficos facilmente no openSUSE