Petit convertisseur franc / euros

Soyez le premier à donner votre avis sur cette source.

Vue 6 124 fois - Téléchargée 204 fois

Description

Il suffit de taper le chiffre dans la case de la monnaie pour qu'il se convertisse automatiquement

Source / Exemple :


tout dans le zip

Conclusion :


version corigé; merci à nono40

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

cs_Nono40
Messages postés
1000
Date d'inscription
mercredi 3 avril 2002
Statut
Membre
Dernière intervention
12 septembre 2006
1 -
Si tu veux que les ZIP soient moins gros, prend seulement les fichiers suivants :
*.PAS *.DFM *.DPR *.RES
Ainsi le ZIP de ton source ne fera que quelques Ko...

Mais surtout il est dommage que ton convertisseur donne de faux résultats !
Essaye de convertir 1.0677 Euros, tu obtients 7.365 Francs, or le résultat exact est 7.00365 Francs.

Ceci vient de ta manière ( compliquée ) d'afficher le résultat :
franc.text:=inttostr( trunc(eur*tau) )+'.'+inttostr(round(frac(eur*tau)*100000));
Alors qu'il faut convertir un flotant :
franc.text:=FloatToStrF(eur*tau,ffFixed,5,5);
Et dans l'autre sens :
euro.text:=FloatToStrF(fra/tau,ffFixed,5,5);

Nono
Evonay
Messages postés
4
Date d'inscription
dimanche 8 septembre 2002
Statut
Membre
Dernière intervention
14 avril 2003
-
Merci, je ne connaisait pas floattostrf :)

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.