La référence d'objet n'est pas définie à une instance d'un objet

Version imprimable

Bonjour à tous,

Je suis nul en vbnet et je bute sur l'erreur suivante : :mrgreen:

" Message=La référence d'objet n'est pas définie à une instance d'un objet."

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a As New Integer
        a = Int(TextBox1.Text)
 
        buf(0) = Int(TextBox2.Text)
        If ComboBox1.SelectedItem = "Inputs" Then
            res = dc.writeBytes(libnodave.daveInputs, 0, a, 1, buf)  //exception ici
        End If
        If ComboBox1.SelectedItem = "Outputs" Then
            res = dc.writeBytes(libnodave.daveOutputs, 0, a, 1, buf)  // là
        End If
        If ComboBox1.SelectedItem = "Flags" Then
            res = dc.writeBytes(libnodave.daveFlags, 0, a, 1, buf)  //et là
        End If
    End Sub

Merci pour votre aide.

28/04/2016, 20h17
mermich
Salut,

Tu as un objet qui est pas instancie, donc sur la ligne suivante cela peut etre:

Code:

res = dc.writeBytes(libnodave.daveInputs, 0, a, 1, buf) //exception ici
- dc
- libnodave
- a
- buf
donc de fortes chances sur dc ou sur libnodave.

Bonne chance.

oui, mais comment les instancier puisqu’ils sont déclarés dans un module module :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Module Variables
    Public fds As libnodave.daveOSserialType
    Public di As libnodave.daveInterface
    Public dc As libnodave.daveConnection
    Public res As Integer
    Public buf(1000) As Byte
    Public localPPI As Integer = 0  'localMPI
    ' Public rack As Integer = 0
    ' Public slot As Integer = 2
    Public plcPPI As Integer = 2
    Public Connection As Boolean = False
    'Public IP As String = "192.168.1.100"
 
End Module

28/04/2016, 21h19
mermich

