Exemmples Structure...

[Shadow]

Voici quelques exemple de Structure si ça peut servir:

Code : Tout sélectionner

; Exemple créé par Monsieur Dieppedalle David le 15/03/2017.
; Exemple d'utilisation d'une Structure contenant des Listes chaînées.

; Création de la Structure qui contient les Listes.
Structure CarteMemoire
  
  List SlotTexte.s() ; Autant d'Emplacements de Texte possibles.
  List SlotValeur.q() ; Autant d'Emplacements de Valeur possibles.
  
EndStructure

; Création d'une Liste qui Contiendra toutes les informations de la Structure.
NewList CarteMemoire.CarteMemoire()


; Nouvelle Carte Mémoire.
AddElement(CarteMemoire())


; Ajout d'un nouvel élément dans le Slot SlotTexte() de la Carte Mémoire.
AddElement(CarteMemoire()\SlotTexte())

; Attribution de la valeur au nouvel élément du Slot SlotTexte() de la Carte Mémoire.
CarteMemoire()\SlotTexte() = "Michel"


; Ajout d'un nouvel élément dans le Slot SlotTexte() de la Carte Mémoire.
AddElement(CarteMemoire()\SlotTexte())

; Attribution de la valeur au nouvel élément du Slot SlotTexte() de la Carte Mémoire.
CarteMemoire()\SlotTexte() = "Lye"


; Ajout d'un nouvel élément dans le Slot SlotValeur() de la Carte Mémoire.
AddElement(CarteMemoire()\SlotValeur())

; Attribution de la valeur au nouvel élément du Slot SlotValeur() de la Carte Mémoire.
CarteMemoire()\SlotValeur() = 62


; Ajout d'un nouvel élément dans le Slot SlotValeur() de la Carte Mémoire.
AddElement(CarteMemoire()\SlotValeur())

; Attribution de la valeur au nouvel élément du Slot SlotValeur() de la Carte Mémoire.
CarteMemoire()\SlotValeur() = 176



; Nouvelle Carte Mémoire.
AddElement(CarteMemoire())


; Ajout d'un nouvel élément dans le Slot SlotTexte() de la Carte Mémoire.
AddElement(CarteMemoire()\SlotTexte())

; Attribution de la valeur au nouvel élément du Slot SlotTexte() de la Carte Mémoire.
CarteMemoire()\SlotTexte() = "David"


; Ajout d'un nouvel élément dans le Slot SlotTexte() de la Carte Mémoire.
AddElement(CarteMemoire()\SlotTexte())

; Attribution de la valeur au nouvel élément du Slot SlotTexte() de la Carte Mémoire.
CarteMemoire()\SlotTexte() = "Dieppedalle"


; Ajout d'un nouvel élément dans le Slot SlotValeur() de la Carte Mémoire.
AddElement(CarteMemoire()\SlotValeur())

; Attribution de la valeur au nouvel élément du Slot SlotValeur() de la Carte Mémoire.
CarteMemoire()\SlotValeur() = 32


; Ajout d'un nouvel élément dans le Slot SlotValeur() de la Carte Mémoire.
AddElement(CarteMemoire()\SlotValeur())

; Attribution de la valeur au nouvel élément du Slot SlotValeur() de la Carte Mémoire.
CarteMemoire()\SlotValeur() = 166

; Enumération de toutes les Cartes Mémoire.
ForEach CarteMemoire()
  
  ; Enumération de tous les SlotTexte de la Cartes Mémoire.
  ForEach CarteMemoire()\SlotTexte()
    Debug CarteMemoire()\SlotTexte()
  Next
  
  ; Enumération de tous les SlotValeur de la Cartes Mémoire.
  ForEach CarteMemoire()\SlotValeur()
    Debug CarteMemoire()\SlotValeur()
  Next
  
Next

Code : Tout sélectionner

; Exemple créé par Monsieur Dieppedalle David le 15/03/2017.
; Exemple d'utilisation d'une Structure contenant des Tableaux.

; Création de la Structure qui contient les Tableaux.
Structure CarteMemoire
  
  Array SlotTexte.s(9999) ; 10 000 Emplacements Texte possibles.
  Array SlotValeur.q(9999) ; 10 000 Emplacements Valeur possibles.
  
EndStructure

; Création d'un Tableau qui Contiendra toutes les informations de la Structure.
Dim CarteMemoire.CarteMemoire(9999) ; 10 000 Cartes mémoire possibles.

; Ajout d'un nouvel élément dans le Slot SlotTexte() de la Carte Mémoire.
CarteMemoire(1)\SlotTexte(1) = "Michel"

; Ajout d'un nouvel élément dans le Slot SlotTexte() de la Carte Mémoire.
CarteMemoire(1)\SlotTexte(2) = "Lye"

; Attribution de la valeur au nouvel élément du Slot SlotValeur() de la Carte Mémoire.
CarteMemoire(1)\SlotValeur(1) = 62

; Attribution de la valeur au nouvel élément du Slot SlotValeur() de la Carte Mémoire.
CarteMemoire(1)\SlotValeur(2) = 176

; Ajout d'un nouvel élément dans le Slot SlotTexte() de la Carte Mémoire.
CarteMemoire(2)\SlotTexte(1) = "David"

; Ajout d'un nouvel élément dans le Slot SlotTexte() de la Carte Mémoire.
CarteMemoire(2)\SlotTexte(2) = "Dieppedalle"

; Attribution de la valeur au nouvel élément du Slot SlotValeur() de la Carte Mémoire.
CarteMemoire(2)\SlotValeur(1) = 32

; Attribution de la valeur au nouvel élément du Slot SlotValeur() de la Carte Mémoire.
CarteMemoire(2)\SlotValeur(2) = 166

; Enumération de toutes les Cartes Mémoire
For NumeroCarteMemoire = 1 To 2
  
  ; Enumération de tous les SlotTexte de la Cartes Mémoire
  For NumeroSlotTexte = 1 To 2
    Debug CarteMemoire(NumeroCarteMemoire)\SlotTexte(NumeroSlotTexte)
  Next
  
  ; Enumération de tous les SlotValeur de la Cartes Mémoire
  For NumeroSlotValeur = 1 To 2
    Debug CarteMemoire(NumeroCarteMemoire)\SlotValeur(NumeroSlotValeur)
  Next
  
Next

[falsam]

Je ne suis pas certain que le sujet soit pertinent sachant que l'aide en ligne est suffisant explicite, mais pourquoi pas

Plus généralement une structure peut contenir bien sur des variables mais aussi des tableaux, des listes chaînées, des maps et en se débrouillant bien .... des procédures.

[Ar-S]

Pas la peine de nous refaire la doc Shadow, surtout de manière incomplète.
Sujet locké (mais je ne le supprime pas pour la bonne volonté).
Merci de ta compréhension.