JEU DE MÉMOIRE CLASSIQUE

Commentaire de NHenry le 15/02/2012 20:06:04 administrateur CS

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).