Cálculadora de décimo terceiro
Publicado por rafael farias novaes 27/01/2009
[ Hits: 5.145 ]
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 Empresarial (Baseada nas fórmulas de Logística)Lazarus
Calculadora de décimo terceiro salário(Lazarus)
Gerador de senha Pascal/Lazarus
intercalar dois arrays (vetores)
Atualizar o macOS no Mac - Opencore Legacy Patcher
Crie alias para as tarefas que possuam longas linhas de comando - bash e zsh
Criando um gateway de internet com o Debian
Configuração básica do Conky para mostrar informações sobre a sua máquina no Desktop
Aprenda a criar músicas com Inteligência Artificial usando Suno AI
Instalando Zoom Client no Fedora 40
Instalando Navegador Firefox no Debian 12
Bloqueando propagandas no Youtube e outros sites com o uBlocker Origin
Sistema da Coréia do Norte - Red Star OS (55)
Como adicionar módulo de saúde da bateria dos notebooks Acer ao kernel... (47)