Discussion :

[riquet90]

Je ne comprends pas ta question.
Sur ma form j'ai mis un bouton lecture
Faut il rajouter quelque chose sur la form
Si oui, peux tu me dire quel type objet ?
Merci

[SfJ5Rpw8]

...
Faut il rajouter quelque chose sur la form
Si oui, peux tu me dire quel type objet ?
..

oui un "shape" représenté par 3 carrés de couleur (rose, jaune, bleu) l'un sur l'autre dans la barre d'outils

[riquet90]

Faut-il lui donner un nom ?
Items1 ... ou modifier ses propriétés.
Cet objet devrait changer a chaque fois que je modifie l'état de ma variable ?
Merci

[SfJ5Rpw8]

...par exemple modifier la couleur d'un shape (shItem1)...

[riquet90]

bonjour bbil,

Je n'arrive à voir le changement de couleur Du shape lorsque je change l'état de ma variable.
As tu une idée ?
merci

[SfJ5Rpw8]

non pas vraiment d'idée... la variable est lue a chaque appui sur le bouton essai de regarder (en posant un point d'arrêt par exemple) la valeur de oItem1.Value...

[riquet90]

Comment tu peux visualiser oItem1.Value ?

[riquet90]

La couleur devrait être rouge si la variable est active ?

[SfJ5Rpw8]

La couleur devrait être rouge si la variable est active ?

Non vert... FF00..

si tu ne sais pas visualiser l'état d'une variable dans l'éditeur VB, difficile de debuger....

tu devrais faire un tour sur la page cours :
http://vb.developpez.com/cours/

[riquet90]

Bonsoir,

C'est laborieux mais j'avance.
Après quelques corrections de syntaxe des BP, je vois bien ma variable changée après chaque relecture.
L'exécution s'arrête sur ce code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

shItem1.BackColor=IIf(oItem1.value = True, &HFF00&, &H80000005)

Erreur exécution '424' un objet est requis

As tu une idée ?
Merci

[SfJ5Rpw8]

supprime la ligne ...

si tu vois l'état de ta variable oItem1 .. et quelle ressemble à ma copie d'écran .. tu as bien du créer la variable...

et pour "shItem1", je pense que tu as bien du le créer depuis le temps ce shape ?

[riquet90]

Bonjour bbib,

Tout fonctionne ...
Je tiens à te remercier pour tes conseils et ta patience.
Je vais essayer de progresser en VB...

[SfJ5Rpw8]

j'aurais deux questions ...
- Tu as mis quoi pour la déclaration de tes items ...? l'adresse automate %... ou le symbole ..
- as tu tester la partie sur événement avec oGrp1_DataChange...

[riquet90]

Bonsoir bbib,

J'ai mis du temps sur le shape, car j'ai découvert la propriété BackStyle au bout d'un certain temps.
Au sujet de l'Item1, je suis passé par un bit interne de l'API (%M5) avec le mnémonique cela ne fonctionne pas.
Pour la partie DataChange, je t'avoue je n'ai pas bien compris ce que cela doit faire.
Déja le rôle de cette ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

oGrp1.OPCItems.AddItem "simulateur!Weighing_Material_A", 2

Je voulais la remplacer par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

oGrp1.OPCItems.AddItem "aout!%mw100", 2

Je vais essayer de créer un deuxième item mais avec un mot interne, pour essayer d'afficher l'état d'une entrée analogique.

Si tu as des idées,mais je ne veux pas abuser ..
D'avance merci

[SfJ5Rpw8]

lors de la création (ajout) des items tu dois gérer un numéro de rang.. (ou index.. ou ID appelle cela comme tu veux..) c'est à cela que sert le 2 ...(je n'ai que 2 variables j'ai pas gérer grand chose...)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

oGrp1.OPCItems.AddItem "aout!%mw100", 2

ensuite .. la fonction événementielle oGrp1_DataChange et déclenché automatiquement sur changement d'état d'une des variables du groupe .. tu n'as donc pas à faire de lecture périodique..

[riquet90]

Bonjour bbil,

J'ai rajouté une deuxième variable avec comme syntaxe

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

oGrp1.OPCItems"aout!%m6",2

Lors de l'éxécution
J'ai une erreur de compilation
Instructions et étiquettes invalides entre Select Case et première occurence de Case
Sh2Items1.BackColor en surbrillance.
Si tu as une idée ?

[SfJ5Rpw8]

montre nous ta fonction : oGrp1_DataChange

[riquet90]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub oGrp1_DataChange(ByVal TransactionID As Long, ByVal NumItems As Long, ClientHandles() As Long, ItemValues() As Variant, Qualities() As Long, TimeStamps() As Date)

 Dim i As Integer
For i = 1 To NumItems
 Select Case ClientHandles(i)
         Sh2Item1.BackColor = IIf(ItemValues(i) = True, &HFF00&, &H80000005)
    Case 2 ' ClientHandle utilisé lors de l'ajout de l'item weighing_Material_A
  '      LbMaterielA.Caption = CStr(ItemValues(i))
 End Select
 Next
  End Sub

[SfJ5Rpw8]

tu as oublié case 1

[riquet90]

Cela fonctionne pour le premier item