OFS (sans le contrôle SaOFS)

Ceci est un développement MRD d’après ce site: http://www.developpez.net/forums/d958532/systemes/autres-systemes/automation/ofs-vb6/

Dans le gestionnaire de références, cocher « SA OPC Automation 2.0 »

Le code à taper:

Imports SAOPCAutomation

Public Class FrmDepart
   Dim Ofs As New SAOPCAutomation.OPCServer
   Dim WithEvents Grp As OPCGroup
   Dim GrpItems As SAOPCAutomation.OPCItem

   Private Sub FrmDepart_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       ‘——————————Création et gestion du Groupe OFS (Méthode sans le contrôle SaOfs)
       Ofs.Connect(« Schneider-Aut.OFS »)
       If Ofs.ServerState = 1 Then
           Grp = Ofs.OPCGroups.Add()
           Application.DoEvents()
           Grp.IsSubscribed = True
           ‘Deux exemples d’adressage
           MesAdresses = « XIP06:30.35!%MW1000:7 »
           MesAdresses = « MBT:139.160.96.135/T!%MW1000:7 »
           GrpItems = Grp.OPCItems.AddItem(MesAdresses, 1)
       Else
           Beep()
       End If
   End Sub

   Private Sub BtnRead_Click(sender As Object, e As EventArgs) Handles BtnRead.Click
       ‘——————————Lecture explicite: par exemple en cliquant sur un bouton
       GrpItems.Read(1)
       Dim MesValeurs As Array = GrpItems.Value
       LstGrp.Items.Clear()
       For i = 0 To 3 : LstGrp.Items.Add(DecToHex(MesValeurs(i))) : Next
       For i = 4 To 6 : LstGrp.Items.Add(DecToAsc(MesValeurs(i))) : Next
   End Sub
End Class