Convertisseur euros

Soyez le premier à donner votre avis sur cette source.

Vue 2 779 fois - Téléchargée 137 fois

Description

Rien de bien extraordinaire mais c'est le moment
d'écrire ce genre de programme bientôt ils seronts
inutiles (quoique avant de savoir d'instinct la valeur des choses en euros c'est pas demain la veille)

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Pas mal et toujours pratique mais il y a plus simple (en restant complet tout de meme :)

Const TauxEuro As Double = 6.55957

Function EnleveLettres(ByVal TextBox As TextBox)

For i = 1 To Len(TextBox)

Dim Char, Final As String
Char = Mid(TextBox, i, 1)

If Char "0" Or Char "1" Or Char = "2" Or Char = "3" Or Char = "4" Or Char = "5" Or Char = "6" Or Char = "7" Or Char = "8" Or Char = "9" Or Char = "," Then

Final = Final & Char

ElseIf Char = "." Then

Final = Final & ","

End If


Next i

If chkConvertir.Enabled True Then CmdConvertir.Value True

TextBox.Text = Final
TextBox.SelStart = Len(Final)

End Function


Private Sub CmdConvertir_Click()

If txtFrancs "" Then txtFrancs "0"
If txtEuros "" Then txtEuros "0"


If optEvF.Value = True Then

txtFrancs.Text = Round(txtEuros.Text * TauxEuro, 2)

ElseIf optFvE = True Then

txtEuros.Text = Round(txtFrancs.Text / TauxEuro, 2)

End If

End Sub

Private Sub txtEuros_Change()

EnleveLettres txtEuros

End Sub

Private Sub txtEuros_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

optEvF.Value = True
CmdConvertir.Value = True

End If

End Sub

Private Sub txtFrancs_Change()

EnleveLettres txtFrancs

End Sub

Private Sub txtFrancs_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

optFvE.Value = True
CmdConvertir.Value = True

End If

End Sub
Le supermarché n'est pas le seul endroit où l'argent navigue tu sais quand tu dois saisir le règlement de factures rédigées en francs mais payer en euros un ALT TAB est plus rapide que de servir d'une calculette même d'une TI82
C'est pratique ! Tu prend ton ordinateur au supermarché ? Bon courage alors. Fait comme moi, prend une calculette, j'ai fait un petit prog de conversion sur ma ti82 et c'est moi encombrant et plus simple !
Un format monétaire a forcement 2 décimales et celà fait 6.56 fr et non pas 6.55 fr
Un format monéataire a forcement 2 décimales et celà fait 6.56 fr et non pas 6.55 fr
Afficher les 8 commentaires

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.