z980x
Messages postés897Date d'inscriptionjeudi 6 juin 2002StatutMembreDernière intervention26 juillet 2007
-
24 mai 2003 à 20:16
cs_Strato
Messages postés2Date d'inscriptionsamedi 24 mai 2003StatutMembreDernière intervention28 mai 2003
-
28 mai 2003 à 17:27
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
cs_Strato
Messages postés2Date d'inscriptionsamedi 24 mai 2003StatutMembreDernière intervention28 mai 2003 28 mai 2003 à 17:27
merci, pour votre aide je m en souviendrai pour les prochain prog
cs_Strato
Messages postés2Date d'inscriptionsamedi 24 mai 2003StatutMembreDernière intervention28 mai 2003 28 mai 2003 à 16:42
merci, pour votre aide je m en souviendrai pour les prochain prog
Saros
Messages postés921Date d'inscriptionvendredi 20 décembre 2002StatutMembreDernière intervention23 septembre 2010 25 mai 2003 à 22:21
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
zelze
Messages postés234Date d'inscriptionmardi 31 décembre 2002StatutMembreDernière intervention30 juillet 2008 25 mai 2003 à 10:57
'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!!!!
z980x
Messages postés897Date d'inscriptionjeudi 6 juin 2002StatutMembreDernière intervention26 juillet 20072 24 mai 2003 à 20:24
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...
z980x
Messages postés897Date d'inscriptionjeudi 6 juin 2002StatutMembreDernière intervention26 juillet 20072 24 mai 2003 à 20:16
Pour que le programme ne bug pas, tu fais ceci:
Si C'est dans un text1 que tu dois rentrer la valeur:
If Text1.Text = "" Then
MsgBox "Vous devez entrer une valeur !"
End If
Ce petit code dans le bouton qui permet de convertir...
28 mai 2003 à 17:27
28 mai 2003 à 16:42
25 mai 2003 à 22:21
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
25 mai 2003 à 10:57
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!!!!
24 mai 2003 à 20:24
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...
24 mai 2003 à 20:16
Si C'est dans un text1 que tu dois rentrer la valeur:
If Text1.Text = "" Then
MsgBox "Vous devez entrer une valeur !"
End If
Ce petit code dans le bouton qui permet de convertir...