Course a pied

Télécharger le projet
Commenter

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.
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 (cs_NeoCortex)