POO et collection

Version imprimable

Voir 40 message(s) de cette discussion en une page

POO et collection

Salut à tous
voila j'ai le code suivant :

Code:

1
2
3
4
5
    Private Sub btnfin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnfin.Click
        MsgBox("Partie finie! Voici votre score : " & Cscore & " " & " Nouvelle partie.")
        Dim sta As New ClassYams.Statistiques
        rep = sta.initcol(Cscore)
        MsgBox(rep)

et la classe suivante avec la fonction correspondante à l'appel ci-dessus :

Code:

1
2
3
4
5
6
7
8
9
Imports System.Collections
Public Class Statistiques
 
    Private stat As New Collection
    Public Function initcol(ByVal scorefinal As Integer)
 
        stat.Add(scorefinal)
        Return stat.Contains(scorefinal)
    End Function

sauf qui me retourne false donc c'est qu'il n'a pas ajouté le chiffre dans la collection. et je sais pas pourquoi il ne l'ajoute pas.

Merci de m'aider

Oublie la classe Collection, c'est un héritage de VB que Microsoft à laissé (via l'assembly Microsoft.VisualBasic). Par défaut cet assembly est référencé, mais à mon avis il aurait mieux vallu que ce ne soit pas le cas ^^

Utilise plutôt une liste générique. Par exemple
Code:

1 2 3 4 5 6 7 8 9 10 Imports System.Collections.Generic Public Class Statistiques Private stat As New List(Of Int32) Public Function initcol(ByVal scorefinal As Integer) stat.Add(scorefinal) Return stat.Contains(scorefinal) End Function End Class

29/04/2011, 19h13
DonQuiche
StormimOn a raison, mieux vaut utiliser une liste générique. Ici, la classe collection ne prend que des objets en paramètre et doit comparer par référence. Comme tu manipules des entiers, chaque que tu les boxes tu crées une nouvelle référence, différente des précédéntes.
Code:

1 2 3 4 5 6 7 8 9 10 int val = 5; object box1 = (object)val; object box2 = (object)val; // Comparaison par valeur : vrai box1.Equals(box2); // Comparaison par référence : faux box1 == box2
D'ailleurs, dans les versions précédentes, on ne pouvait pas faire de boxing implicite et je pense que c'etait un bon choix. Je regrette que depuis la dernière version cela ait changé, ça éviterait des bugs difficiles à dénicher.

collection,vertus

bonjour
Quelque que soit l'objectif de ton appli,les List sont meilleures que les Collections.
Mais neamoins j'attire ton attention sur le fait que tu n'utilise pas "toutes les vertus" du vieux Collection qui combine la notion de List et de Dictionnaire à cle.
Mais le vieux VB6 mets les 2 dans Collection :
Code qui te renverras true avec Collection,à condition de mettre une Cle en param de ta Collection:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 Imports System.Collections Public Class Form2 Shared Cscore As Integer = 1 Dim rep As Boolean = False Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnfin.Click Cscore = Cscore + 1 MsgBox("Partie finie! Voici votre score : " & Cscore & " " & " Nouvelle partie.") Dim sta As New Statistiques rep = sta.initcol(Cscore) MsgBox(rep) End Sub End Class Public Class Statistiques Private stat As New Collection Public Sub New() End Sub Public Function initcol(ByVal scorefinal As Integer) As Boolean stat.Add(scorefinal, scorefinal.ToString) Return stat.Contains(scorefinal) End Function End Class
En fait .Net FrameWork a separe les 2 avec :List et Dictionary pour eviter les derives comme celle-ca.
bon code...
bon code....

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
Imports System.Collections.Generic
 
