récupération des variables d'un opc server

Version imprimable

1 pièce(s) jointe(s)

Salut tout le monde,. j'ai un problème pour récupérer les valeurs de variables dans un serveur opc simulateur(ICONICS Simulator OPC Server 3.12)avec VBScript.je ne comprend pas beaucoup dans VBScript.j'ai cherché sur net et j'ai essayé d'écrire ce code.
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 <html> <head> <title>test</title> </head> <body> <script LANGUAGE="VBSCRIPT"> Set MyServer = New OPCServer MyServer.Connect"ICONICS.SimulatorOPCServer.3.12" Set ServerGroups = MyServer.OPCGroups Set Group = ServerGroups.Add("Group1") Group.UpdateRate = 1000 Set MyItem1 = Group.OPCItems.AddItem("TEST1") MyItem.Read OPCDevice valeur_item = MyItem.Value document.write"le valeur de test1 est"&valeur_item MyServer.Disconnect Set MyServer = Nothing </script> </body> </html>
je vous joins l'imprime écran des variables dans opc server simulator.

Auriez-vous une idée d'où cela pourrait-il venir? et comment résoudre ce problème svp?

Merci d'avance... :D

21/02/2012, 15h04
omen999
bonjour,
lu en diagonale mais ces deux lignes m'interpellent... :aie:
Code:

1 2 Set MyItem1 = Group.OPCItems.AddItem("TEST1") MyItem.Read OPCDevice
pourquoi instancier un objet MyItem1 pour ensuite appeler une variable MyItem ? :koi:
23/02/2012, 14h12
MATLAB007

Salut tout le monde,
Voici ce que je cherche à faire en VBScript.
Connection a un serveur opc (de type simulateur pour travailler localement sans automate programmable)Ex:KEPServer.
puis récupération des valeurs des variables/items qui sont enregistrés dans le serveur.

Bonjour, j'ai pu connecter au serveur opc mais il reste un pas pour récupérer le valeur d'une variable.j'ai corrigé le code précédent.
comment s'il vous plait comment lire un item? est ce que la syntaxe est correct de la fonction ReadItem()? Merci d'avance

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
 
<HTML>
 
<head>
<title>OPC Web Client Example, Single Tag Read Within Internet Explorer</title>
</head>
 
<body>
 
  <p>
  <input type="button" value="connexion" name="B3"><br>
<input type="text" name="T1" size="30">
  </p>
</body>
 
<script language="vbscript">
 
  sub b3_onClick
   set opcwebclient = CreateObject("KEPware.KEPServerEx.V4")
  set valueTimeQuality = opcwebclient.ReadItem("", "KEPware.KEPServerEx.V4", _
         "Simulation.Random", "", 0)
   if Err.Number = 0 then
    document.all.t1.value=valueTimeQuality.value
   else
     msgbox "An error occurred: " & Err.Number
   end if    
end sub
</script>
</html>