Convertisseur francs -> euros / euros -> francs

Soyez le premier à donner votre avis sur cette source.

Vue 5 740 fois - Téléchargée 173 fois

Description

C'est ma 2nd source qui sers à convertir une somme en francs -> Euros ou Euros -> Francs
Je vais essayer de l'améliorer en metant aussi une convertion en $ avec une possibilité que l'utilisateur puisse paramétrer le taux de cette monaie.
J'ai aussi remplacé le composant XpMan par {$R WindowsXp.res}.

Source / Exemple :


var
  Form1: TForm1;

implementation

{$R *.dfm} {$R WindowsXp.res}

procedure TForm1.Button1Click(Sender: TObject);
Var FN1, FResultat : Real;
begin
  FN1 := StrToFloat(Edit1.Text);
  FResultat := FN1 * 6.55957; //?uros -> Francs
  Edit1.Text := FloatToStr(FResultat);
end;

procedure TForm1.Button2Click(Sender: TObject);
Var EN1, EResultat : Real;
begin
  EN1 := StrToFloat(Edit1.Text);
  EResultat := EN1 / 6.55957; //Francs -> Euros
  Edit1.Text := FloatToStr(EResultat);
end;

procedure TForm1.Quitter1Click(Sender: TObject);
begin
  Application.Terminate;
end;

procedure TForm1.APropos1Click(Sender: TObject);
begin
  ShowMessage('Si le code source vous interesse contactez moi à juliendu06@hotmail.com');
end;

procedure TForm1.Alire1Click(Sender: TObject);
begin
  ShowMessage('Pour les nombres décimals utilisez la , et non le .');
end;

end.

Codes Sources

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_Suriv)