Public Class Statistiques
    Private stat As New List(Of Int32)
 
    Public Function initcol(ByVal scorefinal As Integer)
        stat.Add(scorefinal)
        Return stat.Contains(scorefinal)
    End Function
 
    Public Function statistique() As Single
        Dim resstat As Single
        Dim i As Integer
        If stat.Count > 0 Then
            resstat = 0
            For i = 0 To (stat.Count - 1)
                resstat = resstat + stat.Item(i)
            Next
            resstat = resstat / (stat.Count - 1)
        Else
            resstat = 0
        End If
        Return resstat
    End Function
 
    Public Function totalpartie() As Integer
 
        Return stat.Count
    End Function
 
    Public Function minstat() As Integer
        Dim min, i As Integer
        If stat.Count > 0 Then
            min = stat.Item(0)
            For i = 1 To (stat.Count - 1)
                If min > stat.Item(i) Then
                    min = stat.Item(i)
                End If
            Next
        Else
            min = 0
        End If
        Return min
 
    End Function
 
    Public Function maxstat() As Integer
        Dim max, i As Integer
        If stat.Count > 0 Then
            max = stat.Item(0)
            For i = 1 To (stat.Count - 1)
                If max < stat.Item(i) Then
                    max = stat.Item(i)
                End If
            Next
        Else
            max = 0
        End If
        Return max
    End Function
End Class

donc j'ai tout ca. le stat.contains(scorefinal) m'affiche "true" mais pour le reste des statistiques ca m'affiche 0 donc il y a 0 score dans la liste.

02/05/2011, 20h16
StormimOn

Montre comment tu utilises ta classe, car il n'y a à priori aucun problème dans le code. Je viens de tester histoire de (connaissant mal VB.Net et sa syntaxe qui m'insupporte ^^), et j'ai bien des valeurs donc bon.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Public Class frmjeu
    Dim Cstotal, Ctotal1, Ctotal2, Cscore As Integer
    Dim de1, de2, de3, de4, de5 As Integer
    Dim jet, res1, res2, res3, res4, res5, res6, brelan, carre, full, psuite, gsuite, yams1, yams2, chance, bonus, cpt As Integer
    Dim de1fixe, de2fixe, de3fixe, de4fixe, de5fixe As Boolean
    Dim img1, img2, img3, img4, img5, img6 As Bitmap
    Dim score As New ClassYams.Score
    Dim sta As ClassYams.Statistiques
    Dim rep As String
...
    Private Sub btnfin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnfin.Click
        MsgBox("Partie finie! Voici votre score : " & Cscore & " " & " Nouvelle partie.")
        Dim sta As New ClassYams.Statistiques
        rep = sta.initcol(Cscore)
        MsgBox(rep)
        'Shell("S:\Users\Caroline\Desktop\bts ig\pti 2\yams refait\yamsrefait\yamsrefait\bin\Debug\yamsrefait.exe")
        'Me.Show()
        'End
    End Sub

pour tester le nombre de partie:

Code:

1
2
3
4
5
6
    Private Sub test_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles test.Click
        Dim test As Single
        Dim sta As New ClassYams.Statistiques
        test = sta.totalpartie()
        MsgBox(test)
    End Sub

et la forme statistique:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Public Class frmstatistiques
    Dim sta As New ClassYams.Statistiques
    Dim mo As Single
    Dim nbpartie, min, max As Integer
    Private Sub btnquitter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnquitter.Click
        Me.Close()
    End Sub
 
    Private Sub frmstatistiques_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        mo = sta.statistique()
        nbpartie = sta.totalpartie()
        min = sta.minstat()
        max = sta.maxstat()
        lblscmo.Text = mo
        lblnbpartie.Text = nbpartie
        lblscmin.Text = min
        lblscmax.Text = max
    End Sub
End Class

02/05/2011, 20h25
StormimOn

C'est normal, tu réinstancies ta classe à chaque appel. Instancie la classe seulement pour l'initialisation (dans btnfin_Click) et réutilises cette instance ensuite pour les appels suivants.
04/05/2011, 08h46
caro71ol

c'est à dire?
04/05/2011, 09h42
Kropernic

Je n'ai pas lu tout le code mais d'après les réponses données, je pense pouvoir répondre.

