Vo2MAX program - hjælp

kan du ikke beskrive hvad der ikke virker?
- i hvilket format ligger det? .ace ?

- Webie..

Du ved vel hvordan man udregner det (ellers ville du vel ikke lave programmet..) :)

Maksimal O2-optagelse i ml/min pr. kg

- venter på svar... ;-)

Der står kun følgende i koden:

Private Sub distance_label_Click()

End Sub

Private Sub Label2_Click()

End Sub

Er du sikker på at du har pakket den rigtige version?

Hmm sorry jeg har sendt den fokert file.
Jeg har fundet ud af det , har fået hjælpe på IRCnet.

Sådan ser coden ud, hvis det er nogen som kunne godt tænk sig at bruge det.
Min personelig Vo2MAX er 82.14 %
på 5Km distance :)

Private Sub cmd_calculate_Click()
    Dim V As Double
    Dim RTime As Double
    Dim PercentMax As Double
    Dim Vo2 As Double
    RTime = (rhours * 60) + rminutes + (CDbl(rseconds) / 60)
    V = (rdistance * 1000) / RTime
    percent_max = 0.8 + (0.1894393 * Exp(-0.012778 * RTime)) + (0.2989558 * Exp(-0.1932605 * RTime))
    Vo2 = -4.6 + (0.182258 * V) + (0.000104 * V * V)
    result.Text = Vo2 / percent_max
End Sub

Hilsen
Alexandre

Points til mig , sorry :)