[Débutant] An unhandled exception of type 'System.NullReferenceException'

An unhandled exception of type 'System.NullReferenceException'

Bonjour
Je suis débutante et j'ai rencotré une erreur
Code:

1 2 3 An unhandled exception of type 'System.NullReferenceException' occurred in test.exe Additional information: La référence d'objet n'est pas définie à une instance d'un objet.
Comment corriger ce type de probleme et comment créer une instance d'un objet ??
Merci d'avance

Bonjour,
Le morceau de code qui pose problème est tout aussi important que le message d'erreur !

Citation:

Envoyé par ariana1993

Comment corriger ce type de probleme et comment créer une instance d'un objet ??

C'est le petit "New" !

Voici le 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
62
Option Explicit On
Imports SAOPCAutomation ' add ref ; SA OPC Automation 
 
Imports System
Imports System.IO
Imports System.ComponentModel
Public Class Form1
 
 
    Public ServeurOPC As New SAOPCAutomation.OPCServer 'objet serveur
    Public WithEvents OPCGroupes As SAOPCAutomation.OPCGroups 'Collection de Groupes
    Public WithEvents OFSGroupeAutomate1 As SAOPCAutomation.OPCGroup 'group d 'item
    Public itemcollection As SAOPCAutomation.OPCItems
    Public ItemLectureAutomate1_Compt As SAOPCAutomation.OPCItem ' opc item1
    Public ItemLectureAutomate1_analog As SAOPCAutomation.OPCItem  'opc item1
    Public ItemServerHandles() As Long                     'OPC Item   Handle
    Public ClientHandles() As Long                        'OPC Client Handle
    Public OPCItemIDs() As String                       'OPC Item   ID
    Public Errors() As Long
    Public ServerHandles() As Long
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ServeurOPC = New OPCServer
        ServeurOPC.Connect("Schneider-Aut.OFS")
        If ServeurOPC.ServerState = 1 Then
            MsgBox("Connection Ofs rèussie")
 
        Else
            MsgBox("Défaut connection")
            Exit Sub
        End If
    End Sub
 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        OPCGroupes = ServeurOPC.OPCGroups
        OPCGroupes.DefaultGroupIsActive = vbTrue
        OPCGroupes.DefaultGroupDeadband = 0
        OFSGroupeAutomate1 = OPCGroupes.Add("m")
        OFSGroupeAutomate1.IsSubscribed = vbTrue
        OFSGroupeAutomate1.IsActive = vbTrue
        OFSGroupeAutomate1.UpdateRate = 1000
        itemcollection = OFSGroupeAutomate1.OPCItems
        OPCItemIDs(0) = New String("TM221ME1!%mw1")
        OPCItemIDs(1) = New String("TM221ME1!%mw2")
        OPCItemIDs(2) = New String("TM221ME1!%mw3")
        ClientHandles(0) = 0
        ClientHandles(1) = 1
        ClientHandles(2) = 2
        ServerHandles(0) = 22
        ServerHandles(1) = 23
        ServerHandles(2) = 24
        Errors(0) = 0
        Errors(1) = 12593
        Errors(2) = 125973
 
        itemcollection.AddItems(3, OPCItemIDs, ClientHandles, ServerHandles, Errors)
 
    End Sub
End Class

le curseur s'arrete à ce niveau

Code:

OPCItemIDs(0) = New String("TM221ME1!%mw1")

l'erreur est ausii lié à cette ligne de code

Code:

itemcollection.AddItems(3, OPCItemIDs, ClientHandles, ServerHandles, Errors)

etant donné que AddItems fait partie de la ref SAOPCAutomation

Code:

1
2
Sub AddItems(NumItems As Integer, ByRef ItemIDs As System.Array, ByRef ClientHandles As System.Array, ByRef ServerHandles As System.Array, ByRef Errors As System.Array, Optional RequestedDataTypes As Object = Nothing, Optional AccessPaths As Object = Nothing)
     Member of SAOPCAutomation.OPCItems

Merci d'avance

toute est bon mercii