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

Télécharger le projet
Commenter

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
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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 (Sharkiller)