Structure et tableau double

Thyphoon · Message par **Thyphoon** » sam. 24/nov./2007 9:47

Y a des fois je me prend la tête sur des trucs...

j'ai besoin d'une structure comportant un tableau double

Structure KeyboardParam
  KeyboardDim.l[#MaxKeyPerLine][#MaxLine] ;
EndStructure

mais ça ne marche pas... Est ce que c'est bien possible ? Il me semblait avoir déjà utiliser dans un code, mais je ne remet pas la main de dessus, la doc ne parle pas beaucoup, et la recherche sur le forum n'est pas probante (chercher structure et tableau dans le forum et ils vous trouve quasiment tout les topics)

Voilà si quelqu'un connais la reponse je l'en remerci d'avance

Thy

poshu · Message par **poshu** » sam. 24/nov./2007 10:23

Ok, j'ai jamais vraiment eu besoin d'un tableau à plusieurs dimension dans une structure, mais ta question m'a fait sortir un petit bricolage de la tete (je sais, le bricolage c'est jamais la solution, mais là j'ai pas mieux. Ca viendra peut etre dans la journée)... Je ferais ca, tout betement:

Code : Tout sélectionner

Structure machinchouette
  maxkeyperline.l[#MaxKeyPerLine]
EndStructure
Structure KeyboardParam
  KeyboardDim.machinchouette[#MaxLine]
EndStructure

note pour moi meme: faut que je chope le colorer pour ce forum.

Guimauve · Message par **Guimauve** » sam. 24/nov./2007 15:46

À l'heure actuelle dans PB c'est le seul moyen pour avoir un tableau avec 2 dimension ou plus.

Petit exemple jusqu'à 5 dimensions.

A+
Guimauve

Code : Tout sélectionner

; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; Nom du projet : Tableau statique 1D-2D-3D-4D-5D
; Fichier : Démonstration
; Version : 1.0.1
; Programmation : OK
; Programmé par : Guimauve
; Date : 09-06-2007
; Mise à jour : 27-10-2007
; Codé avec PureBasic V4.10
; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

#ARRAY1D_MAX = 5
#ARRAY2D_MAX = 5
#ARRAY3D_MAX = 5
#ARRAY4D_MAX = 5
#ARRAY5D_MAX = 5

Structure Array1D
  
  Element1D.d[#ARRAY1D_MAX]
  
EndStructure

Structure Array2D
  
  Element2D.Array1D[#ARRAY2D_MAX]
  
EndStructure

Structure Array3D
  
  Element3D.Array2D[#ARRAY3D_MAX]
  
EndStructure

Structure Array4D
  
  Element4D.Array3D[#ARRAY4D_MAX]
  
EndStructure

Structure Array5D
  
  Element5D.Array4D[#ARRAY5D_MAX]
  
EndStructure

; <<<<<<<<<<<<<<<<<<<<<<<<<<
; <<<<< Macros d'accès <<<<<

Macro AccessArray1D(ArrayA, i)
  
  ArrayA\Element1D[i]
  
EndMacro

Macro AccessArray2D(ArrayA, i, j)
  
  ArrayA\Element2D[j]\Element1D[i]
  
EndMacro

Macro AccessArray3D(ArrayA, i, j, k)
  
  ArrayA\Element3D[k]\Element2D[j]\Element1D[i]
  
EndMacro

Macro AccessArray4D(ArrayA, i, j, k, l)
  
  ArrayA\Element4D[l]\Element3D[k]\Element2D[j]\Element1D[i]
  
EndMacro

Macro AccessArray5D(ArrayA, i, j, k, l, m)
  
  ArrayA\Element5D[m]\Element4D[l]\Element3D[k]\Element2D[j]\Element1D[i]
  
EndMacro

; <<<<<<<<<<<<<<<<<<<<<<<<
; <<<<< CODE D'ESSAI <<<<<
; <<<<<<<<<<<<<<<<<<<<<<<<

Alpha.Array5D

For Index5D = 0 To #ARRAY5D_MAX - 1
  For Index4D = 0 To #ARRAY4D_MAX - 1
    For Index3D = 0 To #ARRAY3D_MAX - 1
      For Index2D = 0 To #ARRAY2D_MAX - 1
        For Index1D = 0 To #ARRAY1D_MAX - 1
          AccessArray5D(Alpha, Index1D, Index2D, Index3D, Index4D, Index5D) = (Index1D + Index2D + Index3D + Index4D + Index5D) * #PI 
        Next
      Next
    Next
  Next
Next 

For Index5D = 0 To #ARRAY5D_MAX - 1
  For Index4D = 0 To #ARRAY4D_MAX - 1
    For Index3D = 0 To #ARRAY3D_MAX - 1
      For Index2D = 0 To #ARRAY2D_MAX - 1
        For Index1D = 0 To #ARRAY1D_MAX - 1
          Debug "(" + Str(Index1D) + ", " + Str(Index2D) + ", " + Str(Index3D) + ", " + Str(Index4D) + ", " + Str(Index5D) + ") = " + StrD(AccessArray5D(Alpha, Index1D, Index2D, Index3D, Index4D, Index5D), 6)
        Next
      Next 
    Next
  Next
Next

; <<<<<<<<<<<<<<<<<<<<<<<<<<
; <<<<< FIN DU FICHIER <<<<<
; <<<<<<<<<<<<<<<<<<<<<<<<<<

Thyphoon · Message par **Thyphoon** » sam. 24/nov./2007 15:48

poshu a écrit :Ok, j'ai jamais vraiment eu besoin d'un tableau à plusieurs dimension dans une structure, mais ta question m'a fait sortir un petit bricolage de la tete (je sais, le bricolage c'est jamais la solution, mais là j'ai pas mieux. Ca viendra peut etre dans la journée)... Je ferais ca, tout betement:
Code : Tout sélectionner
Structure machinchouette
  maxkeyperline.l[#MaxKeyPerLine]
EndStructure
Structure KeyboardParam
  KeyboardDim.machinchouette[#MaxLine]
EndStructure
note pour moi meme: faut que je chope le colorer pour ce forum.

A oui pas bête j'avais pas penser a ça. C'est vrai que je pensais que les doubles tableaux étaient suporter dans les structures. mais si ce n'est pas le cas c'est une bonne idée que tu proposes je vais tester ça

Thyphoon · Message par **Thyphoon** » sam. 24/nov./2007 15:51

Guimauve a écrit :À l'heure actuelle dans PB c'est le seul moyen pour avoir un tableau avec 2 dimension ou plus.

Petit exemple jusqu'à 5 dimensions.

A+
Guimauve

merci !! désolé j'avais commencé a repondre a poshu et mon gamin est tombé malade ça fait des heures que ma reponse pour poshu était en attente et du coup j'ai pas vu le tient.
Merci pour l'exemple c'est tres interessant !

Guimauve · Message par **Guimauve** » sam. 24/nov./2007 16:05

Tiens un petit bout de code pour ton projet.

A+
Guimauve

[EDIT] Petite correction dans la 2e structure.

Code : Tout sélectionner

; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; Nom du projet : Le nom du projet ici
; Fichier : Source principal
; Version : 0.0.0
; Programmation : À compléter
; Programmé par : Guimauve
; Date : 24-11-2007
; Mise à jour : 24-11-2007
; Codé avec PureBasic V4.10
; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

#MaxKeyPerLine = 3
#MaxLine = 50 

Structure KeyboardParam1D
  
  Element1D.l[#MaxKeyPerLine]
  
EndStructure

Structure KeyboardParam
  
  Element2D.KeyboardParam1D[#MaxLine]
  
EndStructure

; <<<<<<<<<<<<<<<<<<<<<<<<<<
; <<<<< Macros d'accès <<<<<

Macro KeyboardParam(KeyboardParamA, Ligne, Colonne)
  
  KeyboardParamA\Element2D[Colonne]\Element1D[Ligne]
  
EndMacro

; <<<<<<<<<<<<<<<<<<<<<<<<<
; <<<<< Les mutateurs <<<<<

Macro SetKeyboardParam(KeyboardParamA, Ligne, Colonne, P_Param)
  
  KeyboardParamA\Element2D[Colonne]\Element1D[Ligne] = P_Param
  
EndMacro

; <<<<<<<<<<<<<<<<<<<<<<<<<<<<
; <<<<< Les observateurs <<<<<

Macro GetKeyboardParam(KeyboardParamA, Ligne, Colonne)
  
  KeyboardParamA\Element2D[Colonne]\Element1D[Ligne]
  
EndMacro

; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; <<<<< L'opérateur Reset <<<<<

Macro ResetKeyboardParam(KeyboardParamA)
  
  For Ligne = 0 To #MaxLine - 1
    For Colonne = 0 To #MaxKeyPerLine - 1
      KeyboardParam(KeyboardParamA, Ligne, Colonne) = 0
      ; Alternative qui fait la même chose
      ; SetKeyboardParam(KeyboardParamA, Ligne, Colonne, 0)
    Next
  Next
  
EndMacro

; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; <<<<< L'opérateur Copy : A = Source : B = Destination <<<<<

Macro CopyKeyboardParam(KeyboardParamA, KeyboardParamB)
  
  For Ligne = 0 To #MaxLine - 1
    For Colonne = 0 To #MaxKeyPerLine - 1
      KeyboardParam(KeyboardParamB, Ligne, Colonne) = KeyboardParam(KeyboardParam4, Ligne, Colonne)
      ; Alternative qui fait la même chose
      ; SetKeyboardParam(KeyboardParamB, Ligne, Colonne, GetKeyboardParam(KeyboardParamA, Ligne, Colonne))
    Next
  Next
  
  ; Et pour aller plus vite. Mais attention, cela fonctionne uniquement
  ; pour les types numériques : .b, .c, .l, .q, .f, .d
  ; Dès l'instant qu 'il y a un type chaine de caratère ( $ ou .s) c'est le 
  ; code précédenet qui fonctionne.
  
  ; CopyMemory(KeyboardParamA, KeyboardParamB, SizeOf(KeyboardParam))
  
EndMacro

; <<<<<<<<<<<<<<<<<<<<<<<<<<
; <<<<< FIN DU FICHIER <<<<<
; <<<<<<<<<<<<<<<<<<<<<<<<<<

Thyphoon · Message par **Thyphoon** » sam. 24/nov./2007 16:36

Guimauve a écrit :Tiens un petit bout de code pour ton projet.

A+
Guimauve

Merci beaucoup c'est tres sympa

Backup · Message par **Backup** » sam. 24/nov./2007 19:33

.......

Thyphoon · Message par **Thyphoon** » sam. 24/nov./2007 19:37

Dobro a écrit :
attention voici le code qui tue la vie , qui tue la mort

aviez vous pensé a ça ??

merci Dobro, c'est vrai que j'avais pas pensé a ça et que ça fonctionne aussi !
Peut être moins optimisé que les propositions de Guimauve et Poshu mais tres interessante dans certain cas

merci de t'être penché sur mon pb

Backup · Message par **Backup** » sam. 24/nov./2007 19:38

ben de rien

l'idée m'est venue d'un coup en lisant le post

Guimauve · Message par **Guimauve** » sam. 24/nov./2007 20:54

Une autre méthode, cette fois tableau 1D. Une matrice 3X3 mais le principe
de fonctionnement reste le même. Ça peut être un avantage dans certain cas.

A+
Guimauve

Code : Tout sélectionner

; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; Notes : Matrix33
;
; La matrice se présente sous la forme suivante :
;
; Éléments Matrice --> Index du tableau 1D
;   3x3 éléments   -->   9 case de 0 à 8
;  
;  [e11, e12, e13] -->    [0, 1, 2] 
;  [e21, e22, e23] -->    [3, 4, 5]
;  [e31, e32, e33] -->    [6, 7, 8]
;
; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; <<<<< Déclaration de la Structure <<<<<

Structure Matrix33L
  
  Element.l[9]
  
EndStructure

; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; <<<<< Les Macros d'accès <<<<<

Macro Matrix33LElement(MatrixA, Index)
  
  MatrixA\Element[Index]
  
EndMacro

; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; <<<<< L'opérateur Reset <<<<<

Macro ResetMatrix33L(MatrixA)
  
  For Index = 0 To 8
    Matrix33LElement(MatrixA, Index) = 0
  Next
  
EndMacro

; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; <<<<< L'opérateur Copy : A = Source : B = Destination <<<<<

Macro CopyMatrix33L(MatrixA, MatrixB)
  
  For Index = 0 To 8
    Matrix33LElement(MatrixB, Index) = Matrix33LElement(MatrixA, Index)
  Next
  
  ; CopyMemory(MatrixA, MatrixB, SizeOf(Matrix33L))
  
EndMacro

; <<<<<<<<<<<<<<<<<<<<<<<<<<<<
; <<<<< L'opérateur Swap <<<<<

Macro SwapMatrix33L(MatrixA, MatrixB)
  
  For Index = 0 To 8
    Swap Matrix33LElement(MatrixA, Index), Matrix33LElement(MatrixB, Index)
  Next
  
EndMacro

; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; <<<<< Macro de déboguage <<<<<

Macro DebugMatrix33L(MatrixA)
  
  For Index = 0 To 8
    Debug Matrix33LElement(MatrixA, Index)
  Next
  
EndMacro

; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; Prototype de parcours Ligne-Colonne

Procedure DebugMatrix33L_Ex(*MatrixA.Matrix33L)
  
  For Line = 0 To 8 Step 3

    Debug "Ligne no. : " + Str(offset + 1)
    Debug "Élément : " + Str(Line) + ", " + Str(Line+1) + " et " + Str(Line+2) 
    
    For Row = 0 To 2
      
      Debug Matrix33LElement(*MatrixA, Line + Row)
      
    Next
    
    offset + 1
    
  Next
  
EndProcedure

; <<<<<<<<<<<<<<<<<<<<<<<<
; <<<<< CODE D'ESSAI <<<<<
; <<<<<<<<<<<<<<<<<<<<<<<<

Alpha.Matrix33L

For Index = 0 To 8
 
  Matrix33LElement(Alpha, Index) = 2 * Index + 552
  
Next

Debug "-------------------------------------"
Debug "Parcours comme un tableau 1D"
Debug "-------------------------------------"

DebugMatrix33L(Alpha)

Debug "-------------------------------------"
Debug "Parcours comme un tableau 2D"
Debug "-------------------------------------"

DebugMatrix33L_Ex(Alpha)

; <<<<<<<<<<<<<<<<<<<<<<<<<<
; <<<<< FIN DU FICHIER <<<<<
; <<<<<<<<<<<<<<<<<<<<<<<<<<

poshu · Message par **poshu** » lun. 26/nov./2007 9:29

Ca se défend aussi... J'y aurais jamais pensé

Guimauve · Message par **Guimauve** » mar. 27/nov./2007 1:43

En fait, c'est inspiré d'un code donné par Comtois.

A+
Guimauve

Guimauve · Message par **Guimauve** » mer. 19/déc./2007 3:09

Version corrigé du tableau 2D KeyboardParam. Les variables Ligne et Colonne était inversé. Index de ligne est dans la 2e structure et l'index de colonne est dans la première. L'autre alternative aurait été "Swapper" les constantes dans les 2 structures.

Pour ceux qui ont besoin d'avoir un tableau 2D ou le nombre de ligne et de colonne sont différents.

A+
Guimauve

Code : Tout sélectionner

; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; Nom du projet : Le nom du projet ici
; Fichier : Source principal
; Version : 0.0.0
; Programmation : À compléter
; Programmé par : Guimauve
; Date : 24-11-2007
; Mise à jour : 18-12-2007
; Codé avec PureBasic V4.10
; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

#MaxKeyPerLine = 3
#MaxLine = 50

Structure KeyboardParam1D
  
  Element1D.l[#MaxKeyPerLine]
  
EndStructure

Structure KeyboardParam
  
  Element2D.KeyboardParam1D[#MaxLine]
  
EndStructure

; <<<<<<<<<<<<<<<<<<<<<<<<<<
; <<<<< Macros d'accès <<<<<

Macro KeyboardParam(KeyboardParamA, Ligne, Colonne)
  
  KeyboardParamA\Element2D[Ligne]\Element1D[Colonne]
  
EndMacro

; <<<<<<<<<<<<<<<<<<<<<<<<<
; <<<<< Les mutateurs <<<<<

Macro SetKeyboardParam(KeyboardParamA, Ligne, Colonne, P_Param)
  
  KeyboardParamA\Element2D[Ligne]\Element1D[Colonne] = P_Param
  
EndMacro

; <<<<<<<<<<<<<<<<<<<<<<<<<<<<
; <<<<< Les observateurs <<<<<

Macro GetKeyboardParam(KeyboardParamA, Ligne, Colonne)
  
  KeyboardParamA\Element2D[Ligne]\Element1D[Colonne]
  
EndMacro

; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; <<<<< L'opérateur Reset <<<<<

Macro ResetKeyboardParam(KeyboardParamA)
  
  For Ligne = 0 To #MaxLine - 1
    For Colonne = 0 To #MaxKeyPerLine - 1
      KeyboardParam(KeyboardParamA, Ligne, Colonne) = 0
      ; Alternative qui fait la même chose
      ; SetKeyboardParam(KeyboardParamA, Ligne, Colonne, 0)
    Next
  Next
  
EndMacro

; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; <<<<< L'opérateur Copy : A = Source : B = Destination <<<<<

Macro CopyKeyboardParam(KeyboardParamA, KeyboardParamB)
  
  For Ligne = 0 To #MaxLine - 1
    For Colonne = 0 To #MaxKeyPerLine - 1
      KeyboardParam(KeyboardParamB, Ligne, Colonne) = KeyboardParam(KeyboardParam4, Ligne, Colonne)
      ; Alternative qui fait la même chose
      ; SetKeyboardParam(KeyboardParamB, Ligne, Colonne, GetKeyboardParam(KeyboardParamA, Ligne, Colonne))
    Next
  Next
  
  ; Et pour aller plus vite. Mais attention, cela fonctionne uniquement
  ; pour les types numériques : .b, .c, .l, .q, .f, .d
  ; Dès l'instant qu 'il y a un type chaine de caratère ( $ ou .s) c'est le
  ; code précédenet qui fonctionne.
  
  ; CopyMemory(KeyboardParamA, KeyboardParamB, SizeOf(KeyboardParam))
  
EndMacro

; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<
; <<<<< L'opérateur Debug <<<<<

Macro DebugKeyboardParam(KeyboardParamA)
  
  For Ligne = 0 To #MaxLine - 1
    For Colonne = 0 To #MaxKeyPerLine - 1
      
      Debug "(" + Str(Ligne) + ", "  + Str(Colonne) + ") = " + Str(KeyboardParam(KeyboardParamA, Ligne, Colonne))
      
    Next
  Next
  
EndMacro

; <<<<<<<<<<<<<<<<<<<<<<<<
; <<<<< CODE D'ESSAI <<<<<
; <<<<<<<<<<<<<<<<<<<<<<<<

For Ligne = 0 To #MaxLine - 1
  For Colonne = 0 To #MaxKeyPerLine - 1
    KeyboardParam(Test.KeyboardParam, Ligne, Colonne) = Ligne + Colonne
  Next
Next

DebugKeyboardParam(Test)

; <<<<<<<<<<<<<<<<<<<<<<<<<<
; <<<<< FIN DU FICHIER <<<<<
; <<<<<<<<<<<<<<<<<<<<<<<<<<

PureBasic

Structure et tableau double

Structure et tableau double

Re: Structure et tableau double

Re: Structure et tableau double