PROGRESSEBAR ET POURCENTAGE COMME DANS UNE INSTALLATION

Dim pour100 'poucentage
Dim bptaill 'poucentage
Dim addpour100 'poucentage
Dim bpvalue 'poucentage / progression
Dim anim ' animation


Private Sub Command1_Click()

Timer3.Interval = "1"
Timer1.Interval = "1"

'pour le pourcentage
'1/calucule
pour100 = "0"  'c'est le chiffre final affiché sur la form
bptaill = ProgressBar1.Width '
bpvalue = "30"
addpour100 = bptaill / bpvalue
addpour100 = 100 / addpour100

'je m'explique pour ceux qui ont pas compris
'pour avoir le pourcentage ont peux faire comme ça :
'en premier il faut diviser la taille total de la progressbar (Width) par la chose qui la fait progressée (ici une information virtuelle(bpvalue)
'on obtient un chiffre qu'il faut diviser par 100 (logique)
'et voila ont a le pourcentage ...
'cool non, si vous avez pas comprit (c'est vrai que je suis pas très clair contactez moi)

anim = 0 'c est pour faire bouger le stylo de haut en bas
End Sub

Private Sub Timer1_Timer()

ProgressBar1.Max = ProgressBar1.Width

' pour la Progressbar (pour la stoper)
If ProgressBar1.Value >= (ProgressBar1.Max - 80) Then 'fait stoper la PB, c'est tres artisanale mais sa marche alors si vous avez mieux envoyer moi un mail.
Timer2.Interval = "1"
Timer1.Interval = "0"
Else
ProgressBar1.Value = ProgressBar1.Value + (bpvalue)
End If


'pour le pourcentage
'2/affichage
pour100 = pour100 + addpour100
pour100 = pour100
Form1.Caption = CInt(pour100)   'pour arrondir


End Sub

Private Sub Timer2_Timer()

' pour la Progressbar (pour la stoper)
If ProgressBar1.Value <= (ProgressBar1.Min + 80) Then 'fait stoper la PB, c'est tres artisanale mais sa marche alors si vous avez mieux envoyer moi un mail.
Timer2.Interval = "0"
Timer3.Interval = "0"
MsgBox "Voila c'est tout. J'espére que sa te sera utile @+", vbDefaultButton1, "Fkiller"
End
Else
ProgressBar1.Value = ProgressBar1.Value - (bpvalue)
End If


'pour le pourcentage
'2/affichage
pour100 = pour100 - addpour100
pour100 = pour100
Form1.Caption = CInt(pour100)  'pour arrondir

End Sub

Private Sub Timer3_Timer()

' pour l'anim.
If Picture1.Left > "3900" Then
Picture1.Left = 3600
End If


' pour l'anim.
'1/ de droit a gauche
Picture1.Left = Picture1.Left + 8

'/2 de haut en bas
If anim = 0 Then
anim = 1
Else
anim = 0
End If

If anim = 0 Then
Picture1.Top = 120
Else
Picture1.Top = Picture1.Top + 9.8
End If

End Sub


'De Fkiller
'fkyller@hotmail.com (oui c'est c'est bien fkYller :)
'N° ICQ : 104358060
'et désoler pour les fautes d'ohrtographe
 

Télécharger le zip