Convertisseur euros - francs

Soyez le premier à donner votre avis sur cette source.

Vue 3 314 fois - Téléchargée 170 fois

Description

permet de convertir lmes euros en francs et inversement.

Source / Exemple :


3 boutons + une feuille
2 labels
2 text

Option Explicit

Private Const taux = 6.55957

Private Sub CmdConv_Click()

If TxtFF.Text = "" Then
    TxtFF.Text = Round(TxtEuro * taux, 2)
End If

If TxtEuro.Text = "" Then
    TxtEuro.Text = Round(TxtFF / taux, 2)
End If

End Sub

Private Sub CmdEff_Click()
TxtFF.Text = ""
TxtEuro.Text = ""
End Sub

Private Sub CmdQuit_Click()
Unload Me
End
End Sub
Private Sub TxtFF_KeyPress(KeyAscii As Integer)
'si le caractère tapé est différent de 0123456789, rien n est affiché

    If Not Chr(KeyAscii) Like "[0123456789,]" Then KeyAscii = 0
End Sub
Private Sub TxtEuro_KeyPress(KeyAscii As Integer)
'si le caractère tapé est différent de 0123456789, rien n est affiché

    If Not Chr(KeyAscii) Like "[0123456789,]" Then KeyAscii = 0
End Sub

Conclusion :


J en convient c est pas trancendant, mais ca marche et je debute....

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

cs_titou2002
Messages postés
50
Date d'inscription
mardi 17 septembre 2002
Statut
Membre
Dernière intervention
25 avril 2005
-
au lieu du bouton effacer tu peux mettre :
Private Sub txtEuro_Click()
txtFF = ""
txtEuro = ""
End Sub

Private Sub txtFF_Click()
txtFF = ""
txtEuro = ""
End Sub

ça a le meme effet que le bouton effacer sauf ke ca efface les textbox kan l'on veut en modifier le contenu

autrement c très bien
pour le filtre je ferais plutot du genre :
if isNumeric(text1.text)
A faire sur le lost focus du textBox....
Essai plutot sa comme filtre :
If (KeyAscii < 48 Or KeyAscii > 57) And (KeyAscii <> 46) And (KeyAscii <> 8) Then KeyAscii = 0 ' chiffre de 0 à 9, le point (.) et [backspace]
c'est LE belge et pas la belge!!!!!
bravo, c'est long et c'est chiant...

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.