Forum d'automatisme, entraide et partage des automates industriels.
https://forum-automatisme.net/
--------------dufourbe14330 a écrit : ↑04 août 2020, 22:36 Oui je sais l'afficher sur la supervision et elle déjà présente ;)
Oui j'ai déjà pleins de vannes qui sont des objets de type VANNE et c'est vannes peuvent avoir un état masquée.itasoft a écrit : ↑05 août 2020, 06:33--------------dufourbe14330 a écrit : ↑04 août 2020, 22:36 Oui je sais l'afficher sur la supervision et elle déjà présente
elle est déjà présente ????????
es que ça serait pas pour lire les états des bits dans l'automate (serveur) pour animer les objets VANNES dans l'application WinCC (supervision) ??
Je comprend pas cela marche pasdjé a écrit : ↑04 août 2020, 14:37 A vue de nez,
je parcourrais la liste des Ecrans ("Screens") de l'objet HmiRunTime et pour chaque Ecran, la liste ScreenItems.
Exemple pour le parcours des objets dans une vue spécifiqueCode : Tout sélectionner
L'exemple suivant affiche le nom de tous les objets contenus dans la vue "NewPDL1" : 'VBS99 Dim objScreen Dim objScrItem Dim lngIndex Dim lngAnswer Dim strName lngIndex = 1 Set objScreen = HMIRuntime.Screens("NewPDL1") For lngIndex = 1 To objScreen.ScreenItems.Count 'The objects will be indicate by Item() strName = objScreen.ScreenItems.Item(lngIndex).ObjectName Set objScrItem = objScreen.ScreenItems(strName) lngAnswer = MsgBox(objScrItem.ObjectName, vbOKCancel If vbCancel = lngAnswer Then Exit For Next
A toi d'adapter pour chaque vue (HMIRuntime.Screens ou HMIRuntime.Screens("") ???
Une fois qu'une référence à un objet est faite tu disposes de toutes le propriétés et méthode de celui-ci.
C'est un exemple, il y a peut être aussi moyen d'utiliser For each objScrItem in objScreen.ScreenItems à la place.
A voir.
Code : Tout sélectionner
Option Explicit
Function action
Dim Name_Server 'Déclaration du nom du serveur
Dim Name_Master 'Declaration du nom du master
Dim Name_File 'Déclaration du chemin fichier
Dim objScreen
Dim objScrItem
Dim lngIndex
Dim lngAnswer
Dim strName
lngIndex = 1
'Récuperation des Nom de serveurs
Name_Server = Funct_Read_Tag("@LocalMachineName")
Name_Master = Funct_Read_Tag("@RM_MASTER_NAME")
'Si le serveur est le maitre du réseau et trigger = 1
If Name_Server = Name_Master And (Funct_Read_Tag("PLC21_API/VAR20_OS1.Bool_01") = 1) Then
Set objScreen = HMIRuntime.Screens("GR21D01_Detail_Recup")
For lngIndex = 1 To objScreen.ScreenItems.Count
'The objects will be indicate by Item()
strName = objScreen.ScreenItems.Item(lngIndex).ObjectName
Set objScrItem = objScreen.ScreenItems(strName)
lngAnswer = MsgBox(objScrItem.ObjectName, vbOKCancel)
If vbCancel = lngAnswer Then Exit For
Next
'RAZ de la demande de transfert
Call Funct_Write_Tag("PLC21_API/VAR20_OS1.Bool_01","0","Boolean")
End If
End Function