Calculadora de décimo terceiro no Lazarus
Publicado por Perfil removido (última atualização em 01/10/2009)
[ Hits: 5.195 ]
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.
Calculadora Empresarial (Baseada nas fórmulas de Logística)Lazarus
Calculadora de décimo terceiro salário em Pascal
programa pra carregear duas matrizes e achar o maior
Agora temos uma assistente virtual no fórum!!! (247)
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
Agora temos uma assistente virtual no fórum!!! (247)
iso de sistema 32 bit em atividade (12)
Como adicionar módulo de saúde da bateria dos notebooks Acer ao kernel... (27)