Juros
Publicado por Daniel 23/02/2005
[ Hits: 4.293 ]
Script em Kylix que mostra como trabalhar com adicão e subtração de porcentagem para calculo de juros, ou para algo mais que você precise!
unit Unit1; interface uses SysUtils, Types, Classes, Variants, QTypes, QGraphics, QControls, QForms, QDialogs, QStdCtrls, QButtons; type TForm1 = class(TForm) Label1: TLabel; Label2: TLabel; Edit1: TEdit; Edit2: TEdit; Label3: TLabel; Label4: TLabel; BitBtn1: TBitBtn; ComboBox1: TComboBox; Label5: TLabel; procedure BitBtn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.xfm} procedure TForm1.BitBtn1Click(Sender: TObject); var Valor, Juros: Double; begin Valor := StrToFloat(Edit1.Text); Juros := StrToFloat(Edit2.Text); if (ComboBox1.Text = 'Mais') then Label4.Caption := FormatFloat('#,##0.00', Valor + ((Valor * Juros) / 100)) else if (ComboBox1.Text = 'Menos') then Label4.Caption := FormatFloat('#,##0.00', Valor - ((Valor * Juros) / 100)) else MessageDlg('Informe o operador.', mtInformation, [mbOK], 0); end; end.
Operações simples e avançadas com matrizes
Método de eliminação de Gauss com pivotamento parcial
programa que te ajuda em matematica
Nenhum comentário foi encontrado.
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
E a guerra contra bots continua
Tradução do artigo do filósofo Gottfried Wilhelm Leibniz sobre o sistema binário
Conheça o firewall OpenGFW, uma implementação do (Great Firewall of China).
Instalando o FreeOffice no LMDE 6
Anki: Remover Tags de Estilo HTML de Todas as Cartas
Colocando uma opção de redimensionamento de imagem no menu de contexto do KDE
[Shell Script] Script para desinstalar pacotes desnecessários no OpenSuse
[Shell Script] Script para criar certificados de forma automatizada no OpenVpn
[Shell Script] Conversor de vídeo com opção de legenda
[C/C++] BRT - Bulk Renaming Tool
[Shell Script] Criação de Usuarios , Grupo e instalação do servidor de arquivos samba