begin process at 2010 03 21 18:39:27
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Divers

 > PROGRESSEBAR ET POURCENTAGE COMME DANS UNE INSTALLATION

PROGRESSEBAR ET POURCENTAGE COMME DANS UNE INSTALLATION


 Information sur la source

Note :
9 / 10 - par 1 personne
9,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Divers Classé sous :progessbar, pourcentage, calcul Niveau :Initié Date de création :03/04/2001 Vu / téléchargé :5 485 / 694

Auteur : fkiller001

Ecrire un message privé
Commentaire sur cette source (1)
Ajouter un commentaire et/ou une note

 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

  • 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
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
 


 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip


 Sources du même auteur

Source avec Zip POURCENTAGE
Source avec Zip GRAVITÉ (SUR UN BALLE)

 Sources de la même categorie

Source avec Zip LECTURE DXF, par pinatl
Source avec Zip Source .NET (Dotnet) GESTION DE RECETTES par DVDou
Source avec Zip Source avec une capture Source .NET (Dotnet) SYSTEMBACKUP.VB par DVDou
Source avec Zip Source avec une capture DESKTOP WALLPAPER V 5.0 par shaeks
Source avec Zip Source avec une capture Source .NET (Dotnet) SPACE - UN SPACE MAC POUR WINDOWS par vbnino

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture CALCULE HEURES DE NUIT 2 par ocejade
Source .NET (Dotnet) OBTENIR L'HEURE DE DÉMARRAGE D'UN PC DISTANT EN SE CONNECTAN... par monpcmenerve
Source avec Zip CALCULS SUR DE GRANDS NOMBRES (PLUSIEURS MILLIERS DE CHIFFRE... par apexinfo
Source avec Zip Source avec une capture CALCULATEUR DE RÉSISTANCE par VBsearch
Source avec Zip POURCENTAGE par fkiller001

Commentaires et avis

Commentaire de Shamix le 26/06/2008 17:07:02

C'est genial ! Bon boulot !

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Calcul en pourcentage [ par Rockit ] Salut a tous ,Je voudrais savoir si il exite sous VB un operateur perméttant de calculer le pourcentage d'un nombre.EXEMPLE1000 * 1000 - 10 %(mon prob calcul d'un pourcentage [ par wnico ] J'utilise une base access avec dans le Form: 1er label : montant 2e label : pourcentage Et je veux obtenir dans un 3e label le résultat. Quel est le formules mathématiques pour le calcul de la précision [ par katyou83 ] Bonjour,SVP pourriez vous m'aider à formuler la précision dans le domaine de matching;merci d'avance Problème de macro - calcul en fonction d'une variable [ par FlyingAlex ] Amis du jour bonjour!Alors tout d'abord j'ai un petit souci.J'ai créé sous Excel une combobox qui prend des valeurs suivant une liste dans une autre f Guide de conception et de calcul des silos industriels [ par siemenschkl ] je besoin de livre Guide de conception et de calcul des silos industriels Application de calcul de TVA au maroc avec VB2005 [ par etarik87 ] bsr mes freres les developpeurs je suis un etudiant dans une ecole d'informatique appliquée a la gestion on a fait de la programmation c'est juste une calcul des dates [ par meorme ] salut tous, pendant la realisation de mon PFE (sujet: gestion des projets informatiques)j'ai rencontré un probleme qui est le suivant: je dois calcule fonctions de calcul statistique [ par charlie1979 ] bonjour tout le monde, je travaille actuellement sur un projet (en VB.NET 2008) et j'aurai besoin d'un ensemble de fonctions de calcul statistique (o calcul des objectifs [ par serdine ] Salut tout le monde,en faite je débute sur VB6 et j'éssai de faire une application qui calcul automatiquement les objectifs des ventes en quantités, j ACCESS requete pourcentage [ par pio_killer ] Bonjour, j'ai un petit problème sur lequel je penche depuis un moment. j'ai une table Synthèse dans laquelle je retrouve un champ ValeurA,ValeurB


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Mars 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
293031    

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,562 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales