Jeu du nombre cache

ahcacdde Messages postés 21 Date d'inscription samedi 2 décembre 2017 Statut Membre Dernière intervention 4 décembre 2017 - 2 déc. 2017 à 14:19
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 20 déc. 2019 à 07:22
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

Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 74
20 déc. 2019 à 07:22
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
Whismeril Messages postés 19028 Date d'inscription mardi 11 mars 2003 Statut Non membre Dernière intervention 24 avril 2024 656
5 avril 2019 à 07:05
Un truc comme ça
Like « # » or like « #.# »
.
Sinon une regex de ce genre
\d+([\.,]\d+)?
Galactus13 Messages postés 335 Date d'inscription lundi 29 septembre 2008 Statut Membre Dernière intervention 16 août 2023 1
5 avril 2019 à 02:46
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 19028 Date d'inscription mardi 11 mars 2003 Statut Non membre Dernière intervention 24 avril 2024 656
4 avril 2019 à 17:53
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.
Galactus13 Messages postés 335 Date d'inscription lundi 29 septembre 2008 Statut Membre Dernière intervention 16 août 2023 1
Modifié le 4 avril 2019 à 17:15
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 19028 Date d'inscription mardi 11 mars 2003 Statut Non membre Dernière intervention 24 avril 2024 656
4 avril 2019 à 07:04
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.
vb95 Messages postés 3472 Date d'inscription samedi 11 janvier 2014 Statut Contributeur Dernière intervention 13 avril 2024 169
4 avril 2019 à 01:48
Bonsoir Galactus13
Désolé : le code est bien du VB 6
Oublie mon commentaire avec mes excuses
vb95 Messages postés 3472 Date d'inscription samedi 11 janvier 2014 Statut Contributeur Dernière intervention 13 avril 2024 169
Modifié le 4 avril 2019 à 00:32
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 335 Date d'inscription lundi 29 septembre 2008 Statut Membre Dernière intervention 16 août 2023 1
4 avril 2019 à 00:29
Pourquoi sa fait fouillis ?
Rejoignez-nous