Clignotement de voyant.

**radio7501** · 18/05/2014, 15h25

Bonjour à tous.

depuis quelques jours, je me heurte à un problème:

J'ai créé un objet Ovalshape que je nomme "LR_CX" qui représente une lampe rouge.

quand j'appelle la partie du programme qui doit le commander, je dois le faire clignoter tant que je n'appelle pas un autre affichage (pour LJ_CX, LV_CX,...)

Ceci vaut pour chaque combinaisons de lampes créée: LB_CX, LJH_CX, LJV_CX, LV_CX,...

La liste des combinaisons différentes à faire clignoter sont (selon le cas):

LR_CX

LJH_CX+LJV_CX

LR_CX+LB_CX

LJV_CX+LV_CX

LJH_CX+LV_CX

LV_CX

ces voyants se trouve dans formulaire qui s'ouvre dans un formulaire parent.

pouvez-vous m'aider?

Merci.

**rv26t** · 18/05/2014, 17h39

Bonjour,

Vous pouvez utiliser un timer pour gérer le clignotement.

**radio7501** · 20/05/2014, 19h45

Bonjour à tous,

c'était mon idée de départ mais les exemples trouvés sur le net ne sont pas claires pour mettre en œuvre.

si vous avez une explication simple pour le faire, je suis preneur.

merci.

**rv26t** · 20/05/2014, 21h24

