Erreur de class non instanciée

Version imprimable

Bonjour,

je viens de créer ma classe grâce à Pol63 :ccool:
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:

1 2 3 Module mdlVarPublic Public Essai As New clsEssai End Module
et je l'utilise comme je veux:
Code:

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:

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
http://img233.imageshack.us/img233/9...semballage.png

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

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

le problème se situait dans ma classe:
Code:

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 *

09/11/2011, 11h32
tomlev
Citation:

Envoyé par hunteshiva

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:

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
09/11/2011, 11h48
hunteshiva

Merci tomlev pour les précisions,
tu comprendra vite que c'est la première classe que je crée. :oops:
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. ;)

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

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

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:

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)

11/11/2011, 22h09
hunteshiva

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