Cálculadora de décimo terceiro
Publicado por rafael farias novaes 27/01/2009
[ Hits: 5.134 ]
Homepage: http://www.vivaolinux.com.br/perfil/verPerfil.php?login=bfmano
Download Cálculadora De Décimo Terceiro, Código-Fonte.txt
Componentes necessários:
Label1=SALÁRIO
Label2=MESES DE TRABALHO
Label3=RESULTADO
Button1=CALCULAR
Button2=APAGAR
Button3=SAIR
unit UdecimoTerceiro; {$mode objfpc}{$H+} interface uses Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, Buttons, StdCtrls; type { TForm2 } TForm2 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Label1: TLabel; Label2: TLabel; Label3: TLabel; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); private { private declarations } public { public declarations } end; var Form2: TForm2; implementation { TForm2 } procedure TForm2.Button3Click(Sender: TObject); begin Form2.Close; end; procedure TForm2.Button2Click(Sender: TObject); begin Edit1.text:=''; Edit2.text:=''; Edit3.text:=''; end; procedure TForm2.Button1Click(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; initialization {$I udecimoterceiro.lrs} end.
Calculadora utilizando until e case
Calculadora Empresarial Lazarus
Cronômetro feito no Lazarus(Delphi 7 para Linux)
Atenção a quem posta conteúdo de dicas, scripts e tal (2)
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
ASRock H310CM-HG4 vs Linux [RESOLVIDO] (18)
Microfone do meu headset não é recinhecido. Meu notebook é um Acer Asp... (12)