Discussion :

[charlesz]

Bonjour,

Je voudrais faire un petit programme qui parcourt aléatoirement une matrice d'mages (3*3) et qui s'arrête sur une image (aléatoirement) quand on clique sur un bouton clavier ou bien sur un bouton sur la form.

Quelqu'un a t-il un exemple de code ?

Je vous remercie d'avance pour votre aide.

[hunteshiva]

tu peu utiliser la fonction random

un exemple d'une focntion que j'ais crée il y a un mois ou 2

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
    Public Sub CouleurAleatoire(ByVal picture As PictureBox)
 
        Dim opacite, rouge, vert, bleu As Integer
        ' choix d'une opacité faible ( 0-> clair / 255-> opaque)
        opacite = 50
        ' choix des couleurs en aléatoire
        rouge = Int(Rnd() * 255)
        vert = Int(Rnd() * 255)
        bleu = Int(Rnd() * 255)
 
        picture.BackColor = Color.FromArgb(opacite, rouge, vert, bleu)
    End Sub

tu a juste a numéroter tes 9 possibilités,
et faire ceci

Code :

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

1
2
3
dim CaseAleatoire As Integer
 
CaseAleatoire = Int(Rnd() * 9)

*a voir si tu garde bien un chiffre compris entre 1 et 9*
sinon penser a un modulo ou truc du genre

pour le reste:

quand on clique sur un bouton clavier ou bien sur un bouton sur la form

a toi de choisir a qu'elle moment tu va appeler ta focntion

[charlesz]

Merci bcp pour ta proposition.

Je vais tester et voir ce que ça donne

[methylene]

De plus si tu veux que ton aléatoire ne soit pas toujours dans le même ordre, rajoute au début, pour initialiser le générateur de nombres aléatoires.

Code :

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

Randomize()