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