Page 1 sur 1

C encore moi......

Publié : lun. 26/avr./2004 23:20
par jblaise.cs
Bonne nuits les gars.
Hmm, encore un probleme...
J'ai une tableau "Player1" qui repose sur la structure "Player"
Voila un ch'ti peu de code :

Code : Tout sélectionner

Structure Player
  NAME.s
  POINT.l
EndStructure

Dim Player1.Player(20)

Player1(0)\NAME="3 Em Joueur" ; il a 500 points dans le classement il est troisieme
Player1(0)\POINT=500

Player1(1)\NAME="1 Er Joueur"; il a 1000 points dans le classement il est premier
Player1(1)\POINT=1000

Player1(2)\NAME="2 Em Joueur"; il a 750 points dans le classement il est deuxiemme
Player1(2)\POINT=750
Ce que je voudrais faire c est utiliser la commande "SortArray" mais juste trier "POINT" et avoir les joueurs dans l ordre par rapport au valeurs "POINT".
PS : J ai deja essayer SortArray(Player1()\POINT, 1) et SortArray(Player(#PB_Any)\POINT, 1) ;)

Hmm j'sui un gros dormeur alors a demain midi :) ...

Publié : mar. 27/avr./2004 1:10
par nico
La fonction SortArray semble ne pas fonctionner avec les structures!

Publié : mar. 27/avr./2004 1:37
par jblaise.cs
ok bha tant pis

Publié : mar. 27/avr./2004 8:59
par Le Soldat Inconnu
bah, il ya une astuce, voir ici :
http://purebasic.hmt-forum.com/viewtopic.php?t=67

Publié : mar. 27/avr./2004 12:19
par jblaise.cs
SortArray sa sert bien a trier????

Code : Tout sélectionner

Dim MonTableau.s(10) 
Dim tableau_trie.s(5) 
MonTableau.s(0) = "bcd" 
MonTableau.s(1) = "b" 
MonTableau.s(2) = "oups" 
MonTableau.s(3) = "bdc" 
MonTableau.s(4) = "a" 
MonTableau.s(5) = "haha" 

For n = 0 To 10 
  tableau_trie(n) = MonTableau(n) 
Next 

SortArray(tableau_trie(), 2) 

For n = 0 To 10 
  Debug MonTableau(n) 
Next 
Pourquoi ca ca ne marche pas? C est a cause de For?
Par ce que celle la elle marche :

Code : Tout sélectionner

Dim MonTableau.s(10) 
Dim tableau_trie.s(10) 
MonTableau.s(0) = "bcd" 
MonTableau.s(1) = "b" 
MonTableau.s(2) = "oups" 
MonTableau.s(3) = "bdc" 
MonTableau.s(4) = "a" 
MonTableau.s(5) = "haha" 
MonTableau.s(6) = "bcd" 
MonTableau.s(7) = "b" 
MonTableau.s(8) = "hoho" 

SortArray(MonTableau(), 1) 

For n = 0 To 10 
  Debug MonTableau(n) 
Next 

Publié : mar. 27/avr./2004 12:23
par Flype
pas étonnant, essaye comme çà :

Code : Tout sélectionner

Dim MonTableau.s(10) 
Dim tableau_trie.s(5)
 
MonTableau.s(0) = "bcd" 
MonTableau.s(1) = "b" 
MonTableau.s(2) = "oups" 
MonTableau.s(3) = "bdc" 
MonTableau.s(4) = "a" 
MonTableau.s(5) = "haha" 

For n=0 To 5
  tableau_trie(n) = MonTableau(n) 
Next 

SortArray(tableau_trie(), 2) 

For n=0 To 5 
  Debug tableau_trie(n) ; là c mieux avec le bon tableau ;-)
Next
et puis fais attention à la taille de tes tableaux parceque dans ton exemple le debugger il aime pas

Publié : mar. 27/avr./2004 12:45
par jblaise.cs
:lol: la veille faute
Desole
Merci

Publié : mar. 27/avr./2004 19:49
par Lukky
Hahahaha, houaaaaa ça fait du bien de rire un peu, merci jblaise.cs

JL