remplir progressb à partir d'un timer

Version imprimable

03/03/2008, 20h41
demando77

remplir progressb à partir d'un timer

Slt, j'ai besoin d'un code pour faire remplir en progressbar pgb à partir d'un timer t en l'intervalle de 59 secondes.

Merci d'avance

TM018
03/03/2008, 20h50
ucfoutu

Bonsoir,

"avancer" de combien et par rapport à quel avancement de quelle tâche ?

Si ta question se résume à savoir comment faire avancer de n unités la valeur d'une progressbar :

Code:

Ta_progress_bar.value = Ta_progress_bar.value + n

et ce, toutes les 59 secondes (interval de ton contrôle timer).

Et ?
04/03/2008, 00h58
OhMonBato

Ou en es tu dans tes recherches ? As tu essayé d'écrire un peu de code ? As tu regardé l'aide de VB ?

Bon je vais un peu vous aider :
Donc j'ai ceci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Dim a As Long
 
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
 
Private Sub Form_Load()
Timer1.Enabled = False 'Timer n'est pas actif
Label1.Caption = 0
Timer1.Interval = 1000 '1000 = 1 sec
ProgressBar1.Min = 0
ProgressBar1.Max = 50
End Sub
 
Private Sub Timer1_Timer()
a = a + 1
Label1.Caption = a
 If a = 50 Then Timer1.Enabled = False 'quand a = 50 timer1 n'est plus actif car ProgressBar1.Max = 50
 ProgressBar1.Value = Label1.Caption '= a (ça marche aussi)
End Sub

Il contient donc : label1 , timer1, command1 et progressbar1

A toi de faire évoluer :)

05/03/2008, 02h31
zazaraignée

Il doit y avoir une propriété Value ou Position ou quelque chose s'y rapprochant à l'objet ProgressBar... En lui donnant la valeur de i, ça devrait marcher.
05/03/2008, 17h36
imparator_42

Oui tu as raison zazaraignée

mais j'ai préciser que proressbar et entre 0 et 50 (

Code:

progressbar1.min = 0

et

Code:

progressbar1.max= 50

)

et "a" ne devrait pas dépasser 50 et ne devrait pas descendre en dessous de 0 ..... sinon ça créer un problème....

avec mon code :
enfait tu peux mettre

Code:

progressbar.max=100

et

Code:

If a = 10 Then Timer1.Enabled = False

et puis tu règles ton intervalle :)
soit 1000 = 1 seconde :)

Bonsoir,

Un Timer n'est jamais précis (le faire battre 59 fois à 1 seconde ne vous donnera jamais 59 secondes en durée réelle...)

Il y a alors une façon de le forcer à être précis ...
La suivante :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Command2_Click()
  Timer1.Interval = 1000
  Timer1.Enabled = True
  ProgressBar1.Max = 59
  ProgressBar1.Min = 0
End Sub
 
Private Sub Timer1_Timer()
  Static depart As Date
  If depart = 0 Then depart = Time
  While Time < DateAdd("s", 59, depart)
    ProgressBar1.Value = ProgressBar1.Value + 1
    Exit Sub
  Wend
  Timer1.Enabled = False
  MsgBox "j'ai réellement duré " & DateDiff("s", depart, Time) & " secondes"
End Sub

05/03/2008, 18h22
imparator_42

oui ça marche mais logiquement 1000 = 1 sec ... et 59 battements d'intervalle 1000 donnerait 59 secondes... (enfin bref.. )
05/03/2008, 18h26
ucfoutu

Citation:

Envoyé par imparator_42

oui ça marche mais logiquement 1000 = 1 sec ... et 59 battements d'intervalle 1000 donnerait 59 secondes... (enfin bref.. )

logiquement ? oui ...

En réalité ? pas vraiment ...:lol:

Car il ne peut s'écouler exactement la durée de l'intervalle d'un timer entre 2 battements (il faut ajouter le temps dont à besoin le processeur de son côté ... pour calculer, pour afficher, etc...)
05/03/2008, 18h34
imparator_42

Citation:

Envoyé par ucfoutu

logiquement ? oui ...

En réalité ? pas vraiment ...:lol:

Car il ne peut s'écouler exactement la durée de l'intervalle d'un timer entre 2 battements (il faut ajouter le temps dont à besoin le processeur de son côté ... pour calculer, pour afficher, etc...)

Hahaha ouais je suis 100 % d'accord avec vous :)