Juros

Publicado por Daniel 23/02/2005

[ Hits: 4.391 ]

Download juros.zip




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!

  



Esconder código-fonte

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.

Scripts recomendados

Corrida de cavalos

Calculadora

Data e Hora em pascal

Criando Objetos

GTK em (Free)Pascal


  

Comentários

Nenhum comentário foi encontrado.


Contribuir com comentário




Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts