1. Accueil
  2. Visual Basic / VB.NET
  3. Sources Visual Basic / VB.NET
  4. Sources Maths
  5. Convertisseur euros - francs

Convertisseur euros - francs

Soyez le premier à donner votre avis sur cette source.

Vue 3 507 fois - Téléchargée 185 fois

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

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
19 déc. 2002 à 21:33
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
tom
23 juin 2001 à 00:09
pour le filtre je ferais plutot du genre :
if isNumeric(text1.text)
A faire sur le lost focus du textBox....
Z@p
15 juin 2001 à 05:50
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]
vb6fr.dll
31 mai 2001 à 17:11
c'est LE belge et pas la belge!!!!!
adn733r
31 mai 2001 à 16:35
bravo, c'est long et c'est chiant...
Afficher les 6 commentaires
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.