Convertisseur euros/francs et francs/euros avec taux changeable
Soyez le premier à donner votre avis sur cette source.
Vue 28 818 fois - Téléchargée 721 fois
Description
Il sagit d'un convertisseur euros plutot banal avec la possiblité de changer le taux de convertion. (C'est mon 1er programme soyez indulgent!!!!!)
Mise à jour:
12/04/03:
-Optimisation des commentaires
-Définition de l'ordre de tabulation
13/04/03:
-Supression des message d'erreurs si les données rentrées dans les TextBox
ne sont pas de type numérique
-Ajout d'une fonction qui autorise ou non des caractères dans les TextBox
=>Allégement du code
Source / Exemple :
'**************************************************************
'* Convertisseur Franc<->Euros
'* avec taux changeable
'*
'*
'* Elements utilisés:
'* - 2 TextBox: txtTaux, txtValeur
'* - 3 GroupeBox : gpeTaux, gpeConversion, gpeResultat
'* - 2 RadioButton : rdbFrancEuro, rdbEuroFranc
'* - 3 Label : lblConvertion, lblUnite, lblResultat
'* - 1 Button : btnConvertir
'* - 1 Timer : Timer
'*
'**************************************************************
Private Sub btnConvertir_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles btnConvertir.Click
'Declaration des variables
Dim Taux As String
Dim Euro As String
Dim Franc As String
Dim NumTaux As Double
Dim NumEuro As Double
Dim NumFranc As Double
'Met dans La variable Taux le contenu de txtTaux en remplacant
'le caractère "." par ","
Taux = txtTaux.Text.Replace(".", ",")
'Convertion de la variable Taux (de type String = Chaine de caractères)
'vers une nouvelle variable NumTaux
'(de type Double = numérique codée sur 8 octets)
NumTaux = CType(Taux, Double)
'Choix du type de convertion Francs/Euros ou Euros/Francs
If rdbFrancEuro.Checked = True Then
Franc = txtValeur.Text.Replace(".", ",")
NumFranc = CType(Franc, Double)
'Calcul de la convertion
NumEuro = NumFranc / NumTaux
'Convertion de la variable NumEuro
'(de type Double = numérique codée sur 8 octets)
'vers une nouvelle variable Euro (de type String = Chaine de
'caractères)
Euro = NumEuro.ToString
lblResultat.Text = Euro & " ?"
Else
Euro = txtValeur.Text.Replace(".", ",")
NumEuro = CType(Euro, Double)
'Calcul de la convertion
NumFranc = NumEuro * NumTaux
Franc = NumFranc.ToString
lblResultat.Text = Franc & " Fr"
End If
End Sub
'Autorise seulement les touches numériques et le point dans txtValeur
'et txtTaux
Private Sub TestTouches(ByVal sender As Object, _
ByVal e As System.Windows.Forms.KeyPressEventArgs) _
Handles txtTaux.KeyPress, _
txtValeur.KeyPress
'Si la touche est différente d'un touche numérique (0 à 9)
'ou du point (Asc(e.KeyChar) = 46) ou de la touche back
'Alors on annule l'action (Appui sur une touche)
If e.KeyChar.IsDigit(e.KeyChar) = False _
And Asc(e.KeyChar) <> 46 _
And Asc(e.KeyChar) <> System.Windows.Forms.Keys.Back Then
e.Handled = True
End If
End Sub
'Scrutation de l'état des radio boutons pour définir la valeur de lblUnite
Private Sub Timer1_Tick(ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles Timer1.Tick
'Détermine l'unitée qui sera affichée sur lblUnite
If rdbFrancEuro.Checked = "true" Then
lblUnite.Text = "Fr"
Else
lblUnite.Text = "?"
End If
End Sub
End Class
Conclusion :
Mise à jour:
12/04/03:
-Optimisation des commentaires
-Définition de l'ordre de tabulation
13/04/03:
-Supression des message d'erreurs si les données rentrées dans les TextBox
ne sont pas de type numérique
-Ajout d'une fonction qui autorise ou non des caractères dans les TextBox
=>Allégement du code
Codes Sources
A voir également
- Francs en euros
- Convertion franc euro - Meilleures réponses
- Convertisseur francs euros - Meilleures réponses
- Visual Basic / VB.NET : Convertir les franc en euros - CodeS SourceS - Guide
- C / C++ / C++.NET : Convertisseur de monnaie francs et euros - CodeS SourceS - Guide
- C / C++ / C++.NET : Un convertisseur francs vers euros - CodeS SourceS - Guide
- 10 francs francais en euros - Guide
- Convertiseur franc en euros - Guide
8 avril 2003 à 23:04
Malheuresement je peux pas tester, j'ai que VB 6 ;)
Mais sinon pour un premier programme tu a changé l'aspect et tout, vraiment bien.
j'ai aussi regarder le code .. ca a l'air pas mal ;)
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.