Discussion :

[ariana1993]

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

Code :

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

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

[Invité]

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

[ZenZiTone]

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

C'est le petit "New" !

[ariana1993]

Voici le code

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

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

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

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

Code :

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

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

etant donné que AddItems fait partie de la ref SAOPCAutomation

Code :

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

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

[ariana1993]

toute est bon mercii