Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Sub calculation()
- Dim totalcounter As Integer = 0
- Dim runcounter As Integer = 0
- Dim cyclecounter As Integer = 0
- Dim swimcounter As Integer = 0
- Dim count As Integer = 0
- Dim totalaverage As Double
- Dim runav As Double
- Dim swimav As Double
- Dim cycleav As Double
- Do Until totalcounter = UBound(allrunners) + 1
- FileOpen(1, PATHrunsessionlog, OpenMode.Random, , , Len(onerun))
- Do Until EOF(1)
- FileGet(1, onerun, runcounter + 1)
- If onerun.username = allrunners(totalcounter, 0) Then
- ReDim Preserve runningaverage(count)
- runningaverage(count).DoubleAVspeed = onerun.DoubleAVspeed
- runcounter = runcounter + 1
- count = count + 1
- Else
- runcounter = runcounter + 1
- End If
- Loop
- FileClose(1)
- For count = 0 To UBound(runningaverage)
- runav = runav + runningaverage(count).DoubleAVspeed
- Next
- runav = runav / (UBound(runningaverage) + 1)
- count = 0
- FileOpen(1, swimmingsessionfilepath, OpenMode.Random, , , Len(oneswim))
- Do Until EOF(1)
- FileGet(1, oneswim, swimcounter + 1)
- If oneswim.username = allrunners(totalcounter, 0) Then
- ReDim Preserve swimaverage(count)
- swimaverage(count).Avspeed = oneswim.Avspeed
- swimcounter = swimcounter + 1
- count = count + 1
- Else
- swimcounter = swimcounter + 1
- End If
- Loop
- FileClose(1)
- For count = 0 To UBound(swimaverage)
- swimav = swimav + swimaverage(count).Avspeed
- Next
- swimav = swimav / (UBound(swimaverage) + 1)
- count = 0
- FileOpen(1, PATHcyclelog, OpenMode.Random, , , Len(onecycle))
- Do Until EOF(1)
- FileGet(1, onecycle, cyclecounter + 1)
- If onecycle.username = allrunners(totalcounter, 0) Then
- ReDim Preserve cycleaverage(count)
- cycleaverage(count).DoubleAVspeed = onecycle.DoubleAVspeed
- cyclecounter = cyclecounter + 1
- count = count + 1
- Else
- cyclecounter = cyclecounter + 1
- End If
- Loop
- FileClose(1)
- For count = 0 To UBound(cycleaverage)
- cycleav = cycleav + swimaverage(count).Avspeed
- Next
- cycleav = cycleav / (UBound(cycleaverage) + 1)
- totalaverage = (cycleav + runav + swimav) / 3
- allrunners(totalcounter, 1) = totalaverage
- count = 0
- swimav = 0
- cycleav = 0
- runav = 0
- runcounter = 0
- swimcounter = 0
- cyclecounter = 0
- ReDim cycleaverage(count)
- ReDim runningaverage(count)
- ReDim swimaverage(count)
- totalcounter = totalcounter + 1
- Loop
- ReDim allavspeed(totalcounter, 1)
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement