Course a pied

Soyez le premier à donner votre avis sur cette source.

Vue 5 767 fois - Téléchargée 603 fois

Description

Ce programme permet d'enregistrer au jour le jour vos perfomance en course a pied.

MAJ : avec enregistrement des courbesous pouvez avec enregistrer fes courbes maintenant

Source / Exemple :


'fonction pour tracer le graph

Public Function gfx(pic As PictureBox, liste As ListBox, Max As Double, Moy As Double, lbl As Label)
Dim lx As Double
Dim ly As Double
Dim i As Integer
i = 0
lx = (pic.Width / liste.ListCount)
ly = pic.Height / Max
Dim px2 As Double
Dim py2 As Double

'la moyenne
    pic.DrawWidth = 4
    pic.Line (0, pic.Height - (ly * (Moy / liste.ListCount)))-(pic.Width, pic.Height - (ly * (Moy / liste.ListCount))), vbGreen
    lbl.Caption = Format(Moy / liste.ListCount, "##.000")
    lbl.Left = pic.Width - lbl.Width - 50
    lbl.Top = pic.Height - (ly * (Moy / liste.ListCount)) - lbl.Height - 10
    
While i < liste.ListCount
    DoEvents
    Dim px As Double
    Dim py As Double
    px = lx * i - 1
    py = pic.Height - (ly * Val(liste.List(i)))
    'ligne
    pic.DrawWidth = 2
    If i <> 1 Then
        pic.Line (px, py)-(px2, py2), vbBlue
    Else
        pic.Line (px, py)-(px - lx, pic.Height - (ly * Val(liste.List(i - 1)))), vbBlue
    End If
    
    If i <> 0 Then
        px2 = px
        py2 = py
    End If
    '#####
    pic.DrawWidth = 8
    pic.PSet (px, py), vbRed
    i = i + 1
Wend

End Function

Conclusion :


Desolé je n'ai pas eu le temps de commenter la source.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

sunshune
Messages postés
14
Date d'inscription
jeudi 13 mars 2003
Statut
Membre
Dernière intervention
25 février 2006
-
salut a toi!

pas mal pour cette source.
mais j'aimerais savoir quel est vraiment son utilité? merci de me le dire

@+ Sunshune
cs_NeoCortex
Messages postés
48
Date d'inscription
dimanche 17 juin 2001
Statut
Membre
Dernière intervention
11 décembre 2008
-
Alors Sunshune, tu veux connaitre l'utilité de cette source !!!
Eh bien en faite j'ai fais ce prog pour mon frere, il voulais pouvoir visualiser l'evolution de ses performances, alors je lui est fait !! Sinon je pense qu'il faut etre coureur pour en comprendre le réel interré et utilité de ce prog.

Bonne prog

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.