Discussion :

[piotrr]

Je n'arrive désespérement pas à utiliser un tableau d'objets (que j'ai moi même crée) allouable dynamiquement (j'entends par là que je ne veux pas spécifier de taille à la déclaration)

merci

note: je sais qu'il y a les ArrayList mais ça ne m'interesse pas car je trouve que ce n'est pas aussi bien manipulable que les tableaux

[Vld44]

utilise des Collection (for each allowed) ou des Dictionary (not allowed)

[ced600]

utilise des Collection (for each allowed) ou des Dictionary (not allowed)

-> tu veux dire que pour les dictionnaires tu ne peux pas utiliser le for each directement ?

[Vld44]

exactement

sinon pour vraiment avoir un truc puissant, faut utiliser le CHive (je sais plus où j'ai trouvé ça, probablement sur vbaccelerator)

Là, ça arrache

[zazaraignée]

Il faut utiliser l'instruction Set pour initialiser (ou modifier une valeur) d'une variable objet (Tableau ou pas).
Tu l'as fait ?

[piotrr]

Il faut utiliser l'instruction Set pour initialiser (ou modifier une valeur) d'une variable objet (Tableau ou pas).
Tu l'as fait ?

J'ai une classe "JeuDeCartes" qui possède un attribut "listeDeCartes" ( je veux que ce soit un tableau de cartes de taille variable -> allouable dynamiquement ).

Seulement pour déclarer ma liste je suis obligé de spécifier une taille:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
 
Dim listeDeCartes(ma_taille) as Carte

Ce qui est surprenant c'est que pour un objet primaire ( string ou integer par exemple), pas besoin de spécifier de taille.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
 
Dim listeDentiers as Integer()

Pourquoi ne puis-je pas déclarer de liste comme ça avec mon objet Carte?

Bien sûr quand j'instancie mes objets qui composent ma liste d'objets je fais comme ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
set listeDeCartes(0) = new Carte()
...

De ce côté là pas de problème.

[SfJ5Rpw8]

c'est quoi l'erreur avec : ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Dim listeDeCartes() as Carte

[piotrr]

c'est quoi l'erreur avec : ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Dim listeDeCartes() as Carte

Quand je veux remplir ma liste ensuite:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
 
listeDeCartes(0) = new Carte()
listeDeCartes(1) = new Carte()
...

Le compilateur me dit que <<la variable "listeDeCartes()" est utlisée avant qu'une valeur ne lui ai été assigné. Une Exception de type ReferenceException pourra avoir lieu ...>>

Et à l'éxécution j'ai bien une exception.

Comment assigné une valeur à ma liste?

merci

[SfJ5Rpw8]

montre nous ton vrai code ... plutôt que des "approximations"...

ou sont les set ..?
ou est le Redim ..?

[zazaraignée]

Tu as bien une classe Carte dans ton projet ?

[Vld44]

Je n'arrive désespérement pas à utiliser un tableau d'objets (que j'ai moi même crée) allouable dynamiquement (j'entends par là que je ne veux pas spécifier de taille à la déclaration)

Ceci correspond à la définition d'une liste chaînée, dont la traduction object est la collection (sous sa forme la plus simple)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private listeDeCartes as Collection
 
Public sub Class_Initialize()
    set listeDeCartes = new Collection
End Sub
 
Public sub Class_Terminate()
    set listeDeCartes = Nothing
End sub
 
Public Property Get Cartes() as Collection
    set Cartes = listeDeCartes
End Property
 
Public Sub AjouteCarte(I_carte as Carte)
    listeDecartes.add I_carte,I_carte.key
End Sub
 
Public Sub JetteCarte(I_carte as Carte)
on error resume next
    listeDecartes.remove I_carte
End Sub

[Rico Nuch]

J'ai un petit tuto pour jeu de Skat. C'est un projet qui distribue 32 cartes à 3 joueurs et met les deux dernières dans une "pioche". Il comporte une classe "carte" et une classe "jeu", il pourrait être facilement adapté pour utiliser 52 cartes, je peux te le faire parvenir si tu veux.

[piotrr]

J'ai un petit tuto pour jeu de Skat. C'est un projet qui distribue 32 cartes à 3 joueurs et met les deux dernières dans une "pioche". Il comporte une classe "carte" et une classe "jeu", il pourrait être facilement adapté pour utiliser 52 cartes, je peux te le faire parvenir si tu veux.

Je veux bien merci.

[zazaraignée]

J'ai un petit tuto pour jeu de Skat. C'est un projet qui distribue 32 cartes à 3 joueurs et met les deux dernières dans une "pioche". Il comporte une classe "carte" et une classe "jeu", il pourrait être facilement adapté pour utiliser 52 cartes, je peux te le faire parvenir si tu veux.

Moi aussi je l'ai. Dans le livre Visual Basic 6, édition Micro Application 1998, collection PC Poche. Au chapitre 6, partie 6.5 Générer des objets poersonnalisés : modules de classe. Exercice 20 : modules de classe. pages 366 à 373.

Toujours mettre la référence.

[Rico Nuch]

Moi aussi je l'ai. Dans le livre Visual Basic 6, édition Micro Application 1998, collection PC Poche. Au chapitre 6, partie 6.5 Générer des objets poersonnalisés : modules de classe. Exercice 20 : modules de classe. pages 366 à 373.

Toujours mettre la référence.

Pourquoi tu ne lui as pas proposé avant moi puisque manifestement ça correspond à sa demande ? De toute façon j'ai toujours les exos sur mon disque mais je n'ai plus le bouquin depuis longtemps, j'aurais donc été bien en peine de fournir une référence.

Edit : j'ajoute les fichiers dans ce message, je n'avais pas vu qu'on pouvait poster des pièces jointes.