Discussion :

[pinot]

Bonjour,

J'ai un test dans un programme que je ne comprend pas. ça donne ça en résumé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Dim x As String
Dim y As Long
 
If Not IsNumeric(x) then ERREUR
Else
     y=x
     If y<>x then ERREUR
     EndIf
EndIf

Ca peut servir à quoi cette méthode? mettre un string dans un long et regarder s'il est égale au string?

Pour l'instant je vois juste la conséquence (facheuse pour moi) que si string est plus long que 10, alors il y a une erreur d'exécution (les Long sont sur 10).

Quelqu'un a une idée de l'intéret?

[méphistopheles]

c'est vraiment laid comme code...
le long=string me fait vraiment peur... il pourrais utiliser un val au moins...

[lp38]

Ca semble etre du code pour convertir une chaine en nombre.
Si cela risque de dépasser la capacité du long, mieux vaut utiliser un autre type que long, comme un double

[pinot]

ce qui m'intéresse, c'est de savoir si on peut se retrouver avec y<>x (renommer pour que bbil m'apporte ses lumières). c'est peut etre fait au cas où il y aurait des blancs dans x.

[SfJ5Rpw8]

non c'est pas trop clair... bizarre le code ... il y as quoi dans ta variable x..? ..
à priori pour les espaces c'est pas le cas ....

peu être une histoire de test de la partie entiére de ton nombre...?

[pinot]

x a été saisie par l'utilisateur. ça peut etre n'importe quel chaine de caractère.

c'est un bout de code qui a été rajouté pour corriger un bug. le but est de controler que ce qu'on a rentré est valide (une chaine de caractère qui peut etre converti en numérique). Mais je veux savoir pourquoi IsNumeric() ne suffit pas

[SfJ5Rpw8]

ben peu-être pour les chiffres décimaux.. (à virgule...)

[pinot]

Ah oui, c'est ça. je ne m'étais pas rendu compte que IsNumeric(2,6) renvoi true.
Mais y'a pas une méthode IsInterger()?

[pinot]

bon ya pas de IsInteger prédéfini mais j'ai trouvé ça ici

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Private Function isInteger(Expression As Variant) As Boolean 
    Dim D As Double 
 
    If IsNumeric(Text1.Text) Then 
        D = CDbl(Text1.Text) 
        If D = Int(D) Then isInteger = True 
    End If 
End Function

finalement l'idée de départ n'était pas si "laide", non?

[SfJ5Rpw8]

....

finalement l'idée de départ n'était pas si "laide", non?

ce qui était laid dans l'idée de départ c'est le nom de tes variables... maintenant c'est un peu mieux...

aprés il te faudra corriger cette fonction ... qui n'utilise pas son paramétre expression (la aussi le nom du paramétre ne me plaid pas.. ) .. mais text1.text.. en "dur"...

[pinot]

pour le laid, c'est rapport au post de méphistopheles, je trouve que les deux méthodes sont finalement comparable (mais peut etre que les deux sont mal écrites, c'était pour avoir l'avis de méphistopheles).

mes noms de variable étaient là pour se souvenir que x est un String, le genre de chose qu'on peut trouver dans des codes objet (Toto toto = new Toto()). sur un petit exemple, c'est très lisible et ça permet de se souvenir de ce qu'est toto. donc je trouve mes noms de variable de début bien choisis, mais j'ai tord si "string" est un mot réservé en VB et que je ne le sais pas.

[pinot]

le text1.text ça vient d'une textBox. Mais j'ai copié ça sur developpez.net sans regarder (le Expression est en trop)