Pourcentage
Description
ce code calcule un pourcentage comme mon dernier
sauf que c'est le code est plus simple ....
voila c'est tout
sauf que c'est le code est plus simple ....
Source / Exemple :
Dim total ' pourcentage Dim vic 'pourcentage Dim pourcent 'pourcentage / affichage Private Sub Command1_Click() total = Combo1 ' total des match jouer vic = Combo2 ' total des victoires '=============== pourcent = total / vic 'on divise le nombre total de match par le nombre de victoires pourcent = 100 / pourcent 'on divise le nombre précedament obtenu par 100 Label2.Caption = pourcent 'et on l'affiche '=============== Form1.Height = 2715 'pour agrandir la fenetre End Sub Private Sub Command2_Click() End ' pour quiter End Sub Private Sub Form_Load() Form1.Height = "2280" ' pour la taill de la fenetre End Sub 'et c'est tout ... 'c est simple non ? pour ceux qui n'ont pas compris envoyer moi un mail a 'fkyller@hotmail.com 'ou sur icq : 104358060 'et désoler pour les fautes d'ohrtographe (tien en voila un belle)
Conclusion :
voila c'est tout
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.