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!

• Download juros.zip
• Enviar nova versão

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.

Crivo de Eratóstenes Simples em Pascal

Data e Hora em pascal

Calculadora

Transforme em Binários

GTK em (Free)Pascal

Nenhum comentário foi encontrado.