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...
Programme très léger > 28 ko compilé
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
- Convertisseurs euros
- Les echos convertisseur - Meilleures réponses
- Convertisseur de base en c - Guide
- Convertisseur python - Guide
- Calculatrice convertisseur franc euro double affichage - Guide
- Convertisseur heure centieme - Guide
- Convertisseur python c - Conseils pratiques - Python
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
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
2Toujours 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...
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.