[VB6]Variable Globale

**Lucas42** · 26/04/2006, 10h27

Bonjour , je suis en train de créer un controle activeX sur lequel se trouve plusieurs images :
1 - une lampe allumée , qui s'affiche qd NBR = 1
2 - une lampe eteinte , qui s'affiche qd NBR = 0

Je posséde egalement une feuille ( MENU ) sur laquelle ce trouve des OptionButtons
l'un permet de mettre la variable NBR à 1 , le second à 0 .

Je dois donc utiliser NBR en tant que variable globale , le soucis intervient à ce niveau

Dans le code de la feuille ( MENU ) j'ai ecrit ceci

Code :

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

Public NBR as Integer

Dans le code de mon ActiveX j'ai ecrit ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub EtatImg()
Imgouvert.Visible = (NBR= 1)
Imgferme.Visible = (NBR= 0)
End Sub
 
Private Sub UserControl_Initialize()              ' je pense que le soucis vien de la !!!!!! je ne sais pas quelle procédure utiliser ...
If menu.NBR = 0 Then        ' Lampe ETEINTE
     EtatImg
End If
If menu.NBR= 1 Then         ' Lampe ALLUMEE
     EtatImg
End If
End Sub

Merci d'avance
amicalement LUCAS

**SfJ5Rpw8** · 26/04/2006, 10h33

Ta lampe c'est une vanne non ?

relis le code ... ta fonction EtatImg.. , met à jour l'état de ta vanne en fonction de la variable etat_van ... mais ou fais tu le lien avec NBR ?

**SfJ5Rpw8** · 26/04/2006, 10h34

Envoyé par Lucas42

Bonjour , je suis en train de créer un controle activeX sur lequel se trouve plusieurs images :
1 - une lampe allumée , qui s'affiche qd NBR = 1
2 - une lampe eteinte , qui s'affiche qd NBR = 2

Je posséde egalement une feuille ( MENU ) sur laquelle ce trouve des OptionButtons
l'un permet de mettre la variable NBR à 1 , le second à 0 .

Les états de NBR c'est quoi finale ment 1 ou 2 // 1 ou 0 ...?

**Lucas42** · 26/04/2006, 10h39

Désolé , je suis aller trop vite , oui mon projet c des vannes , mais c kil y a bcp plus de choix , donc j'ai pris l'exemple des lampes .

donc ui allumé NBR = 1
eteint NBR = 0

donc dans EtatImg , il faut remplacer Etat_van par NBR ^^

**jmfmarques** · 26/04/2006, 12h12

Le problème est celui de ton activex et de ses propriétés !
Quel est le nom de l'activeX et quelles propriétés as-tu définies pour lui ?

Si cet activex affice une image, tu dois lui "construire" une propriété (allumé, par exemple, avec valeurs possibles True ou False)

Je voudrais bien voir la partie du code (de ton usercontrol) où tu as défini ses propriétés !

Si ton activex est construit normalement, avec une propriété "allumé" par exemple,
dans ta Form :
nomactivex.allumé = True ou = False (selon le cas)

Maintenant : pourquoi diable passer par un activex pour faire si peu ???
Si ce n'est pas un exercice qu'on t'impose (encore une fois), il y a beaucoup plus simple et efficace à faire

**Lucas42** · 26/04/2006, 14h00

Et bien , j'utilise un activex car je veut pouvoir l'importer dans un logiciel de supervision InTouch .

voici le code de mon activeX :

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Dim cligno As Integer
Sub EtatImg()
 Imgferme.Visible = (Etat_van = 0)     ' image de la vanne fermée
 Imgouvert.Visible = (Etat_van = 1)      ' image de la vanne ouverte
 Imgdefaut.Visible = (Etat_van = 2)     ' image de la vanne en defaut
 Imgindefinit.Visible = (Etat_van = 6)  ' image de la vanne en position non definit
End Sub
 
Private Sub Imgferme_DblClick()         ' pour faire apparaitre le menu
menu.Show
End Sub
Private Sub Imgouvert_DblClick()        ' pour faire apparaitre le menu
menu.Show
End Sub
Private Sub Imgindefinit_DblClick()     ' pour faire apparaitre le menu
menu.Show
End Sub
Private Sub Imgdefaut_DblClick()        ' pour faire apparaitre le menu
menu.Show
End Sub
Private Sub Timer1_Timer()              'Gestion du Timer pour faire clignoter l'image defaut
cligno = cligno + 1
    Select Case cligno
    Case 1
        Imgdefaut.Visible = False
    Case 2
        Imgdefaut.Visible = True
