Discussion :

[Lucas42]

Bonjour , je vous expose mon probléme :
J'aimerai créer une boucle me permettant de mettre à jour l'état d'une lampe .

j'ai créé un :

Code :

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

Dim nbr as Integer

je dispose de 2 checkbox :
j'ai affecter à la premiére :

Code :

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

1
2
If Check1 = checked then
          nbr = 2

la deuxiéme :

Code :

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

1
2
If Check2 = checked then
          nbr = 3

ainsi qu'un label affichant : "lampe alumée" si le nbr est 2
"lampe eteinte" si le nbr est 3

Mon soucis c'est que ma demande , checkbox cocher ou pas , n'ai jamais pris en compte , donc j'ai essayer avec une boucle do / while mais je n'y arrive pas .
Si il y a un moyen plus facile , merci de m'aider

merci d'avance
amicalement lucas

[jmfmarques]

Comme on ne voit pas où tu as mis ce code, on s'interroge en vain !
1) ton code de la sous-routine, stp
2) nbr est public ?
3) tes chexboxes sont indépendantes ou groupées ???

[méphistopheles]

j'ai affecter à la premiére :

Code :

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

1
2
If Check1 = checked then
          nbr = 2

la deuxiéme :

Code :

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

1
2
If Check2 = checked then
          nbr = 3

à vue de nez (je ne sait pas ce que tu veut faire mais ceci me paraitrais plus simple:

Code :

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

1
2
3
4
5
6
7
Private Sub Check1_Click()
if check1.value=1 then label.caption="lampe alumée"
End Sub
 
Private Sub Check2_Click()
if check2.value=1 then label.caption="lampe éteinte"
End Sub

enfin, c'est ce qui me parais le plus logique.

[sovo]

juste une idee (car ton probleme n'est pas clair du tout) et si tu utilisais le controle "timer" pour gerer tout ca ?? je croit que c'est cette repetition qui doit poser ce pb ??

[jmfmarques]

Laissons-le répondre, si vous le voulez bien !
Je devine autre chose que ce qu'il dit : Exercice de va-et-vient !
Si c'est celà (et je pense que oui), c'est un peu plus compliqué que ce qu'il fait !
Mais laissons-le s'expliquer, s'il vous plait !

[Lucas42]

En fait je cré un controle activex , sur cet activex se trouve 2 images , l'une represente une lampe allumée , l'autre une lampe eteinte .
une fois l'activex terminé , je l'importe sous InTouch ( c'est un logiciel de supervision ) , et l'ordinateur est relié à un automate .
L'automate renvoie une variable NBR , qui correspond à : LAMPE ALLUMEE si NBR = 1 , LAMPE ETEINTE si NBR = 0 . Donc j'aimerai que lorsque la lampe s'eteigne , l'image presente sur l'activex , soit LAMPE ETEINTE , et vis versa quand la lampe est allumée .
Je n'est incorporé AUCUN boutton .
L'automate n'est toujours pas arrivé donc j'ai utiliser 2 checkbox pour simuler l'automate :
- le premier checkbox met NBR à 1
- le deuxiéme checkbox met NBR à 0
voici le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
Dim NBR As Integer
Private Sub Check1_Click() ' CheckedBox pour simuler
If Check1 = Checked Then   ' que la lampe est allumée
NBR = 1
End If
End Sub
Private Sub Check2_Click() ' checkbox pour simuler
If Check2 = Checked Then   ' que la lampe est eteinte
NBR = 0
End If
End Sub

Aprés mon soucis c'est que je ne sais pas ou mettre ce bou de code , j'ai essayé bcp de chose mais en vain .....

Code :

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

1
2
3
4
5
6
7
8
If NBR = 1 Then
Pitcure2.Visible = False   ' image de la lampe eteinte
Picture1.Visible = True    ' imade de la lampe allumée
If NBR = 0 Then
Pitcure1.Visible = False   ' image de la lampe allumée
Picture2.Visible = True    ' imade de la lampe eteinte
End If
End If

Voila , donc si vous voyez comment faire , je vous ecouterai avec plaisir ^^
merci d'avance
amicalement lucas

je rajoute une petit programme qui pourant devrait marcher , et en fait ...... NON :s

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Option Explicit
Dim NBR As Integer
Private Sub Check1_Click() ' CheckedBox pour simuler
If Check1 = Checked Then   ' que la lampe est allumée
NBR = 1
End If
End Sub
Private Sub Check2_Click() ' checkbox pour simuler
If Check2 = Checked Then   ' que la lampe est eteinte
NBR = 0
End If
End Sub
Private Sub Label1_Click()
If NBR = 1 Then
Label1.Caption = "allumée"
If NBR = 0 Then
Label1.Caption = "eteint"
End If
End If
End Sub

[jmfmarques]

Je vois dans ta démarche plusieurs points troublants !
1) Les Checkboxes ne sont pas des boutons d'option ! tu peux très bien avoir Check1 et Check2 cochés en même temps (ce que tu ne pourrais pas faire avec des optionbuttons ) mais je ne vois rien dans ton code en ce qui concerne ce que tu veux faire si tes 2 checkboxes sont cochés !
2) Si tu veux allumer et éteindre une lampe, un seul checkbox ferait l'affaire (ou, d'ailleurs, un seul optionbutton)
3) je ne vois pas comment, dans ton "raisonnement fort incomplet", tu fais passer à la connaissance d'un événement l'état de ta variable NBR (pas globale)
Alors et pour résumer :
- ou il s'agit simplement d'allumer ou éteindre : un seul contrôle, y compris un bouton de commande, fait l'affaire, associé à une variable booléenne (si autre que cochable) et sans même une telle variable (si cochable)
- ou on t'a imposé des checkboxes pour faire celà... et il s'agit alors, selon toute évidence, d'un exercice (au demeurant facile à résoudre) qu'il va bien falloir que TU fasses. Commences par écrire sur un papier (hors syntaxe) le mécanisme de ta pensée !

