Convertisseur euros - francs

Télécharger le projet
Commenter

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....
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.