Structure Jeu
TypeDeCartes$[3]
CouleurDesCartes$[3]
NumeroDesCartes$[12]
ValeurDesCartes$[12]
EndStructure
Global Dim Carte.Jeu(52)
ou
Global NewList Carte.Jeu()
ou
Global NewMap Carte.Jeu() ?
si quelqu'un a une solution ...
Merci beaucoup
Dernière modification par Micoute le ven. 31/août/2012 14:17, modifié 1 fois.
Microsoft Windows 10 Famille 64 bits : Carte mère : ASRock 970 Extreme3 R2.0 : Carte Graphique NVIDIA GeForce RTX 3080 : Processeur AMD FX 6300 6 cœurs 12 threads 3,50 GHz PB 6.20 LTS (x64)
Un homme doit être poli, mais il doit aussi être libre !
Structure Jeu
TypeDeCartes.s[3]
CouleurDesCartes.s[3]
NumeroDesCartes.s[12]
ValeurDesCartes.s[12]
EndStructure
Jeu.Jeu ; je declare ma structure
jeu\TypeDeCartes.s[0]="roi" ; j'affecte le contenu de ma structure... ici je ne vais pas m'amuser a tout affecter.. seulement certains "membre" de ma structure
jeu\TypeDeCartes.s[1]="dame"
jeu\TypeDeCartes.s[2]="as"
jeu\CouleurDesCartes.s[0]="rouge"
jeu\CouleurDesCartes.s[1]="vert"
jeu\CouleurDesCartes.s[2]="noir"
; on verifie si l'affectation a fonctionné
debug jeu\TypeDeCartes.s[0]
debug jeu\TypeDeCartes.s[1]
debug jeu\TypeDeCartes.s[2]
debug jeu\CouleurDesCartes.s[0]
debug jeu\CouleurDesCartes.s[1]
debug jeu\CouleurDesCartes.s[2]
calldebugger
Oh merci beaucoup ! Pourquoi cherche-t'on toujours à se compliquer, alors que la solution est très simple en fait, PureBasic est comme une grande boîte à outils et le problème est qu'on utilise toujours les mêmes et on ne pense pas qu'on peut faire simple.
Merci encore.
Microsoft Windows 10 Famille 64 bits : Carte mère : ASRock 970 Extreme3 R2.0 : Carte Graphique NVIDIA GeForce RTX 3080 : Processeur AMD FX 6300 6 cœurs 12 threads 3,50 GHz PB 6.20 LTS (x64)
Un homme doit être poli, mais il doit aussi être libre !
Structure s_Struct
Array tab.i(10,10)
EndStructure
;initialisation
*myVar.s_Struct = AllocateMemory(SizeOf(s_Struct))
InitializeStructure(*myVar,s_Struct)
;ecriture
*myVar\tab(0,0) = Random(65535)
;suppression
FreeMemory(*myVar)
;rend le pointeur invalide car il pointe sur du vide.
*myVar = #Null
End