EDIT : Ah ! je vois que tu as déjà apporté des modifications à ce que tu avais écrit !
Je vais voir ! ATTENDS !

[SfJ5Rpw8]

Aprés mon soucis c'est que je ne sais pas ou mettre ce bou de code , j'ai essayé bcp de chose mais en vain .....

tu crée une procédure ... :

Code :

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

1
2
3
4
5
 
Sub MajLAmpe ()
 Pitcure2.Visible = (NBR = 0)  ' image de la lampe eteinte
 Picture1.Visible = (NBR = 1 )    ' imade de la lampe allumée
End sub

et tu l'appelle sur chaque clic sur boutons ...

Code :

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

1
2
3
4
5
6
7
Private Sub Check1_Click() ' CheckedBox pour simuler
If Check1 = Checked Then   ' que la lampe est allumée
NBR = 1
End If
MajLampe
End Sub

et à l'activation de ta Form ...


Par contre ... si c'est juste pour une simulation pourquoi ne te contente tu pas de seulement un seul checkbox, état lampe...

Autre question : tu dis attendre l'automate... , mais dans l'application finale l'acquisition des données en provenance de l'automate sera effectué comment ? directement par l'active X ? ou par Intouch..?

[jmfmarques]

Code :

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

1
2
3
4
5
6
7
8
9
Option Explicit
Private Sub Check1_Click() ' CheckedBox pour simuler
  Label1.Caption = "éteinte"
  NBR = 0  '=====UNIQUEMENT SI TU Y TIENS, A NBR !
  If Check1 = Checked Then   ' que la lampe est allumée
    Label1.Caption = "allumée"
   NBR = 1 '============UNIQUEMENT SI TU Y TIENS, A CE NBR !
  End If
End Sub

encore qu'un optionbutton irait mieux
et il n'est nul besoin de NBR !

[SfJ5Rpw8]

et il n'est nul besoin de NBR !

...Bonjour jmf...

En fait si tu relis le sujet du post ... NBR et pour moi un paramétre de l'activeX ..., enfin c'est pas clair ... j'attend la réponse à mes précédentes questions...

[jmfmarques]

Alors, s'il veut une valeur :
en plus : label1.tag = 1 ou 0 si allumé ou éteint !
Puis lecture du .tag (NBR = label1.tag) . Pas besoin d'ajouter une variable pour celà !
Il pourrait même (s'il joue avec une image plutot qu'avec un label ) se contenter (direct) de if image.visible then else...
et s'il tient vraiment à son NBR : il en définit la valeur dans l'événement click, en même temps de l'état de la lampe !
(j'ai édité pour le rajouter où il faut, (s'il y TIENT VRAIMENT)

PS : et dire qu'un simple bouton de commande ferait l'affaire (avec changement de son caption et tout et tout) !!!!

Tiens :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private NBR as integer
Private Sub Command1_Click()
 If NBR = 1 Then
   NBR = 0
   Command1.Caption = "éteint"
 Else
   NBR = 1
   Command1.Caption = "allumé"
 End If
End Sub

[Lucas42]

Comment declare ton une variable GLOBALE ??
Et oui je l'accorde , mon exemple avec les checkbox n'est pas approprié car en effet on pe cocher les 2 en même temps ..... :s

[Lucas42]

merci , surtout à bibil pour son code , et au redacteur pour m'avoir insité à posé mes pensées sur papier .

le programme fonctionne trés bien , mais j'ai un autre soucis now
------------------> autre post ^^

merci
amicalement lucas