Convertisseur

Soyez le premier à donner votre avis sur cette source.

Snippet vu 2 517 fois - Téléchargée 35 fois

Contenu du snippet

Un petit convertisseur Francs-Euros et Euros-francs, y a juste un petit bug (comme je suis débutant g pas reussi a l'enlever) c ke lorsque l'on rentre aucune valeur, le programme bug...

Source / Exemple :


'Convertisseur Francs > Euros
Private Sub CmdConvertir_Click()
    Dim Francs As String, Taux As Single, Euros As String
Francs = Text1

    If (Francs = "Entrez une valeur") Then
        Francs = "VOUS DEVEZ ENTRER UNE VALEUR !"
        Text2 = Francs
        Else
        Taux = 6.55957
        Euros = Francs * Taux
        Text2 = Euros
    End If

End Sub
_________________________________________________________________________
'Convertisseur Euros > Francs
Private Sub Command1_Click()
    Dim FF As String, T As Single, Eu As Single
FF = Text3
    If (FF = "Entrez une valeur") Then
        FF = "VOUS DEVEZ ENTRER UNE VALEUR !"
        Text4 = FF
        Else
        T = 6.55957
        Eu = FF / T
        Text4 = Eu
    End If
End Sub

Conclusion :


Programme très léger > 28 ko compilé

A voir également

Ajouter un commentaire Commentaires
Messages postés
2
Date d'inscription
samedi 24 mai 2003
Statut
Membre
Dernière intervention
28 mai 2003

merci, pour votre aide je m en souviendrai pour les prochain prog
Messages postés
2
Date d'inscription
samedi 24 mai 2003
Statut
Membre
Dernière intervention
28 mai 2003

merci, pour votre aide je m en souviendrai pour les prochain prog
Messages postés
921
Date d'inscription
vendredi 20 décembre 2002
Statut
Membre
Dernière intervention
23 septembre 2010

Le mieux ce serait 2 textbox, 2 commandbuttons :
Euros>Francs
Private sub Command1_Click()
if not isnumeric(text1.text) then
msgbox "Entrez un nombre"
exit sub
end if
Text2.text = text1.text * 6.55957
End sub
_______________________________

Private sub Command2_Click()
if not isnumeric(text1.text) then
msgbox "Entrez un nombre"
exit sub
end if
Text2.text = text1.text / 6.55957
End sub

Voilà voilà, mais bon tu débute, donc il ne faut pas demander trop d'optimisation...
C'est vrai que le nombre de variables est élevé, je mettrais 6 pour l'encouragement...
A+
Saros
Messages postés
234
Date d'inscription
mardi 31 décembre 2002
Statut
Membre
Dernière intervention
30 juillet 2008

'Convertisseur Francs > Euros
Private Sub CmdConvertir_Click()

If Text1.Text = "" Then
Msgbox "Entrez une valeur"
Else
If Text1.Text = "Entrez une valeur" then
Msgbox "Entrez une valeur"
else
Text2.Text = Text1.Text * 6.55957
End If
End If

End Sub
_________________________________________________________________________
'Convertisseur Euros > Francs
Private Sub Command1_Click()

If Text3.Text = "" Then
Msgbox "Entrez une valeur"
Else
If Text3.Text = "Entrez une valeur" then
Msgbox "Entrez une valeur"
else
Text4.Text = Text3.Text / 6.55957
End If
End If

End Sub


Je trouve ça unpeu plus compréhensible quoi que le mieux serai un prog avec 2 textbox (un pour la valeur indiquée, un autre pour la valeur donnée), un combobox(francs et Euro) et pour finir un bouton pour executer le tout...
Je sais que tu débute, moi aussi, mais ça n'est pas impossible a faire c'est relativement simple pratiquement plus que celui que tu viens de déposer.
Sinon pour la note j'te donne 5, car tu débute, tu as donc les faveurs du débutant mais parce que il y a trop de variable, tu n'en as pas besoin, te complique pas la vie!!!
Aller A+ et bon prog!!!!
Messages postés
897
Date d'inscription
jeudi 6 juin 2002
Statut
Membre
Dernière intervention
26 juillet 2007
2
Autre chose, je le trouve bien compliqué ton code pour peu de choses...

Toujours si Text1 est la valeur a entrer, et Text2 le résultat, tu fais:

Private Sub CmdConvertir_Click()
Text2.Text = val(Text1) * 6.55957
End Sub

C'est pas plus simple et plus rapide ca? Aucune variable, rien !
En trois lignes !

Ne me dites pas que parce qu'il est débutant, il ne sait pas faire ca, c'est le plus simple !

--> Strato, rassures toi, je ne me foue pas du tout de ta gueule...
Afficher les 6 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.