cligno = 0
End Select
End Sub
Private Sub UserControl_Initialize()
If menu.Etat_van = 0 Then
    EtatImg
End If
If menu.Etat_van = 1 Then
    EtatImg
End If
If menu.Etat_van = 2 Then
    EtatImg
End If
If menu.Etat_van = 6 Then
    EtatImg
End If
End Sub

et le code de ma form est :

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
21
Public Etat_van As Integer
Private Sub Option1_Click()     ' OptionButton simulant Etat_van = 0
If Option1 = True Then
Etat_van = 0
End If
End Sub
Private Sub Option2_Click()     ' OptionButton simulant Etat_van = 1
If Option2 = True Then
Etat_van = 1
End If
End Sub
Private Sub Option3_Click()     ' OptionButton simulant Etat_van = 2
If Option3 = True Then
Etat_van = 2
End If
End Sub
Private Sub Option4_Click()     ' OptionButton simulant Etat_van = 6
If Option4 = True Then
Etat_van = 6
End If
End Sub

et je comprend pas pourquoi cela ne fonctionne pas ???

**SfJ5Rpw8** · 26/04/2006, 14h11

bon j'ai lu ton code en travers (oui je suis un peu occupé en pleine partie de belote sur zonejeux ..) et j'ai pas vu ou tu as déclaré eta_vann dans ton activeX?

de plus sur l'initialize de ta form .. pourquoi t'embête tu pour tester la valeur d'eta_vann avant l'appel de la sub Etat_img... appelle la procédure dans tous les cas...

bon j'ai vu la déclaration ... alors ce qui manque c'est peu-être un appel à la fonction Etat_img sur changement d'état de eta_vann (clic sur chec box..)

**Lucas42** · 26/04/2006, 14h15

ma declaration de Etat_van et tout en haut du code de ma form :

Code :

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

Public Etat_van As Integer

Elle est bien declarer en tant que globale comme ca ??

en ce ki concerne l'initialize de ma form , je me suis dit que si je mettais les conditions ici :

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
Private Sub UserControl_Initialize()
Timer1.Enabled = False
If menu.Etat_van = 0 Then
    EtatImg
End If
If menu.Etat_van = 1 Then
    EtatImg
End If
If menu.Etat_van = 2 Then
    EtatImg
End If
If menu.Etat_van = 6 Then
    EtatImg
End If
End Sub

et bien je pensé que la valeur de Etat_van serai sans cesse demander ....
je me trompe ??

**SfJ5Rpw8** · 26/04/2006, 14h17

Envoyé par Lucas42

ma declaration de Etat_van et tout en haut du code de ma form :

Code :

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

Public Etat_van As Integer

Elle est bien declarer en tant que globale comme ca ??

en ce ki concerne l'initialize de ma form , je me suis dit que si je mettais les conditions ici :

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
Private Sub UserControl_Initialize()
Timer1.Enabled = False
If menu.Etat_van = 0 Then
    EtatImg
End If
If menu.Etat_van = 1 Then
    EtatImg
End If
If menu.Etat_van = 2 Then
    EtatImg
End If
If menu.Etat_van = 6 Then
    EtatImg
End If
End Sub

et bien je pensé que la valeur de Etat_van serai sans cesse demander ....
je me trompe ??

ben oui le code initialize n'est exécuté qu'une fois ... à l'initialisation ...

**SfJ5Rpw8** · 26/04/2006, 14h20

pour l'histoire de la portée des variables pour être sur que tu ne fais pas d'erreur rajout en haut tes modules de codes la ligne

Code :

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

option explicit

qui oblige à la déclaration explicite des variables...

car je comprends pas que tu utilise la variable eta_van de deux maniére différente dans ta form , eta_van seul ou menu.eta_van ..;

**Lucas42** · 26/04/2006, 14h27

oui

Code :

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

Option Explicit

est present en haut de mes pages
pour ce ki est de Etat_van et menu.Etat_van , c'est tout simplement un oublie de ma part , il faut bien utiliser

Code :

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

 menu.Etat_van

donc je comprend pas pk cela ne fonctionne pas , es ce parcke je fais la manip k'a l'initialisation ???

comment faire pour ke cela ce fasse tout le tps , et non qu'une seul fois ??

