[PCVue] LIAISON SACDA-VBA

[SART01]

Bonjour
Je dois lancer un script scada cyclique (je vais le programmer par evenement cyclique), je vais monter un bit dans le programme scada et je dois récupérer cette info pour lancer un programme en vba. Comment récupérer cette variable et programmer que cette variable execute le programme vba ?
Cordialement merci

[itasoft]

slts,
(je vais le programmer par événement cyclique), on peut pas le programmer par conditions ? (par le bit en question)

[FullHotReset]

Salut,

Au démarrage, tu peux activer un évènement sur n'importe quelle variable de ton arborescence.

À mettre dans script vb "ThisProject" du Main(Workspace)

Code : Tout sélectionner

Private WithEvents Var1Event As Variable
Private WithEvents Var2Event As Variable

Private Sub fvProject_StartupComplete()
	Dim oVar As Variable
	
        Set oVar = Variables("Tree1.Branch1.Var1")
        oVar.EnableEvents = True
	Set Var1Event = oVar
	
	Set oVar = Variables("Tree1.Branch1.Var2")
	oVar.EnableEvents = True
	Set Var2Event = oVar
End Sub

Private Sub Var1Event_ValueChange()
	If Not CBool(Var1Event.Status And fvVariableStatusGood) Then Exit Sub
	' Pif
End Sub

Private Sub Var2Event_ValueChange()
	If Not CBool(Var2Event.Status And fvVariableStatusGood) Then Exit Sub
	' Paf
End Sub