Fonction Trend Online dans WinCC

Partie du forum pour tout ce qui concerne la supervision industrielle. Forum, conseil, astuce et entraide sur les logiciels de supervision tels que PC Vue, Vijeo designer, WinCC, win cc, monitor pro, so machine, Citect, Intouch .
Répondre
Avatar du membre
Damall
Codeur fou
Codeur fou
Messages : 233
Enregistré le : 13 janv. 2016, 09:22
Localisation : Luxembourg

Fonction Trend Online dans WinCC

Message par Damall »

Bonjour,

J'utilise une fonction Trend Online dans WinCC (dans la vue, le nom de l'objet et "Contrôle1"). Dans cette fonction, j'ai défini deux fenêtre de courbes ("Fenêtre de courbes 1" et "Fenêtre de courbes 2").
WinCC Fen1.png
WinCC Fen1.png (4.68 Kio) Vu 1925 fois
Dans la barre d'outils, j'ai ajouté deux bouton personnalisés ("Courbe couple moteur" et "Courbe vitesse linéaire".

Ce que je souhaiterais faire, c'est en appuyant sur le bouton personnalisé 1, j'affiche la fenêtre de courbes 1, et si j’appuie sur le bouton personnalisé 2, j'affiche la fenêtre de courbe 2.
WinCC Fen2.png
WinCC Fen2.png (5.1 Kio) Vu 1925 fois
WinCC Fen3.png
WinCC Fen3.png (5.57 Kio) Vu 1925 fois
J'ai essayé en utilisant l'événement d'objet OnToolbarButtonClicked, en faisant un script en VB, et en utilisant les attributs TrendWindowVisible, mais rien ne fonctionne.

Je ne sais pas trop comment faire, si quelqu'un peux m'aider.

Merci d'avance.
Avatar du membre
Damall
Codeur fou
Codeur fou
Messages : 233
Enregistré le : 13 janv. 2016, 09:22
Localisation : Luxembourg

Re: Fonction Trend Online dans WinCC

Message par Damall »

C'est bon, après quelques heures de recherche, voici le script :

Sub OnToolbarButtonClicked(ByVal Item, ByVal lId)
'Si appui sur le bouton "Couple Moteur"
If lId = 1001 Then
Item.Caption = "Couple moteur rouleau 1"
Item.TrendWindowName = "Fenêtre de courbes 1"
Item.TrendWindowVisible = True
Item.TrendWindowName = "Fenêtre de courbes 2"
Item.TrendWindowVisible = False
End If
'Si appui sur le bouton "Vitesse linéaire"
If lId = 1002 Then
Item.Caption = "Vitesse linéaire rouleau 1"
Item.TrendWindowName = "Fenêtre de courbes 1"
Item.TrendWindowVisible = False
Item.TrendWindowName = "Fenêtre de courbes 2"
Item.TrendWindowVisible = True
End If

End Sub

:D :D :D
Répondre