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 : Sélectionner tout - Visualiser dans une fenêtre à part
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
Partager