Progressebar et pourcentage comme dans une installation

Télécharger le projet
Commenter

Description

c'est comme une installation ,sauf que la source est axé sur la progression ... on y trouve :

- comment faire progréesser la progessbar
- et surtout comment faire un pourcentage du travaille acomplie ...

téléchargé le zip c'est plus simple mais si vous etés plus tot copier / collé il vous faut une form
1 boutton
1 progressbar
et 3 timer

Source / Exemple : 


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 projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (fkiller001)