Bonjour,
J'ai défini cinq procédures dans mon programme :
cmdDessinFeu_Click
cmdEffacerFeu_Click
cmdVert_Click
cmdOrange_Click
cmdRouge_Click
Les procédures Rouge, Vert, Orange dessinent juste un rond colorié.
Je souhaiterais, grâce au contrôle Timer, définir ces procédures avec un
intervalle de temps de 3
secondes, 0.5 secondes et 3 secondes.
Ce contrôle Timer devrait faire une boucle de cinq itérations (cinq fois les
trois feux).
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Youky
Salut J-M j'ai fait 1 controle picture 1 timer à interval de 100 et 1 bouton sur ma feuille, voici le code à adapter Bruno
Dim zz As Integer Dim quit As Integer
Private Sub Command1_Click() Timer1.Enabled = True zz = 0: quit = 0 End Sub
Private Sub Timer1_Timer() zz = zz + 1 If zz = 1 Then Picture1.BackColor = &HC000& If zz = 25 Then Picture1.BackColor = &H80FF& If zz = 35 Then Picture1.BackColor = &HFF& zz = -24 quit = quit + 1 End If If quit = 5 Then Timer1.Enabled = False End Sub
"imej-clavier" a écrit dans le message news: #ChHqT8#
Bonjour, J'ai défini cinq procédures dans mon programme : cmdDessinFeu_Click cmdEffacerFeu_Click cmdVert_Click cmdOrange_Click cmdRouge_Click Les procédures Rouge, Vert, Orange dessinent juste un rond colorié. Je souhaiterais, grâce au contrôle Timer, définir ces procédures avec un intervalle de temps de 3 secondes, 0.5 secondes et 3 secondes. Ce contrôle Timer devrait faire une boucle de cinq itérations (cinq fois
les
trois feux).
Quelqu'un a t-il une idée sur comment faire?
D'avance merci,
Jean-michel
Salut J-M
j'ai fait
1 controle picture
1 timer à interval de 100
et 1 bouton sur ma feuille, voici le code à adapter
Bruno
Dim zz As Integer
Dim quit As Integer
Private Sub Command1_Click()
Timer1.Enabled = True
zz = 0: quit = 0
End Sub
Private Sub Timer1_Timer()
zz = zz + 1
If zz = 1 Then Picture1.BackColor = &HC000&
If zz = 25 Then Picture1.BackColor = &H80FF&
If zz = 35 Then
Picture1.BackColor = &HFF&
zz = -24
quit = quit + 1
End If
If quit = 5 Then Timer1.Enabled = False
End Sub
"imej-clavier" <imej-clavier@wanadoo.fr> a écrit dans le message news:
#ChHqT8#EHA.792@TK2MSFTNGP11.phx.gbl...
Bonjour,
J'ai défini cinq procédures dans mon programme :
cmdDessinFeu_Click
cmdEffacerFeu_Click
cmdVert_Click
cmdOrange_Click
cmdRouge_Click
Les procédures Rouge, Vert, Orange dessinent juste un rond colorié.
Je souhaiterais, grâce au contrôle Timer, définir ces procédures avec un
intervalle de temps de 3
secondes, 0.5 secondes et 3 secondes.
Ce contrôle Timer devrait faire une boucle de cinq itérations (cinq fois
Salut J-M j'ai fait 1 controle picture 1 timer à interval de 100 et 1 bouton sur ma feuille, voici le code à adapter Bruno
Dim zz As Integer Dim quit As Integer
Private Sub Command1_Click() Timer1.Enabled = True zz = 0: quit = 0 End Sub
Private Sub Timer1_Timer() zz = zz + 1 If zz = 1 Then Picture1.BackColor = &HC000& If zz = 25 Then Picture1.BackColor = &H80FF& If zz = 35 Then Picture1.BackColor = &HFF& zz = -24 quit = quit + 1 End If If quit = 5 Then Timer1.Enabled = False End Sub
"imej-clavier" a écrit dans le message news: #ChHqT8#
Bonjour, J'ai défini cinq procédures dans mon programme : cmdDessinFeu_Click cmdEffacerFeu_Click cmdVert_Click cmdOrange_Click cmdRouge_Click Les procédures Rouge, Vert, Orange dessinent juste un rond colorié. Je souhaiterais, grâce au contrôle Timer, définir ces procédures avec un intervalle de temps de 3 secondes, 0.5 secondes et 3 secondes. Ce contrôle Timer devrait faire une boucle de cinq itérations (cinq fois
les
trois feux).
Quelqu'un a t-il une idée sur comment faire?
D'avance merci,
Jean-michel
LE TROLL
Bonjour, Salut, voici, si ça coince, reposte, je n'ai pas testé :o) ' dim temps as byte ' variable globale du timer1 ' sub commande_feu Timer1.Interval = 500 ' 0,5s temps = 0 ' initialisation de la variable globale Timer1.Enabled = True ' lancement du timer end sub ' Sub Timer1_Timer() temps = temps + 1 ' = 1/2 seconde if temps < 7 then affiche_couleur_1 if temps = 7 then affiche_couleur_2 if temps > 7 and temps < 13 then affiche_couleur_3 if temps >13 then timer1.enabledúlse End Sud ------------
"imej-clavier" a écrit dans le message de news: %23ChHqT8%
Bonjour, J'ai défini cinq procédures dans mon programme : cmdDessinFeu_Click cmdEffacerFeu_Click cmdVert_Click cmdOrange_Click cmdRouge_Click Les procédures Rouge, Vert, Orange dessinent juste un rond colorié. Je souhaiterais, grâce au contrôle Timer, définir ces procédures avec un intervalle de temps de 3 secondes, 0.5 secondes et 3 secondes. Ce contrôle Timer devrait faire une boucle de cinq itérations (cinq fois les trois feux).
Quelqu'un a t-il une idée sur comment faire?
D'avance merci,
Jean-michel
Bonjour,
Salut, voici, si ça coince, reposte, je n'ai pas testé :o)
'
dim temps as byte ' variable globale du timer1
'
sub commande_feu
Timer1.Interval = 500 ' 0,5s
temps = 0 ' initialisation de la variable globale
Timer1.Enabled = True ' lancement du timer
end sub
'
Sub Timer1_Timer()
temps = temps + 1 ' = 1/2 seconde
if temps < 7 then affiche_couleur_1
if temps = 7 then affiche_couleur_2
if temps > 7 and temps < 13 then affiche_couleur_3
if temps >13 then timer1.enabledúlse
End Sud
------------
"imej-clavier" <imej-clavier@wanadoo.fr> a écrit dans le message de news:
%23ChHqT8%23EHA.792@TK2MSFTNGP11.phx.gbl...
Bonjour,
J'ai défini cinq procédures dans mon programme :
cmdDessinFeu_Click
cmdEffacerFeu_Click
cmdVert_Click
cmdOrange_Click
cmdRouge_Click
Les procédures Rouge, Vert, Orange dessinent juste un rond colorié.
Je souhaiterais, grâce au contrôle Timer, définir ces procédures avec un
intervalle de temps de 3
secondes, 0.5 secondes et 3 secondes.
Ce contrôle Timer devrait faire une boucle de cinq itérations (cinq fois
les
trois feux).
Bonjour, Salut, voici, si ça coince, reposte, je n'ai pas testé :o) ' dim temps as byte ' variable globale du timer1 ' sub commande_feu Timer1.Interval = 500 ' 0,5s temps = 0 ' initialisation de la variable globale Timer1.Enabled = True ' lancement du timer end sub ' Sub Timer1_Timer() temps = temps + 1 ' = 1/2 seconde if temps < 7 then affiche_couleur_1 if temps = 7 then affiche_couleur_2 if temps > 7 and temps < 13 then affiche_couleur_3 if temps >13 then timer1.enabledúlse End Sud ------------
"imej-clavier" a écrit dans le message de news: %23ChHqT8%
Bonjour, J'ai défini cinq procédures dans mon programme : cmdDessinFeu_Click cmdEffacerFeu_Click cmdVert_Click cmdOrange_Click cmdRouge_Click Les procédures Rouge, Vert, Orange dessinent juste un rond colorié. Je souhaiterais, grâce au contrôle Timer, définir ces procédures avec un intervalle de temps de 3 secondes, 0.5 secondes et 3 secondes. Ce contrôle Timer devrait faire une boucle de cinq itérations (cinq fois les trois feux).