**SfJ5Rpw8** · 26/04/2006, 14h48

Il faut un événement pour déclencher l'appel de ta fonction de mise à jour ... donc soit pour tes tests tu l'appelle lors du clic du bouton checK, ou en fonctionnement normal lors de la mise à jour de la variable eta_van ( d'ailleurs tu ma toujours pas dit comment elle doit être mis à jour?) ..

ou tu utilise un Timer.. ( ce qui en soit n'est pas terrible puisque par le fait tu t'éloigne de la programmation événemetielle..) et à chaque déclenchement du timer tu lance la fameuse fonction de mise à jour
EtatImg

**Lucas42** · 26/04/2006, 14h53

et bien , pour que tu voi le truc dans sa globalité , le programme que je suis en train de faire avec vos aides , va etre importer sous InTouch ( logiciel de supervision ) , le pc sera ensuite relié à un automate qui génére la variable Etat_van .

Donc comme tu la presagé , pour mes test , j'utilise une form sur laquel j'ai disposer 4 Optionbutton , avec pour chacune d'elles une valeur definie de Etat_van .

Il faut que je rajoute kkchose dans ma fonction Option1_click pour pouvoir mettre à jour la variable Etat_van , et que dans mon activex , il prenne la valeur considéré ???

**jmfmarques** · 26/04/2006, 14h53

Et moi.... je suis assez surpris par cet ocx sans propriétés définies !!!!

**SfJ5Rpw8** · 26/04/2006, 14h55

Envoyé par Lucas42

et bien , pour que tu voi le truc dans sa globalité , le programme que je suis en train de faire avec vos aides , va etre importer sous InTouch ( logiciel de supervision ) , le pc sera ensuite relié à un automate qui génére la variable Etat_van .

oui mais j'ai toujours pas ma réponse ..! il cause comment ton Programme à l'automate ... ? directement ? ou c'est intouch qui cause avec l'automat et transmet les données à l'activeX ?.

**Lucas42** · 26/04/2006, 15h00

Ah pardon , je t'explique alors :

- ActiveX dialogue avec InTouch
- InTouch dialogue avec L'automate

donc il me suffit d'utiliser les mm variable que celles presentes dans l'automate.

**jmfmarques** · 26/04/2006, 15h16

C'est quoi, çà ?
du bouche à oreille ? un jeu de relais pour faire mumuse ?

**Lucas42** · 26/04/2006, 15h19

de quoi

C'est quoi, çà ?
du bouche à oreille ? un jeu de relais pour faire mumuse ?

Bibil me demander comment mon programme allé dialgué avec l'automate, je lui est donc expliqué .

Et la je péte un plomb , ca ve tj pas marcher cette histoire de variable globale

du moin si , dés que je lance l'execution , c toujours la mm image qui s'affiche car Etat_Van par defaut =0, mais ca le fais qu'à l'initialisation, donc si je clique sur OptionButton , qui indique que Etat_van=1 , l'image devrait changer , et c'est pas le cas , car la variable n'est pas mis à jour

**jmfmarques** · 26/04/2006, 15h23

On y va :
quel est le nom de ton appli ?
Qu'est Intouch ?
comment s'établissent tes "dialogues" ? (tous)

**SfJ5Rpw8** · 26/04/2006, 15h29

Envoyé par Lucas42

de quoi

Bibil me demander comment mon programme allé dialgué avec l'automate, je lui est donc expliqué .

Et la je péte un plomb , ca ve tj pas marcher cette histoire de variable globale

du moin si , dés que je lance l'execution , c toujours la mm image qui s'affiche car Etat_Van par defaut =0, mais ca le fais qu'à l'initialisation, donc si je clique sur OptionButton , qui indique que Etat_van=1 , l'image devrait changer , et c'est pas le cas , car la variable n'est pas mis à jour

et donc n'aurai tu pas intérêt à développer plutôt un synoptique intouch, qui appelle ton activeX pour le tester.., avec des boutons te permettant de modifier les variables Intouch... envoyées en paramétre à l'activeX ? .. je ne me souviens plus comment un ActiveX "intercepte" les paramétres qu'il reçoit de l'extérieur .. mais c'est vers la qu'il faut chercher pour effectuer l'appel à ta procédure de mise à jour états.. :
etatImg

[VB6]Variable Globale

VB 6 et antérieur

Discussions similaires

Partager

Partager