Discussion :

[caro71ol]

Salut à tous
voila j'ai le code suivant :

Code :

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

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 :

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

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

[StormimOn]

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 :

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

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

[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 :

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

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.

[MABROUKI]

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 :

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
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....

[caro71ol]

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
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.

[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.