dx3
Messages postés2Date d'inscriptionvendredi 23 décembre 2005StatutMembreDernière intervention27 février 2008 28 oct. 2007 à 00:06
Je sais et je suis en train de faire une nouvelle version
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 201847 17 oct. 2007 à 00:45
description un peu maigre :s
c'est pas vendeur!
tu peux mettre à jour stp? au moins de donner envie de télécharger, ou tout au moins savoir pourquoi regarder ou non
++
MadM@tt
Messages postés2167Date d'inscriptionmardi 11 novembre 2003StatutMembreDernière intervention16 juillet 20091 9 oct. 2007 à 00:37
La présentation du code sert à présenter ce que le code fait ...
Explique un minimum au moins
econs
Messages postés4030Date d'inscriptionmardi 13 mai 2003StatutMembreDernière intervention23 décembre 200824 8 oct. 2007 à 21:47
Salut,
En utilisant "On Error Resume Next", tu ne verras jamais les fautes dans ton code. C'est certes très pratique, mais c'est dommage.
Par exemple, je vois dans le code un certain nombre de divisions qui pourraient être des divisions par 0 si je rentrais "0" dans la textbox adéquate :
If txt_joul.Text "" Or txt_secondes.Text "" Or txt_joul.Text = "Joules" Or txt_secondes.Text = "Secondes" Then
text3.Text = text3.Text & vbNewLine & "Veuillez saisir les joules et les secondes"
Else text3.Text text3.Text & vbNewLine & "P " & Val(txt_joul.Text) / Val(txt_secondes.Text) ' <============ ICI
28 oct. 2007 à 00:06
17 oct. 2007 à 00:45
c'est pas vendeur!
tu peux mettre à jour stp? au moins de donner envie de télécharger, ou tout au moins savoir pourquoi regarder ou non
++
9 oct. 2007 à 00:37
Explique un minimum au moins
8 oct. 2007 à 21:47
En utilisant "On Error Resume Next", tu ne verras jamais les fautes dans ton code. C'est certes très pratique, mais c'est dommage.
Par exemple, je vois dans le code un certain nombre de divisions qui pourraient être des divisions par 0 si je rentrais "0" dans la textbox adéquate :
If txt_joul.Text "" Or txt_secondes.Text "" Or txt_joul.Text = "Joules" Or txt_secondes.Text = "Secondes" Then
text3.Text = text3.Text & vbNewLine & "Veuillez saisir les joules et les secondes"
Else text3.Text text3.Text & vbNewLine & "P " & Val(txt_joul.Text) / Val(txt_secondes.Text) ' <============ ICI
End If