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
| Sub MonApplication_VBNET()
'Création d'un client
Dim monClient As OPCClient = New OPCClient("Nom d'un projet client")
'Ajout de 2 serveurs dans l'objet client
Dim monServeur1 As OPCServeur = monClient.Serveurs.Ajouter("MonServeurLocal", "127.0.0.1")
Dim monServeur2 As OPCServeur = monClient.Serveurs.Ajouter("MonServeurDistant","169.9.2.1")
'Ajout de 2 groupes dans le serveur 1
Dim monGroup1 As OPCGroupe = monServeur1.Groupes.Ajouter("Un 1er groupe")
Dim monGroup2 As OPCGroupe = monServeur1.Groupes.Ajouter("Un 2ème groupe")
'Ajout d'item et de valeur dans le groupe 1 et le groupe 2
Dim monItem1 As OPCItem = monGroup1.Ajouter("toto", 125)
Dim monItem2 As OPCItem = monGroup1.Ajouter("tata", 326)
Dim monItem3 As OPCItem = monGroup2.Ajouter("titi", 152)
'----------------------------------
'Le but final serait de pouvoir accéder à une propriété de l'item en utilisant tout le chemin d'accès
'par leur nom
MessageBox.Show(monClient.Serveur("MonServeurLocal").Groupe("Un 1er groupe").Item("tata").valeur) 'devrait afficher 326
'ou par leur num
MessageBox.Show(monClient.Serveur(0).Groupe(0).Item(1).valeur)
End Sub |
Partager