Discussion :

[hunteshiva]

Bonjour,

je viens de créer ma classe grâce à Pol63
le soucis c'est qu'il me génère une erreur lors de sont utilisation...

je déclare ma variable dans un module

Code :

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

1
2
3
Module mdlVarPublic
    Public Essai As New clsEssai
End Module

et je l'utilise comme je veux:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Public Class frmMenu
 
    Private Sub btTraiterEssai_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btTraiterEssai.Click
'....
            ' Récupération des données de l'essai
            Essai.Nom = xlsbook.Sheets("RESULTAT").range("F7").value.ToString
            Essai.Formule = xlsbook.Sheets("RESULTAT").range("C8").value.ToString
'....
    End Sub
 
End Class

la ça fonctionne mais dés que je rentre dans une sous classe, c'est la qu'il plante...

Code :

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

1
2
            ' Récupération des données de l'emballage
            Essai.Emballage.Nom = xlsbook.Sheets("RESULTAT").range("C9").value.ToString

voici l'erreur qu'il me donne


Il n'a pas hérité des class friend lors de la déclaration?

[hunteshiva]

C'est bon
*enfin pour le début uniquement*

le problème se situait dans ma classe:

Code :

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

1
2
3
4
5
6
7
Public Class clsEssai
 
    Friend Nom, Machine, Formule As String
    Friend Emballage As New clsEmballage  ' <-- Ajouter le New
    Friend Sonde() As clsSonde            ' <-- 2nd Problème
'...
End Class

en fessant New, il a bien la classe Emballage de définie.

Seulement je n'arrive pas à l'appliquer pour mes sondes...
il me jette parce-que c'est un tableau
*donc je vais continuer mes recherches, si vous avez des idées, allez-y *

[tomlev]

Seulement je n'arrive pas à l'appliquer pour mes sondes...
il me jette parce-que c'est un tableau

Dans le constructeur de ta classe (Sub New), fais une boucle qui initialise tous les éléments du tableau

Code :

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

1
2
3
4
5
6
Public Sub New()
    Redim Sonde(9)
    For i = 0 To 9
        Sonde(i) = New clsSonde()
    Next
End Sub

Sinon il y a quelques mauvaises pratiques dans ton code...
- il ne faut pas préfixer les noms des classes par "cls", ça n'apporte aucune information utile et ça introduit donc du "bruit" ; en plus c'est galère pour l'intellisense parce que toutes tes classes commencent pareil
- l'encapsulation n'est pas respectée : les champs devraient toujours être privés (sauf éventuellement les champs shared readonly), il faut créer des propriétés pour y accéder. Sinon, rien n'empêche du code externe de modifier l'état interne de ta classe sans que tu puisses le contrôler et/ou l'empêcher

[hunteshiva]

Merci tomlev pour les précisions,
tu comprendra vite que c'est la première classe que je crée.
Je développe une appli pour un bureau de R&D donc la sécurité des variables n'est pas le plus important.

Toutefois j'ai envie de faire quelque chose de correcte, donc si tu a des exemples à me proposer pour améliorer le code je suis preneur.

Je vais regarder pour faire une fonction dans ma Class,
et je fait un retour rapidement.

[chrismonoye]

Bonjour,
peut être un début de réflexion pour tes classes imbriquées :

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
62
63
64
65
Public Class clsEssai
 
    'Propriété
    Private mNom As String
    Public Property Nom() As String
        Get
            Return mNom
        End Get
        Set(ByVal Value As String)
            mNom = Value
        End Set
    End Property
    ' ...
    ' ...
    ' ...
 
    'Friend Emballage As New clsEmballage  ' <-- Ajouter le New
 
    Friend SondesList As New List(Of clsSonde)
 
    Public Sub New(ByVal ns As Integer)
        For i = 0 To ns - 1
            SondesList.Add(New clsSonde())
        Next
    End Sub
 
    '******* clsSonde ***************
    Friend Class clsSonde
 
        ' Propriété
        Private mNom As String
        Public Property Nom() As String
            Get
                Return mNom
            End Get
            Set(ByVal Value As String)
                mNom = Value
            End Set
        End Property
 
        ' Indexeur
        Private mTemperature As New List(Of Single)
 
        Public Property Temperature(ByVal i As Integer) As Single
            Get
                Return mTemperature(i)
            End Get
            Set(ByVal value As Single)
                mTemperature.Insert(i, value)
            End Set
        End Property
 
        ' Indexeur
        Private mTemp As New List(Of System.DateTime)
 
        Public Property Temp(ByVal i As Integer) As System.DateTime
            Get
                Return mTemp(i)
            End Get
            Set(ByVal value As System.DateTime)
                mTemp.Insert(i, value)
            End Set
        End Property
    End Class
End Class

En déclarant le nombre de sondes et d'enregistrements par sonde :

Code :

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

1
2
3
4
    ' déclarations niveau classe formulaire (ou niveau module : Public).
    Dim nbreSondes As Integer = 3
    Dim nbrePrelevement As Integer = 6
    Dim essai As New clsEssai(nbreSondes)

Que l'on peut appeler, genre :

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
        ' Récupération des données de l'essai (n'importe quoi pour test)
        essai.Nom = "Nom1"
 
        For s = 0 To nbreSondes - 1
            essai.SondesList(s).Nom = "sonde n° " & s + 1
            For t = 0 To nbrePrelevement - 1
                essai.SondesList(s).Temperature(t) = t
                essai.SondesList(s).Temp(t) = #1/2/2003#.AddDays(t)
            Next
        Next
 
        ' Visualisation
        MessageBox.Show(essai.Nom & Environment.NewLine & _
                essai.SondesList(2).Nom & Environment.NewLine & _
                essai.SondesList(2).Temperature(4) & Environment.NewLine & _
                essai.SondesList(2).Temp(4) & Environment.NewLine)

[hunteshiva]

ok, merci pour vos réponses,
j'essaye de mettre tout ça au propre dans deux semaines,
et je posterais mes résultats.