En les instantiant au depart, exemple (de memoire c'est un truc du genre) :

Code:

Public fds As libnodave.daveOSserialType = new libnodave.daveOSserialType

Citation:

Envoyé par miripesage

Bonjour à tous,
J'ai toujours la même erreur. Voici le code complet: :mouarf:

Code:

1
2
3
4
5
6
7
8
9
10
Module Variables
    Public fds As libnodave.daveOSserialType
    Public di As libnodave.daveInterface
    Public dc As libnodave.daveConnection
    Public res As Integer
    Public buf(1000) As Byte
    Public localPPI As Integer = 0  'localMPI
    Public plcPPI As Integer = 2
    Public Connection As Boolean = False
End Module

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
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
Public Class Form1

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        ToolStripStatusLabel1.Text = "Disconnected."
        ComboBox1.SelectedItem = 0

    End Sub

    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
        If Connection Then
            dc.disconnectPLC()
        End If
        Me.Close()
    End Sub

    Private Sub ConnectPLCToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ConnectPLCToolStripMenuItem.Click
        fds.rfd = libnodave.setPort(1, 9600, 0)
        fds.wfd = fds.rfd
        If fds.rfd > 0 Then       ' if step 1 is ok
            di = New libnodave.daveInterface(fds, "IF1", localPPI, libnodave.daveProtoPPI, libnodave.daveSpeed187k)
            di.setTimeout(1000000)  ' Make this longer if you have a very long response time
            res = di.initAdapter
            '
            If res = 0 Then       ' init Adapter is ok
                dc = New libnodave.daveConnection(di, plcPPI, 0, 2)  ' rack amd slot don't matter in case of MPI

                res = dc.connectPLC()
                If res = 0 Then
                    Connection = True
                    ToolStripStatusLabel1.Text = "Connected "  
                End If
            End If
        End If
    End Sub

    Private Sub DisconnectPLCToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DisconnectPLCToolStripMenuItem.Click

        dc.disconnectPLC()  '//La référence d'objet n'est pas définie à une instance d'un objet.

        ToolStripStatusLabel1.Text = "Disconnected."
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        'd As Single
        Dim b As Integer
        Dim a, c As Byte

        If Connection Then
            res = dc.readBytes(libnodave.daveFlags, 0, 0, 16, buf)
            If res = 0 Then
                Data1.Text = Str(dc.getS32)
                Data2.Text = Str(dc.getS32)
                Data3.Text = Str(dc.getS32)
                Data4.Text = Str(dc.getFloat)
            Else
                ToolStripStatusLabel1.Text = "Read data. " + libnodave.daveStrerror(res)
            End If
            res = dc.readBytes(libnodave.daveInputs, 0, 0, 1, buf)
            If res = 0 Then
                a = Str(dc.getS8)
                If IsBitSet(a, 0) Then
                    Panel1.BackColor = Color.Lime
                Else
                    Panel1.BackColor = Color.DarkGreen
                End If
                If IsBitSet(a, 1) Then
                    Panel2.BackColor = Color.Lime
                Else
                    Panel2.BackColor = Color.DarkGreen
                End If
                If IsBitSet(a, 2) Then
                    Panel3.BackColor = Color.Lime
                Else
                    Panel3.BackColor = Color.DarkGreen
                End If
                If IsBitSet(a, 3) Then
                    Panel4.BackColor = Color.Lime
                Else
                    Panel4.BackColor = Color.DarkGreen
                End If
            Else
                ToolStripStatusLabel1.Text = "Read data. " + libnodave.daveStrerror(res)
            End If
            res = dc.readBytes(libnodave.daveOutputs, 0, 0, 1, buf)
            If res = 0 Then
                a = Str(dc.getS8)
                If IsBitSet(a, 0) Then
                    Panel5.BackColor = Color.Lime
                Else
                    Panel5.BackColor = Color.DarkGreen
                End If
                If IsBitSet(a, 1) Then
                    Panel6.BackColor = Color.Lime
                Else
                    Panel6.BackColor = Color.DarkGreen
                End If
                If IsBitSet(a, 2) Then
                    Panel7.BackColor = Color.Lime
                Else
                    Panel7.BackColor = Color.DarkGreen
                End If
                If IsBitSet(a, 3) Then
                    Panel8.BackColor = Color.Lime
                Else
                    Panel8.BackColor = Color.DarkGreen
                End If

            Else
                ToolStripStatusLabel1.Text = "Read data. " + libnodave.daveStrerror(res)
            End If
            res = dc.readBytes(libnodave.daveFlags, 0, 0, 1, buf)
            If res = 0 Then
                c = Str(dc.getS8)
                If IsBitSet(c, 0) Then
                    Panel9.BackColor = Color.Lime
                Else
                    Panel9.BackColor = Color.DarkGreen
                End If
                If IsBitSet(c, 1) Then
                    Panel10.BackColor = Color.Lime
                Else
                    Panel10.BackColor = Color.DarkGreen
                End If
                If IsBitSet(c, 2) Then
                    Panel11.BackColor = Color.Lime
                Else
                    Panel11.BackColor = Color.DarkGreen
                End If
                If IsBitSet(c, 3) Then
                    Panel12.BackColor = Color.Lime
                Else
                    Panel12.BackColor = Color.DarkGreen
                End If

            Else
                ToolStripStatusLabel1.Text = "Read data. " + libnodave.daveStrerror(res)
            End If
        Else
            Data1.Text = "****"
            Data2.Text = "****"
            Data3.Text = "****"
            Data4.Text = "****"
            Panel1.BackColor = Color.Gray
            Panel2.BackColor = Color.Gray
            Panel3.BackColor = Color.Gray
            Panel4.BackColor = Color.Gray
            Panel5.BackColor = Color.Gray
            Panel6.BackColor = Color.Gray
            Panel7.BackColor = Color.Gray
            Panel8.BackColor = Color.Gray
            Panel9.BackColor = Color.Gray
            Panel10.BackColor = Color.Gray
            Panel11.BackColor = Color.Gray
            Panel12.BackColor = Color.Gray
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a As Integer
        a = Int(TextBox1.Text)
        buf(0) = Int(TextBox2.Text)
        If ComboBox1.SelectedItem = "Inputs" Then
            res = dc.writeBytes(libnodave.daveInputs, 0, a, 1, buf) '//La référence d'objet n'est pas définie à une instance d'un objet.
        End If
        If ComboBox1.SelectedItem = "Outputs" Then
            res = dc.writeBytes(libnodave.daveOutputs, 0, a, 1, buf) '//La référence d'objet n'est pas définie à une instance d'un objet.
        End If
        If ComboBox1.SelectedItem = "Flags" Then
            res = dc.writeBytes(libnodave.daveFlags, 0, a, 1, buf) '//La référence d'objet n'est pas définie à une instance d'un objet.
        End If
    End Sub

End Class

Bonjour,

Etant donné que l'instanciation "libnodave.daveConnection" est imbriquée dans 2 conditionnelles, es-tu certains que "dc" n'est pas nulle avant de vouloir fermer la connexion ????
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 '####################################### fds.rfd est-il vraiment supéreur à 0 If fds.rfd > 0 Then di = New libnodave.daveInterface(fds, "IF1", localPPI, libnodave.daveProtoPPI, libnodave.daveSpeed187k) di.setTimeout(1000000) res = di.initAdapter '####################################### res est-il vraiment égal à 0 If res = 0 Then ' init Adapter is ok dc = New libnodave.daveConnection(di, plcPPI, 0, 2) ' rack amd slot don't matter in case of MPI res = dc.connectPLC() If res = 0 Then Connection = True ToolStripStatusLabel1.Text = "Connected " End If End If End If
Si une des 2 condition n'est pas respectée alors "dc" ne sera jamais instanciée ! Et il en est de même pour "di" qui fait partie de la signature de "libnodave.daveConnection"....
Bon après tout est question de debug pas à pas, en mettant des points d'arrêt tu devrais pouvoir vérifier la valeur de chaque donnée à un instant "T" dans le comportement de ton projet et ainsi corriger ce qui cloche. ;)

++

29/04/2016, 13h44
miripesage

merci à tous beaucoup pour votre aide.:D:kiss:
le problème était la ligne :
fds.rfd = libnodave.setPort(1, 9600, 0)
au lieu de:
fds.rfd = libnodave.setPort("COM1", "9600", 0)

Bonjour,
Je suis revenu avec toujours le même problème d'instance! je n'arrive pas à m'en sortir tout seul(la connection au plc est OK) ::mouarf:

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
Module Variables
    Public fds As libnodave.daveOSserialType
    Public di As libnodave.daveInterface
    Public dc As libnodave.daveConnection
    Public res As Integer
    Public buf(1000) As Byte
    Public localPPI As Integer = 0  'localMPI
    Public plcPPI As Integer = 2
    Public Connection As Boolean = False
End Module




Public Class Form1


    Private Sub ConnectPLCToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ConnectPLCToolStripMenuItem.Click
        fds.rfd = libnodave.setPort("COM1,"9600", 0)
        fds.wfd = fds.rfd
        If fds.rfd > 0 Then       ' if ok
            di = New libnodave.daveInterface(fds, "IF1", localPPI, libnodave.daveProtoPPI, libnodave.daveSpeed187k)
            di.setTimeout(1000000)  ' Make this longer if you have a very long response time
            res = di.initAdapter
            '
            If res = 0 Then       ' init Adapter is ok
                dc = New libnodave.daveConnection(di, plcPPI, 0, 2)  ' rack amd slot don't matter in case of MPI

                res = dc.connectPLC()
                If res = 0 Then
                    Connection = True
                    ToolStripStatusLabel1.Text = "Connected "  
                End If
            End If
        End If
    End Sub

    Private Sub DisconnectPLCToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DisconnectPLCToolStripMenuItem.Click

        dc.disconnectPLC()  '
        ToolStripStatusLabel1.Text = "Disconnected."
    End Sub
            
                
            
         
       

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a As Integer
        a = Int(TextBox1.Text)
        buf(0) = Int(TextBox2.Text)
        If ComboBox1.SelectedItem = "Inputs" Then
            res = dc.writeBytes(libnodave.daveInputs, 0, a, 1, buf) '//La référence d'objet n'est pas définie à une instance d'un objet.
        End If
        If ComboBox1.SelectedItem = "Outputs" Then
            res = dc.writeBytes(libnodave.daveOutputs, 0, a, 1, buf) '//La référence d'objet n'est pas définie à une instance d'un objet.
        End If
        If ComboBox1.SelectedItem = "Flags" Then
            res = dc.writeBytes(libnodave.daveFlags, 0, a, 1, buf) '//La référence d'objet n'est pas définie à une instance d'un objet.
        End If
    End Sub

End Class

07/05/2016, 02h35
clementmarcotte

Bonjour,

Pour une raison que j'ignore (options de compilation, version de Visual Studio, version du Framework ou ???????????); je suis rendu à être "obligé" d'instancier mes variables publiques, quand je ne suis pas dans le module ou la classe où ma variable est déclarée publique. Au début, je sautais au plafond, mais j'ai fini par aimer cela. Ne serait que pour éviter d'utiliser une variable du même nom qu'une variable publique dans une situation, où il y a un risque d'interférence

par exemple dans si dans Form1, je mets:

(C'est de mémoire parce que mon VS est royalement planté)

Code:

Public Octave as new DataSet

dans un(e) autre module/classe que Form1 cela prend quelque chose du genre

Code:

dim machintruc as dataSet = Form1.octave

Sinon, le même message d'erreur que le tien