Discussion :

[Lucas42]

Bonjour , je vous expose mon probléme , j'ai un UserControl sur lequel j'ai mis un Timer , une PictureBox et un Label . Selon l'etat d'une variable "etat_van" , la picturebox clignote , mais je n'arrive pas à faire clignoter mon Label , car je ne veut pas utiliser un DEUXIEME TIMER , et la propriété TAG n'existe pas pour les labels :s

voici mon code

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
Private Sub Timer1_Timer()
Dim etat_figure As Integer
Dim etat_forcage As Integer
etat_figure = etat_van And 7
etat_forcage = etat_van And 32760
    Select Case etat_figure
        Case 1
            couleur_animation = couleur_ferme
        Case 2
            couleur_animation = couleur_ouvert
        Case 4
            couleur_animation = couleur_defaut ' je fais
            If Picture1.Tag = "V" Then     ' clignoter ma
                Picture1.Cls               ' picturebox ici
                Picture1.Tag = "F"         '
            Else                           '
                Picture1.Tag = "V"         '
            End If                         ' fin ici
        Case Else
            couleur_animation = couleur_indefinie
    End Select
    Select Case etat_forcage
        Case 8
            Label1.Visible = True
            Label1.Caption = "F.O"
        Case 16
            Label1.Visible = True
            Label1.Caption = "F.F"
        Case Else
            Label1.Visible = False
    End Select
End Sub

merci d'avance
amicalement lucas

[méphistopheles]

dans quelle case veut-tu le faire clignoter?
il te suffit de déclarer une variable pour ça non?

[jmfmarques]

comme on ne connait pas le type de etat_van, son évolution, ni à quoi correspond 32760 exactement .... , on ne peut deviner le mécanisme...
Peux-tu le décrire en algo ou en français, que l'on puisse y voir suffisamment clait pour te guider ?

[Lucas42]

et bien la variable etat_van est un mot d'état, et ce mot d'état ce decompose en 2 parties :
- les 3 premiers octets correspondant à l'etat de l'animation
1: 001 fermée
2: 010 ouverte
4: 100 defaut
- les 2 prochains octets correspondant à l'état de forcage
8: 1000 Forcé Ouvert
16: 10000 Forcé Fermée
donc les nombres 7 et 32760 me permette de faire un masque de donc de traité differement la variable etat_van.....
Sinon en ce qui concerne le clignotement , il fallait faire clignoter le label situé dans les case8 et case 16 mais c'est tout bon , j'ai trouver

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Select Case etat_forcage
        Case 8
            Label.Visible = Not Label.Visible 
            Label1.Caption = "F.O"
        Case 16
            Label.Visible = Not Label.Visible 
            Label1.Caption = "F.F"
        Case Else
            Label1.Visible = False
    End Select
Label.Visible = Not Label.Visible

merci qd mm