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").
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.
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.
Fonction Trend Online dans WinCC
Re: Fonction Trend Online dans WinCC
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

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
