Cálculadora de décimo terceiro
Publicado por rafael farias novaes 27/01/2009
[ Hits: 5.414 ]
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.
Extenso em dll, com parâmetros adicionais
Calculadora de décimo terceiro salário em Pascal
Contador de números (Pascal) - efeito Matrix
Wayland em alta, IA em debate e novos ventos para distros e devices
Qt 6.10 e Python 3.14 puxam o ritmo do software livre nesta quarta
Atualizações de Apps, Desktop e Kernel agitam o ecossistema Linux nesta terça-feira
Miyoo Mini Plus + Onion OS (Linux)
IA local no bolso, novo visual no Raspberry Pi OS e mais destaques do software livre
Como mudar o nome de dispositivos Bluetooth via linha de comando
Adicionando o repositório backports no Debian 13 Trixie
queria saber como instalar o android power tools igual ao winux no lin... (7)
Como listar os arquivos em "bloquin... [RESOLVIDO] (6)
Como colocar atalho para uma pasta na área de trabalho do Ubuntu 24.04... (2)