[WinCC-VBScript] lecture de bit

Bonjour a tous...

bon voila mon problème,je viens lire un mot (word) que je voudrais eclater en bit pour pouvoir par la suite venir en lire 5, le script bloque dans la boucle

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Function Text_Trigger(Byval Item) Dim texte Dim MON_INDEX,i Dim Mon_Int Dim Bit(16)mes bits Set Mon_Int = HMIRuntime.Tags("Mon_Int")Mon mot Set MON_INDEX = HMIRuntime.Tags("MON_INDEX") Set texte = ScreenItems("Mon_Text") MsgBox "je suis la " For i = 1 To 16 MsgBox "je suis lala " Bit(1) = Mon_Int & 2^i 'C est la que ca bloque au niveau du masque MsgBox "bit" If Bit(i) Then b = HMIRuntime.Tags("MON_INDEX").Read texte.text TextFileReadLine("C:\Ma_list.txt",b) End If Next MsgBox "out"

---

Merci a tous
End Function

bonjour,
cette ligne:

Code:

---

Set Mon_Int = HMIRuntime.Tags("Mon_Int")

---

signifie que tu instancies un objet dénommé Mon_Int dont tu ne précises pas la nature :roll:
donc:

Code:

---

Bit(1) = Mon_Int & 2^i

---

peut très bien n'avoir aucun sens

si c'est du wincc, regarde ici: http://www.eng-tips.com/viewthread.cfm?qid=70365

en vb le & est l'opérateur de concaténation de chaines de caractéres .. pour faire un ET logique entre deux mots utilise AND ...

tiens un script pour t'en persuader :

Code:

---

1 2 3

MsgBox 12 & 21 MsgBox 12 AND 21

---

Merci a tous les deux pour vos conseils mais ca marche toujours pas...et oui il s'agit bien de vbs pour WinCC

Je vais essayer de vous détailler plus ce que je veux faire avec ce script....

1) Je recupere un WORD de 16 bits depuis un automate

Code:

---

Set Mon_Int = HMIRuntime.Tags("Mon_Int")

---

2) Je dois l'eclaté ( Masquer ) pour pourvoir lire le mot bit a bit (J'ai en faite besoin de lire le bit 12,11,2,1,0

Code:

---

1 2 3 4 5 6

For i = 1 To 16 MsgBox "je suis lala " Bit(1) = Mon_Int & 2^i 'C est la que ca bloque au niveau du masque MsgBox "bit" Next

---

Mais a ce niveau ca bloque

Code:

---

Bit(1) = Mon_Int & 2^i

---

Je ne peut donc pas faire mes testes sur mes bits
Jai aussi essayer avec AND mais le resultat est identique.
C'est un script qui marche parfaitement en C

Code:

---

1 2 3 4 5 6

BOOL Bit[16] for (i=0;i<16;i++) { Bit[i]=((WORD)value>>i)&0x1; }

---

En faite c est ce code en c que je veux faire en VBS

Merci

Citation:

---

Je recupere un WORD de 16 bits depuis un automate

---

justement ... non
Mon_Int n'est très vraisemblablement pas une valeur de sous-type vbInteger
mais plutôt un objet avec ses propriétés et ses méthodes que ton éditeur de script intégré doit te fournir
donc rien d'étonnant à ce que tu n'arrives pas à concaténer un entier long avec un objet 8O 8O

en fait tu cumule 2 problèmes... essai de séparer en deux ton instructions.. commence à placer MonInt dans une variable integer.. pas un objet avec set...

voici un extrait de la documentation Wincc ("WinCC V6.0
Documentation de base") sur la lecture d'un entier :

Code:

---

1 2 3 4

Dim lngValue Set objTag1 = HMIRuntime.Tags("Tag1") lngValue = objTag1.Read

---

adapte ce code à ton cas puis utilise le AND... ;)

Code:

---

Bit(1) = lngValue AND 2^i

---

:mouarf: je teste ca dans la journée et je vous tiens au courant:yaisse2:
Merci:king:

Bon bah merci a tous c'etait bien comme ca qu il fallait faire...:king: :king: