Discussion :

[Haknaton]

Bonjour

J'ai un petit exercice à faire pour l'école. Le pseudo code passe et VB plante ...

Le but du programme est de remplir un tableau de 12 indices avec 6 paires de nombres allant de un à six. Je sais qu'il existe aussi le IsEmpty pour vérifier si une variable est vide. Normalement je n'ai pas encore vu de fonction pour mélanger un tableau.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Randomize
Dim i, caseok, cases(12), casetotry
For i = 1 To 6 'mon nombre de un à six
    For j = 1 To 2 'je le met deux fois pour avoir des paires
        caseok = 0
        While caseok = 0
            casetotry = Int(Rnd * 11)
            'Si la place est libre, je prend sinon je cherche ailleur
            If cases(casetotry) = 0 Then 
                cases(casetotry) = i
                caseok = 1
              Else
            End If
        Wend
    Next
Next

Avec la boucle de mon i à 5 ça passe, au delà, ça crash

[AdHoc]

Bonjour,
Comment déclares tu ton tableau ?
Pour le parcours, utilise lbound et ubound.

[zazaraignée]

Salut

Je me suis permi de modifier les indentations de ton code et j'ai aussi éliminé des lignes blanches, dans le but d'en améliorer la lisibilité.

J'ai noté ceci:

1. Toutes tes variables n'ont pas de type déclarés explicitement. Elles sont donc toutes de type Variant. À éviter autant que possible.
2. Ton tableau est déclaré avec 13 indices de zéro à 12.
3. Essaie de vérifier le contenu de ton tableau avec
   

   Code :

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

   If cases(casetotry) = "" Then

4. Tu remplis ton tableau et ensuite tu remplace la valeur entrée alors que tu devrais concaténer les deux valeurs:
   

   Code :

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

   cases(casetotry) = cases(casetotry) & ", " & i

   sauf que vu que ton test (while, wend) est à l'intérieur des deux boucles for next, la deuxième valeur ne sera jamais concaténée. tu dois faire ton test tout de suite à la première boucle et faire la deuxième selon le résultat de ce test.

[Haknaton]

Merci pour le code, on y vois plus clair !

Euh Zazaraignée pourquoi me parle tu de concaténation ? Le but est simplement d'avoir un tableau contenant des paires de nombre de 1 à 6 disposées aléatoirement dans mon tableau. Le but est en réalité de former un tableau indicé pour une grille de mémory . Donc des nombres allant de 1 à (nombre de carte/2) disposé en paires de façon aléatoire.

Je cherche toujours. Même mon prof n'arrive pas à faire tourner ça alors que c'est le début du mémory pour l'exam de noël .. ça pormet.

Bonne soirée à vous ;-)

Hakna

[Delbeke]

J'ai verifié, le programme ne plante pas, mais il te faudra beaucoup de temps avant qu'il se termine. Je propose un autre approche du problème.
Suppose tes cases préremplies avec des valeur croissantes (de 1 a 10). il te suffit de battre les cartes. En anglais on appelle çà un shuffle

Un petit coup de google ma donné ce lien qui devrait t'être utile
http://www.freevbcode.com/ShowCode.asp?ID=7399

[Delbeke]

Désolé, le code est en Vb.Net, il faut l'adapter un peu
en voici une traduction pour Vb6

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Option Explicit
 
Public Function Shuffle(Deck As Variant) As Variant
  Dim intUBound As Integer
  Dim intHUBound As Integer
  Dim intRanNum As Integer
  Dim a As Variant
  Dim b As Variant
  Dim i As Integer
  Dim blnError As Boolean
  'Starts the randon deck Shuffle
  intUBound = UBound(Deck)
  intHUBound = intUBound
  ReDim a(intUBound)
  ReDim b(intUBound)
  For i = 0 To intUBound
      a(i) = Deck(i) ' Sets array (a) list to (1 to cntnum)
  Next i
  Do
    Randomize ' Activates the Random Number Generator
    intRanNum = Int(Rnd() * intUBound) ' Picks a Random number between 0 and max number
    b(0) = a(intRanNum)
    On Error GoTo ErrCritique
    For i = 1 To intUBound ' Starts a loop
      If intRanNum = intUBound Then intRanNum = -1 ' If the Random number = max number then the Random number becomes 0
      intRanNum = intRanNum + 1 ' Adds 1 to the Random number
      b(i) = a(intRanNum) ' b(current loop value) = The current Random number
    Next i ' Adds 1 to i and loops until i is greater than the max Number
    On Error GoTo 0
    For i = 0 To intUBound
        a(i) = b(i) ' Makes array a the same as array b
    Next i
    intUBound = intUBound - 1 ' Subtracts 1 from the max number
  Loop Until intUBound = -1
  Shuffle = a
  Exit Function
ErrCritique:
  MsgBox "An Error has occured, Outcome may not be acurate", vbCritical, "Error"
End Function
 
Private Sub Command1_Click()
  Dim Tble As Variant
  Dim Resultat As Variant
  Dim iPnt As Integer
  Tble = Split("0,1,2,3,4,5,6,7,8,9,10,11", ",")
  Resultat = Shuffle(Tble)
  For iPnt = 0 To 11
    Debug.Print iPnt, Resultat(iPnt)
  Next
End Sub