Ecrire / Lire un tableau à 2 dimentions

[langa68]

Bonjour tout le monde,javascript:emoticon(':D')
Very Happy

Je suis débutant en PB et malgré mes recherches sur les forums PB, qu’ils soit français ou allemand je n’ai pas trouvé de solution à mon problème.javascript:emoticon('')
Crying or Very sad

Problème :
Je désire remplir un tableau à 2 dimentions avec des chiffres pour ensuite le relire.

Voici mon code qui ne fonctionne pas :

#NbNombNumero = 3;Nombre de numéros
#NbNumero = 3;Type de numéros

Dim Tableau_numeros.b(#NbNombNumero,#NbNumero)

For i = 1 To #NbNombNumero
For j = 1 To #NbNumero
Tableau_numero (i)=Random(100)+1
Tableau_numero (j)=Random(10)+1
Print (Tableau_numero (i,j))

;MessageRequester("Suite","Continuer ?",0)
Next j
Next i

MessageRequester("Fin de programme","Terminer ?",0)

End

Pouvez vous m’aider ?javascript:emoticon(':?:')
Question
Merci pour votre aide.javascript:emoticon(':P')
Razz

[Gillou]

Salut, j'ai corrigé ton code, après à toi de voir comment tu veux afficher tes données (en mode fenêtre, console,...)

#NbNombNumero = 3 ;Nombre de numéros
#NbNumero = 3 ;Type de numéros

Dim Tableau_numeros.l( #NbNombNumero , #NbNumero )
; On déclare le tableau avec son format de données, tu utilises random donc vaut mieux mettre de type long
; CF Aide de purebasic, Thèmes généraux, Variables Types et opérateurs pour plus de détails

; On commence la boucle
For i = 1 To #NbNombNumero
     For j = 1 To #NbNumero
         ; Une fois ton tableau déclaré tu dois toujours l'écrire exatement pareil
        Tableau_numeros(i, j) = Random (100)+1
        
         ; Utilse plutot la commande Debug qui affiche le résultat dans le debugger
        
         Debug Str (i)+ " ; " + Str (j)+ " : " + Str (Tableau_numeros(i, j)) ; str() convertit une valeur numérique en une chaîne de caractères, cf aide
        
         ; print sert à afficher du texte en mode console (cf belle écran noir avant Notre windows fenêtré, comme avec la commande cmd.exe...)
     Next j
Next i

MessageRequester ( "Fin de programme" , "C'est fini" ,0)

[langa68]

Merci Gillou, c'est exactement ce qu'il me fallait.

langa68