Euro convertor - convertisseur en euro de tous les pays de l'u.e.

0/5 (1 avis)

Vue 3 221 fois - Téléchargée 164 fois

Description

Je n'ai pas mis la conversion en francs, c'est juste une conversion d'euros entre les différents pays de l'U.E.

Source / Exemple :


Private Sub Combo1_Validate(Cancel As Boolean)
    If Combo1 = "Allemagne" Then labeuro = "1 ? = 1,95583 DEM"
    If Combo1 = "Autriche" Then labeuro = "1 ? = 13,7603 ATS"
    If Combo1 = "Belgique" Then labeuro = "1 ? = 40,3399 BEF"
    If Combo1 = "Espagne" Then labeuro = "1 ? = 166,386 ESP"
    If Combo1 = "Finlande" Then labeuro = "1 ? = 5,94573 FIM"
    If Combo1 = "France" Then labeuro = "1 ? = 6,55957 FRF"
    If Combo1 = "Grèce" Then labeuro = "1 ? = 340,750 GRD"
    If Combo1 = "Irlande" Then labeuro = "1 ? = 0,787564 IEP"
    If Combo1 = "Italie" Then labeuro = "1 ? = 1936,27 ITL"
    If Combo1 = "Luxembourg" Then labeuro = "1 ? = 40,3399 LUF"
    If Combo1 = "Pays-Bas" Then labeuro = "1 ? = 2,20371 NLG"
    If Combo1 = "Portugal" Then labeuro = "1 ? = 200,482 PTE"
End Sub

Private Sub Command1_Click()
    If Combo1 = "Allemagne" Then Text2 = Text1 * 1.95583 & " DEM"
    If Combo1 = "Autriche" Then Text2 = Text1 * 13.7603 & " ATS"
    If Combo1 = "Belgique" Then Text2 = Text1 * 40.3399 & " BEF"
    If Combo1 = "Espagne" Then Text2 = Text1 * 166.386 & " ESP"
    If Combo1 = "Finlande" Then Text2 = Text1 * 5.94573 & " FIM"
    If Combo1 = "Grèce" Then Text2 = Text1 * 340.75 & " GRD"
    If Combo1 = "Irlande" Then Text2 = Text1 * 0.787564 & " IEP"
    If Combo1 = "Italie" Then Text2 = Text1 * 1936.27 & " ITL"
    If Combo1 = "Luxembourg" Then Text2 = Text1 * 40.3399 & " LUF"
    If Combo1 = "Pays-Bas" Then Text2 = Text1 * 2.20371 & " NLG"
    If Combo1 = "Portugal" Then Text2 = Text1 * 200.482 & " PTE"
    If Combo1 = "France" Then Text2 = Text1 * 6.55957 & " FRF"
End Sub

Private Sub Text1_Click()
    Text1 = ""
End Sub

Conclusion :


Le principe se base tout simplement sur du texte, y'a pas de fonctions compliquées...

C'est parfois utile ce genre de programme, enfin bon, à vous de juger...

Voilà, vous pouvez ajouter vos commentaires.

@+ et bonne prog

Codes Sources

A voir également

Ajouter un commentaire Commentaire
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
76
C'est pas joli joli !
Text2 = Text1 * 5.94573 & " FIM"
Mélange de texte et de chiffres en double précision : c'est vraiment de l'a peu près !
Pas de gestion d'erreur, le choix des couleurs rend illisible le texte ... Je m'abstiendrai de noter ...

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.