PureBasic

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