Jeu du nombre cache

Signaler
Messages postés
21
Date d'inscription
samedi 2 décembre 2017
Statut
Membre
Dernière intervention
4 décembre 2017
-
Renfield
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/102363-jeu-du-nombre-cache

Galactus13
Messages postés
328
Date d'inscription
lundi 29 septembre 2008
Statut
Membre
Dernière intervention
2 décembre 2019
1
J'ai en effet, placé la coloration syntaxique ^^
Pour la chaine complète, like ne fonctionne pas , je n'ai pas réussi.
Whismeril
Messages postés
14465
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
7 avril 2020
371 > Galactus13
Messages postés
328
Date d'inscription
lundi 29 septembre 2008
Statut
Membre
Dernière intervention
2 décembre 2019

Un truc comme ça
Like « # » or like « #.# »
.
Sinon une regex de ce genre
\d+([\.,]\d+)?
Galactus13
Messages postés
328
Date d'inscription
lundi 29 septembre 2008
Statut
Membre
Dernière intervention
2 décembre 2019
1
Bonjour,
Désoler, le descriptif a disparu quand j'ai voulu corriger de défaut d'affichage, toujours pas corrigé puisque je n'ai pas le bouton qui permet le code !
Pour faire simple le goto est là pour passer l'option null ... je n'aime pas les gotos quand on peu s'en passer mais dans ce cas de figure, il n'est pas imbriqué dans une boucle, donc pas de risque de plantage ...
Il s'agit d'un vieux code écrit enVB ... 5 !
Oui, oui ! convertie a la base d'un code que j'avais écrit en Qbasic et bien sur amélioré ! Ensuite, je pouvais aussi utiliser par exemple:

If Not Chr(KeyAscii) Like "[0123456789-]" Then KeyAscii = 0

Mais cette fonction bien que très pratique et fonctionnel à un sérieux défaut:
Il accepte des virgule ou des points a volonté dans le textBox,
donc mon petit code permet de corriger cela avec un code simple et somme toute court.
Whismeril
Messages postés
14465
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
7 avril 2020
371 > Galactus13
Messages postés
328
Date d'inscription
lundi 29 septembre 2008
Statut
Membre
Dernière intervention
2 décembre 2019

Comme précisé dans le premier lien que je t’ai donné, il est decrit comment mettre la coloration sans le bouton.
Et quand je dis de tester avec like, c’est sur la chaine complète.
Whismeril
Messages postés
14465
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
7 avril 2020
371
Bonjour Galatus, ça fait fouillis comme tu dis car tu n’as pas utilisé la coloration syntaxique. Voir ici https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
D’autre part le titre parle de textbox, or ce code est une fonctions isolée.
Tu n’expliques pas comment on l’utilise avec une textbox ni d’ailleurs à quoi elle sert.

Du point de vue du code, tu utlises un goto, c’est très déconseillé https://www.developpez.net/forums/d4388/general-developpement/langages-programmation/debuter/pourquoi-goto-deconseille/
En plus, si le but est de vérifier que le texte représente un nombre, tu aurais gagné du temps (d'exécution et de codage) comparant directement la chaine avec Like ou une regex.
Renfield
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
61 > Whismeril
Messages postés
14465
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
7 avril 2020

GOTO déconseillé
on voit bien là quelqu'un qui n'a aucune conscience de ce qui se passe une fois compilé ^^
des sauts; des sauts et encore...... des sauts
vb95
Messages postés
2099
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
2 avril 2020
89
Bonsoir Galactus13
Désolé : le code est bien du VB 6
Oublie mon commentaire avec mes excuses
vb95
Messages postés
2099
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
2 avril 2020
89
bonjour !
C'est du code VB Net à la sauce VB 6
Tu ne profites nullement des fonctionnalités NET !
Ne mérite point à mon avis de rester sur le site

Pour coder en VB Net un excellent site : https://plasserre.developpez.com/cours/vb-net/
Galactus13
Messages postés
328
Date d'inscription
lundi 29 septembre 2008
Statut
Membre
Dernière intervention
2 décembre 2019
1
Pourquoi sa fait fouillis ?