JEU DE MÉMOIRE CLASSIQUE

Signaler
Messages postés
3258
Date d'inscription
jeudi 26 novembre 2009
Statut
Membre
Dernière intervention
3 décembre 2019
-
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/54068-jeu-de-memoire-classique

Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
68
sur que les Goto ici n'aident en rien... boucles, tests, etc feront l'affaire.

il ne faut pourtant pas les bannir systématiquement (dans d'autres sources, j'entend)
Messages postés
14769
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
13 février 2021
151
Bonsoir,

HORREUR, des GOTO !!!!!!!!!!!

u:
h = Rnd() * 5 + 1
h2 = Rnd() * 5 + 1 If grille(h, h2) "" Then grille(h, h2) "J" Else GoTo u

Se remplace aisément par :
do
h = Rnd() * 5 + 1
h2 = Rnd() * 5 + 1
loop while grille(h, h2) = ""
grille(h, h2) = "J"

Sinon, Utilises l'objet Random plutot que les fonctions, et même :
Actives Option Explicit et Option Strict et retires l'import de l'espace de nom "Microsoft.VisualBasic" et reviens avec un code plus propre.

En l'état, ta source est un mauvais exemple pour débuter en VB.NET (et même en VB tout court à cause des GOTO).
Messages postés
3258
Date d'inscription
jeudi 26 novembre 2009
Statut
Membre
Dernière intervention
3 décembre 2019
50
Salut
la couleur jaune ne convient pas choisi une couleur plus
douce

tous les Else GoTo (je voulais mettre le smiley pirate)
quand on arrive à trouver toutes les cartes sympa d'afficher un message