POURCENTAGE

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)

Télécharger le zip