[Wincc flexible] Passage d'un pointeur a une fonction Vbs
Bonjour a tous,
J'aimerais pouvoir remplacer mon tag HmiRuntime.SmartTags("ALARMES_DB330_L1") par un parametre de fonction, mais cela ne marche pas...
Mon but etant de crée une fonction qui remet automatiquement des bits a Zero dans un automate.....
Code:
1 2 3 4 5 6 7 8 9 10 11 12
| Dim i,Mon_Int
Dim Bit(16)
Set Mon_Int = HmiRuntime.SmartTags("ALARMES_DB330_L1")
For i = 1 To 16
Bit(i) = Mon_Int And 2^i
If Bit(i) Then
ResetBitInTag SmartTags("ALARMES_DB330_L1"), i
End If
Next |