Discussion :

[Lucas42]

Bonjour , j'aimerai savoir s'il existe un autre code pour faire clignoter une image ?
Voici mon code pour le clignotement grace à un timer et un select case

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Timer2_Timer()    ' Timer pour le CLIGNOTEMENT des Images
    clignotement = clignotement + 1
    Select Case clignotement
        Case 0
            Image1(index).Visible = True
        Case 1
            Image1(index).Visible = False
    End Select
    clignotement = 0
End Sub

merci d'avance
amicalement lucas

[Asdorve]

cette méthode te va pas?

[jmfmarques]

Je suppose que clignotement est une variable globale
ton code est bon, sauf que tu gagnerais à utiliser une valeur booleenne plustôt que 1 et 0, peut-être .
ou encore jouer avec une valeur 1 et ensuite : clignotement = - clignotement

[riesseg]

y'a mieux, tu ne fais pas appelle a un booleen.

tu met ton timer a 101 ( au lieu de 100, adapte aec ta valeur)

Code :

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

1
2
3
4
5
 if Mod(timer.Value, 2) Then
visible = true
else
visible =false
end if

mod(A, X) est un modulo.
resentement, il sert a savoir si timer.value est pair ou impaire (donne 0 si pair, 1 si impaire) et donc toutes les 101ms, il changera de parité.
donc ton image sera visible ou non :p

mais je suis pas sur du timer.value

[AdHoc]

Bonjour,
plus court

Code :

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

1
2
3
Private Sub Timer2_Timer()' Timer pour le CLIGNOTEMENT des Images
  Image1(index).Visible = not(Image1(index).Visible)
End Sub

[Lucas42]

Adhoc , ton code fonctionne si tu desire faire clignoter UNE image .
Dans mon cas ca irais presque , mis a par que lorsque mon index change de valeur ( cad qu'une autre image est demandée ) , limage precedente reste visible ....

mais c un bout de code à garder

[Lucas42]

Baste ca , un autre soucis , c'est dans le mm esprit que le clignotement , dans le sens ou je ve faire apparaitre une form , 10s aprés l'apparision d'une Image , le soucis est :

Mon timer est reglé à 150ms , or comme je veux afficher ma form 10s plus tard , ca donne 10 000 / 150 = 66 .

G donc créé une variable nommée msg_defaut , et qui s'incremente à chaque tour de timer , et chrono en main , ma form s'affiche au bout de 5s

1 interval correspond bien au tps mi par le timer pour réaliser l'intégralité des lignes de codes contenue dans la fonction Timer

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
Private Sub Timer2_Timer()                              ' Timer pour le CLIGNOTEMENT des Images
    clignotement = clignotement + 1
    msg_defaut = msg_defaut + 1
    Select Case clignotement
        Case 0
            Image1(index).Visible = True
        Case 1
            Image1(index).Visible = False
    End Select
    clignotement = 0
    msg_defaut = msg_defaut + 1
    If msg_defaut = 66 Then                               ' normalement compte 10s
        msg_defaut = 0
        Warning.Show
    End If
End Sub

[jmfmarques]

je ne vois qu'une explication : ta variable globale msg_defaut a une valeur autre que 0 au lancement de ton timer
Tu dois pouvoir en vérifier la valeur par un msgbox juste avant le lancement du timer !
profites-en pour faire, au même moment, un msgbox de l'interval du timer (on ne sait jamais) !

[Lucas42]

en effet JMFMARQUES , la variable msg_defaut , ne commence pas à 0 , mais à 2-4 , donc c pas a cause de ca que ca divise mon tps par 2 . jai donc mi 124 au lieu de 66 , et mes 10s sont respectés
aller comprendre pk

[Lucas42]

Bon aller ttlm merci pour vos precision , et encore bcp d'interrogation à propos de cette histoire d'interval ....

merci à tous