Ne connaissant pas en détail la structure de travail de tes objets, voici un exemple avec label (représente les lampes) et checkbox (l'état clignotement) un bouton pour déclencher

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
    Private Sub btnAction_Click(sender As System.Object, e As System.EventArgs) Handles btnAction.Click
        Timer1.Enabled = Not Timer1.Enabled
    End Sub
 
    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        clignote()
    End Sub
 
    Sub clignote()
        couleur(lblLR_CX, CheckBox1.Checked)
        couleur(lblLB_CX, CheckBox2.Checked)
        couleur(lblLJV_CX, CheckBox3.Checked)
        couleur(lblLJH_CX, CheckBox4.Checked)
        couleur(lblLV_CX, CheckBox5.Checked)
    End Sub
 
    Sub couleur(lbl As Label, clignote As Boolean)
        If clignote Then
            If lbl.BackColor = Color.GreenYellow Then lbl.BackColor = Color.YellowGreen Else lbl.BackColor = Color.GreenYellow
        Else
            lbl.BackColor = Color.White
        End If
    End Sub

En cliquant sur les checkbox les clignotements changent

**radio7501** · 20/05/2014, 21h53

Bonjour à tous,

Dans mon cas, il s'agit d'une signalisation.

Dans le cas d'un signal fixe, voici ce que je fait:

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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
 
 
 
Public Class FormSIGNAL_C
    Private NVC As Boolean = False
    Private NUC As Boolean = False
    Private NCBC As Boolean = False
 
    Private Sub SIGNALC_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
        With LR_C
            .FillStyle = PowerPacks.FillStyle.Solid
            .FillColor = Color.Red
            .Visible = False
        End With
 
 
        With LJH_C
            .FillStyle = PowerPacks.FillStyle.Solid
            .FillColor = Color.Yellow
            .Visible = False
        End With
 
 
        With LJV_C
            .FillStyle = PowerPacks.FillStyle.Solid
            .FillColor = Color.Yellow
            .Visible = False
        End With
 
 
        With LB_C
            .FillStyle = PowerPacks.FillStyle.Solid
            .FillColor = Color.White
            .Visible = False
        End With
 
        With LV_C
            .FillStyle = PowerPacks.FillStyle.Solid
            .FillColor = Color.Green
            .Visible = False
        End With
 
        NVC = True
        NUC = True
        NCBC = True
        reset_C()
    End Sub
 
    Sub reset_C()
 
        LR_C.Visible = True
        LV_C.Visible = False
        LJV_C.Visible = False
        LJH_C.Visible = False
        LB_C.Visible = False
        U1_C.Visible = False
        U2_C.Visible = False
        U3_C.Visible = False
        V1_C.Visible = False
        V2_C.Visible = False
        cmdCB_C(0)
 
    End Sub
 
#Region "GENRE DE MOUVEMENT"
 
    Public Sub CmdSG_C(CSA As Integer, O As Integer)
 
        If CSA = 0 Then
            CmdR_C()
        End If
        If CSA = 1 And O = 0 Then
            CmdJJ_C()
        ElseIf CSA = 1 And O = 1 Then
            CmdVert_C()
        ElseIf CSA = 1 And O = 2 Then
            CmdJVH_C()
        ElseIf CSA = 1 And O = 3 Then
            CmdJVV_C()
        End If
        If CSA = 3 And O = 0 Then
            CmdJJ_C()
        ElseIf CSA = 3 And O = 1 Then
            CmdVert_C()
        ElseIf CSA = 3 And O = 2 Then
            CmdJVH_C()
        ElseIf CSA = 3 And O = 3 Then
            CmdJVV_C()
        End If
        If CSA = 5 And O = 0 Then
            CmdJJ_C()
        ElseIf CSA = 5 And O = 1 Then
            CmdVert_C()
        ElseIf CSA = 5 And O = 2 Then
            CmdJVH_C()
        ElseIf CSA = 5 And O = 3 Then
            CmdJVV_C()
        End If
        If CSA = 7 And O = 0 Then
            CmdJJ_C()
        ElseIf CSA = 7 And O = 1 Then
            CmdVert_C()
        ElseIf CSA = 7 And O = 2 Then
            CmdJVH_C()
        ElseIf CSA = 7 And O = 3 Then
            CmdJVV_C()
        End If
    End Sub
 
    Public Sub CmdSPK_C(CMR As Integer)
        If CMR = 1 Then
            CmdB_C()
        End If
    End Sub
 
#End Region
 
#Region "CHIFFRE BLANC"
 
    Public Sub cmdCB_C(CHIFFRE As UInteger)
        If CHIFFRE = 0 Or CHIFFRE = 1 Then
            Cmd1B_C()
        End If
        If CHIFFRE = 0 Or CHIFFRE = 2 Then
            Cmd2B_C()
        End If
        If CHIFFRE = 0 Or CHIFFRE = 3 Then
            Cmd3B_C()
        End If
        If CHIFFRE = 0 Or CHIFFRE = 4 Then
            Cmd4B_C()
        End If
        If CHIFFRE = 0 Or CHIFFRE = 5 Then
            Cmd5B_C()
        End If
        If CHIFFRE = 0 Or CHIFFRE = 6 Then
            Cmd6B_C()
        End If
        If CHIFFRE = 0 Or CHIFFRE = 7 Then
            Cmd7B_C()
        End If
        If CHIFFRE = 0 Or CHIFFRE = 8 Then
            Cmd8B_C()
        End If
        If CHIFFRE = 0 Or CHIFFRE = 9 Then
            Cmd9B_C()
        End If
 
    End Sub
 
    Public Sub Cmd1B_C()
 
        If NCBC = False Then
            CB1_C.Visible = False
            CB2_C.Visible = False
            CB3_C.Visible = False
            CB4_C.Visible = True
            CB5_C.Visible = False
            CB6_C.Visible = True
            CB7_C.Visible = False
        ElseIf NCBC = True Then
            CB1_C.Visible = False
            CB2_C.Visible = False
            CB3_C.Visible = False
            CB4_C.Visible = False
            CB5_C.Visible = False
            CB6_C.Visible = False
            CB7_C.Visible = False
        End If
    End Sub
 
    Public Sub Cmd2B_C()
 
        If NCBC = False Then
            CB1_C.Visible = True
            CB2_C.Visible = True
            CB3_C.Visible = True
            CB4_C.Visible = True
            CB5_C.Visible = False
            CB6_C.Visible = False
            CB7_C.Visible = True
        ElseIf NCBC = True Then
            CB1_C.Visible = False
            CB2_C.Visible = False
            CB3_C.Visible = False
            CB4_C.Visible = False
            CB5_C.Visible = False
            CB6_C.Visible = False
            CB7_C.Visible = False
        End If
    End Sub
 
    Public Sub Cmd3B_C()
 
        If NCBC = False Then
            CB1_C.Visible = True
            CB2_C.Visible = True
            CB3_C.Visible = True
            CB4_C.Visible = True
            CB5_C.Visible = False
            CB6_C.Visible = True
            CB7_C.Visible = False
        ElseIf NCBC = True Then
            CB1_C.Visible = False
            CB2_C.Visible = False
            CB3_C.Visible = False
            CB4_C.Visible = False
            CB5_C.Visible = False
            CB6_C.Visible = False
            CB7_C.Visible = False
        End If
    End Sub
 
    Public Sub Cmd4B_C()
 
        If NCBC = False Then
            CB1_C.Visible = False
            CB2_C.Visible = True
            CB3_C.Visible = False
            CB4_C.Visible = True
            CB5_C.Visible = True
            CB6_C.Visible = True
            CB7_C.Visible = False
        ElseIf NCBC = True Then
            CB1_C.Visible = False
            CB2_C.Visible = False
            CB3_C.Visible = False
            CB4_C.Visible = False
            CB5_C.Visible = False
            CB6_C.Visible = False
            CB7_C.Visible = False
        End If
    End Sub
 
    Public Sub Cmd5B_C()
 
        If NCBC = False Then
            CB1_C.Visible = True
            CB2_C.Visible = True
            CB3_C.Visible = True
            CB4_C.Visible = False
            CB5_C.Visible = True
            CB6_C.Visible = True
            CB7_C.Visible = False
        ElseIf NCBC = True Then
            CB1_C.Visible = False
            CB2_C.Visible = False
            CB3_C.Visible = False
            CB4_C.Visible = False
            CB5_C.Visible = False
            CB6_C.Visible = False
            CB7_C.Visible = False
        End If
    End Sub
 
    Public Sub Cmd6B_C()
        If NCBC = False Then
            CB1_C.Visible = True
            CB2_C.Visible = True
            CB3_C.Visible = True
            CB4_C.Visible = False
            CB5_C.Visible = True
            CB6_C.Visible = True
            CB7_C.Visible = True
        ElseIf NCBC = True Then
            CB1_C.Visible = False
            CB2_C.Visible = False
            CB3_C.Visible = False
            CB4_C.Visible = False
            CB5_C.Visible = False
            CB6_C.Visible = False
            CB7_C.Visible = False
        End If
    End Sub
 
    Public Sub Cmd7B_C()
 
        If NCBC = False Then
            CB1_C.Visible = True
            CB2_C.Visible = False
            CB3_C.Visible = False
            CB4_C.Visible = True
            CB5_C.Visible = False
            CB6_C.Visible = True
            CB7_C.Visible = False
        ElseIf NCBC = True Then
            CB1_C.Visible = False
            CB2_C.Visible = False
            CB3_C.Visible = False
            CB4_C.Visible = False
            CB5_C.Visible = False
            CB6_C.Visible = False
            CB7_C.Visible = False
        End If
    End Sub
 
    Public Sub Cmd8B_C()
 
        If NCBC = False Then
            CB1_C.Visible = True
            CB2_C.Visible = True
            CB3_C.Visible = True
            CB4_C.Visible = True
            CB5_C.Visible = True
            CB6_C.Visible = True
            CB7_C.Visible = True
        ElseIf NCBC = True Then
            CB1_C.Visible = False
            CB2_C.Visible = False
            CB3_C.Visible = False
            CB4_C.Visible = False
            CB5_C.Visible = False
            CB6_C.Visible = False
            CB7_C.Visible = False
        End If
    End Sub
 
    Public Sub Cmd9B_C()
 
        If NCBC = False Then
            CB1_C.Visible = True
            CB2_C.Visible = True
            CB3_C.Visible = True
            CB4_C.Visible = True
            CB5_C.Visible = False
            CB6_C.Visible = True
            CB7_C.Visible = True
        ElseIf NCBC = True Then
            CB1_C.Visible = False
            CB2_C.Visible = False
            CB3_C.Visible = False
            CB4_C.Visible = False
            CB5_C.Visible = False
            CB6_C.Visible = False
            CB7_C.Visible = False
        End If
    End Sub
#End Region
 
#Region "ASPECT"
 
    Public Sub CmdR_C()
 
        NUC = False
        NVC = False
        NCBC = False
        CmdV_C()
        CmdU_C()
        cmdCB_C(0)
        LR_C.Visible = True
        LV_C.Visible = False
        LJV_C.Visible = False
        LJH_C.Visible = False
        LB_C.Visible = False
 
 
    End Sub
 
    Public Sub CmdJJ_C()
        LR_C.Visible = False
        LV_C.Visible = False
        LJH_C.Visible = True
        LJV_C.Visible = True
        LB_C.Visible = False
 
    End Sub
 
    Public Sub CmdB_C()
        LR_C.Visible = True
        LV_C.Visible = False
        LJH_C.Visible = False
        LJV_C.Visible = False
        LB_C.Visible = True
    End Sub
 
    Public Sub CmdVert_C()
        LR_C.Visible = False
        LV_C.Visible = True
        LJH_C.Visible = False
        LJV_C.Visible = False
        LB_C.Visible = False
    End Sub
 
    Public Sub CmdJVV_C()
        LR_C.Visible = False
        LV_C.Visible = True
        LJH_C.Visible = False
        LJV_C.Visible = True
        LB_C.Visible = False
    End Sub
 
    Public Sub CmdJVH_C()
        LR_C.Visible = False
        LV_C.Visible = True
        LJH_C.Visible = True
        LJV_C.Visible = False
        LB_C.Visible = False
    End Sub
#End Region
 
#Region "CHEVRON - Impasse"
 
    Sub CmdV_C()
        If NVC = False Then
            V1_C.Visible = True
            V2_C.Visible = True
        ElseIf NVC = True Then
            V1_C.Visible = False
            V2_C.Visible = False
        End If
    End Sub
    Sub CmdU_C()
        If NUC = False Then
            U1_C.Visible = True
            U2_C.Visible = True
            U3_C.Visible = True
        ElseIf NUC = True Then
            U1_C.Visible = False
            U2_C.Visible = False
            U3_C.Visible = False
        End If
    End Sub
#End Region
 
End Class

Ce qui doit clignoter se trouve dans la partie aspect.

La couleur reste fixe et je joue sur le fait de rendre visible ce qu'il doit être.

ceci devrai éclairer plus.

Merci.

**radio7501** · 20/05/2014, 22h24

Je viens d'adapter ta solution et cela fonctionne.

il me reste un peut d'adaptation à faire pour le passage aux autres combinaisons.

Merci.

Clignotement de voyant. [Débutant]

VB.NET

Vue hybride

Discussions similaires

Partager

Partager