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

**MATLAB007** · 21/02/2012, 00h59

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 :

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

**omen999** · 21/02/2012, 15h04

bonjour,
lu en diagonale mais ces deux lignes m'interpellent...

Code :

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

1
2
Set MyItem1 = Group.OPCItems.AddItem("TEST1")
MyItem.Read OPCDevice

pourquoi instancier un objet MyItem1 pour ensuite appeler une variable MyItem ?

**MATLAB007** · 23/02/2012, 14h12

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.

**MATLAB007** · 25/02/2012, 11h59

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 :

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

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

VBScript

Discussions similaires

Partager

Partager