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