Discussion :

[dureiken]

Bonjour, je voudrai savoir si c'etait possible d'executer un timer qu'une seule fois.
Puisque quand je fait form1.timer1.enabled = true il s'execute indéfiniment.
j'ai donc mis un form1.timer1.enabled = false juste apres mais du coup l'action du timer ne s'execute plus.

Merci

[ThierryAIM]

j'ai donc mis un form1.timer1.enabled = false juste apres...

juste après quoi ?

dans l'événement Timer ?

[leroissejp]

Bonjour,
Voici un exemple d'utilisation du contrôle Timer (ici pour décrémenter un compteur.)

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
 
 Dim cpt As Integer
 
Private Sub Form_Load()
cpt = 10
Label1.Caption = cpt
Timer1.Interval = 1000   'L'interval est en millisecondes
End Sub
 
Private Sub Timer1_Timer()
cpt = cpt - 1
Label1.Caption = cpt
If cpt = 0 Then
   Timer1.Interval = 0
   Label1.Caption = "Go"
End If
End Sub

jpleroisse

[dureiken]

j'ai fait ca :
Code : VB

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
Public Function monter()
 
ascenseur.Top = ascenseur.Top - 10
ascenseur.Show
batiment.Timer1.Enabled = False
 
End Function
 
Public Function monter2()
 
For i = 1 To 500
ascenseur.Show
batiment.Timer1.Enabled = True
Next i
 
 
End Function

et dans batiment ( ma premiere form )
Code : VB

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Command1_Click()
functions.monter2
 
End Sub
 
 
Private Sub Timer1_Timer()
functions.monter
 
End Sub

mais quand je fais ca l'ascenseur ne monte qu'une fois

[Balises de code rajoutées par Thierry AIM, Merci d'y penser la prochaine fois]

[dureiken]

en fait j'ai fait un timer qui toutes les .1 seconde fait monter ma fenetre, en meme temps un 2eme timer qui s'active 5 secondes plus tard fait un timer1.enabled = false.

ca marche mais des fois la fenetre monte de 3cm on va dire, des fois 5, je comprends pas.

[leroissejp]

Bonjour,
Ton ascenseur, c'est une Form?? (ascenseur.Show)
A quoi sert ta boucle For i = 1 to 500 ??

jpleroisse

[Bigyork]

Peut être en désactivant puis réactivant tes timer à chaque éxécution parce qu'avec des temps d'intervalle si court VB doit s'emméler un peu.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Timer1_Timer()
    Timer1.Enabled = False
    Form1.Top = Form1.Top - 20
    Timer1.Enabled = True
End Sub
 
Private Sub Timer2_Timer()
    Timer2.Enabled = False
    Timer1.Enabled = IIf(Timer1.Enabled, False, True)
    Timer2.Enabled = True
End Sub

Enfin bon moi c'est une habitude que j'ai pris.

[dureiken]

Bigyork => ca fait toujours pareil, ca monte pas toujours de la meme hauteur

jp => la boucle c"etait pour le faire monter 500 fois de la petite distance 10

[SfJ5Rpw8]

Bigyork => ca fait toujours pareil, ca monte pas toujours de la meme hauteur

jp => la boucle c"etait pour le faire monter 500 fois de la petite distance 10

C’est normal ta boucle de 500 fois elle ne fait pas grand chose... elle demande d'afficher 500 fois de suite l'ascenseur tout en mettant à 1 le timer... mais.. l'ascenseur à tous juste le temps de s'afficher une fois que la boucle s'est exécutée 500 fois il n'y a rien qui l'arrête... essai ::

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
 
dim i As integer
Public Function monter() 
 
ascenseur.Top = ascenseur.Top - 10 
ascenseur.Show 
batiment.Timer1.Enabled = (i > 0) 'Rappel du timer si i >0
i=i-1
 
End Function 
 
Public Function monter2() 
 
ascenseur.Show 
batiment.Timer1.Enabled = True 
i = 500 'initialise le compteur à 500
 
End Function

[leroissejp]

Bonjour,
Ce code fait monter et descendre ta Form pendant 10 secondes.
Dans ta Form Batiment.

Code :

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

1
2
3
4
5
 
Private Sub Command1_Click()
ascenseur.Top = 10
ascenseur.Show
End Sub

Dans ta Form ascenseur.

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
 
Option Explicit
Dim cpt As Integer
Private Sub Form_Load()
cpt = 10
Me.Top = 10
Timer1.Interval = 1000
End Sub
 
Private Sub Timer1_Timer()
cpt = cpt - 1
If Me.Top = 10 Then
    Me.Top = 3000
Else
    Me.Top = 10
End If
If cpt = 0 Then
Timer1.Interval = 0
End If
End Sub

jpleroisse

[dureiken]

ok merci bbil ta solution marche nickel
merci jp aussi