Citation:

C'est normal, tu réinstancies ta classe à chaque appel. Instancie la classe seulement pour l'initialisation (dans btnfin_Click) et réutilises cette instance ensuite pour les appels suivants.

Le problème de compréhension vient peut-être du vocabulaire. "Instancier une classe" se dit lorsqu'on crée un nouvel objet qui du type de ladite classe. En pratique, cela se passe lorsque l'instruction New est exécutée.

Pour illustrer les propos de stormimOn, prenons un exemple pratique concret. Disons que tu as une série de fichiers mp3 et que tu veux les graver sur un cd pour pouvoir les écouter et les réécouter.

Pour les graver, tu prends un nouveau CD. Ensuite, quand tu veux les écouter, tu dois reprendre le même CD et non pas un nouveau.
C'est exactement la même chose pour ta collection de scores. Tu en prends une nouvelle pour encoder les résultats. Lorsque tu veux les récupérer pour les afficher à l'écran, il te faut reprendre la collection dans laquelle tu les as écrits et non pas une nouvelle.

Les mots que j'ai mis en gras représente les moments où il faudrait ou non utiliser l'instruction New.

En espérant que cela t'aura aider à y voir plus clair.

Griftou
04/05/2011, 13h24
StormimOn

C'est bien illustré ^^

En complément, tout ce qu'ajouterais c'est que si tu ne possèdes pas ce vocabulaire (notion d'instance, instanciation...) c'est que tu as raté une étape : tu cherches à développer avec un langage orienté objet sans avoir lu de cours/tuto sur la POO, au moins les bases. Donc prends un peu de temps pour corriger le tir, ce sera plus simple par la suite ;)
04/05/2011, 13h40
caro71ol

je comprend très bien mais je vois pas comment y appliquer dans mon truc pour que ca fonctionne et que ca garde les scores en mémoire même quand on ferme l'appli et qu'on l'ouvre
04/05/2011, 13h42
Kropernic

Si tu veux une persistance des données même après fermeture de l'application, il n'y a pas de miracle, il faut les stocker dans un fichier.
04/05/2011, 13h48
caro71ol

sur papier c'est plus simple. apres l'adaptation sur vb plus difficile
04/05/2011, 13h53
caro71ol

bah tant pis pour la memoire cest po bien grave je ferai que des stats sur les parties jouées pendant une ouverture de lapplication.
04/05/2011, 18h24
StormimOn

Regarde les tutos sur la gestion des fichiers, le XML et ce genre de choses, tu trouveras des pistes. Car ce n'est pas très compliqué ce que tu veux faire, à condition d'y mettre un peu du tien ;)
05/05/2011, 08h29
caro71ol

je vais voir ca si j'ai le temps de le programmer limite ca me fera un PTI en plus.

mais bon ca me resout po mon probleme d'instanciation et autre
05/05/2011, 08h44
StormimOn

Citation:

Envoyé par caro71ol

mais bon ca me resout po mon probleme d'instanciation et autre

On va faire plus simple que les explications précédentes, puisque tu sembles ne pas vouloir faire un peu d'efforts.

Fait un seul New de ta classe ClassYams.Statistiques (celui qui sert à l'initialisation, dans btnfin_Click). Stocke ensuite cette instance dans un variable privée de ta form et réutilises ensuite cette variable (pas de nouveau New donc) pour le calcul des stats.
05/05/2011, 18h24
caro71ol

ca j'avais bien compris mais ce que je faisais ne fonctionnait po. mais par une illumination j'ai trouvé.

maintenant jai plus qu'a me mettre au xml.
connaissez-vous de bon tuto simple a comprendre expliquant comment ecrire, lire, compter dans un fichier xml? ceux que j'ai trouvé son po top
05/05/2011, 20h21
StormimOn

As-tu fais le tour des tuto présents sur le site ?

Voir 40 message(s) de cette discussion en une page