Advertisement
Guest User

Untitled

a guest
Mar 27th, 2015
200
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 3.27 KB | None | 0 0
  1. Sub calculation()
  2. Dim totalcounter As Integer = 0
  3. Dim runcounter As Integer = 0
  4. Dim cyclecounter As Integer = 0
  5. Dim swimcounter As Integer = 0
  6. Dim count As Integer = 0
  7. Dim totalaverage As Double
  8. Dim runav As Double
  9. Dim swimav As Double
  10. Dim cycleav As Double
  11. Do Until totalcounter = UBound(allrunners) + 1
  12. FileOpen(1, PATHrunsessionlog, OpenMode.Random, , , Len(onerun))
  13. Do Until EOF(1)
  14. FileGet(1, onerun, runcounter + 1)
  15. If onerun.username = allrunners(totalcounter, 0) Then
  16. ReDim Preserve runningaverage(count)
  17. runningaverage(count).DoubleAVspeed = onerun.DoubleAVspeed
  18. runcounter = runcounter + 1
  19. count = count + 1
  20. Else
  21. runcounter = runcounter + 1
  22. End If
  23. Loop
  24. FileClose(1)
  25. For count = 0 To UBound(runningaverage)
  26. runav = runav + runningaverage(count).DoubleAVspeed
  27. Next
  28. runav = runav / (UBound(runningaverage) + 1)
  29. count = 0
  30. FileOpen(1, swimmingsessionfilepath, OpenMode.Random, , , Len(oneswim))
  31. Do Until EOF(1)
  32. FileGet(1, oneswim, swimcounter + 1)
  33. If oneswim.username = allrunners(totalcounter, 0) Then
  34. ReDim Preserve swimaverage(count)
  35. swimaverage(count).Avspeed = oneswim.Avspeed
  36. swimcounter = swimcounter + 1
  37. count = count + 1
  38. Else
  39. swimcounter = swimcounter + 1
  40.  
  41. End If
  42. Loop
  43. FileClose(1)
  44. For count = 0 To UBound(swimaverage)
  45. swimav = swimav + swimaverage(count).Avspeed
  46. Next
  47. swimav = swimav / (UBound(swimaverage) + 1)
  48. count = 0
  49. FileOpen(1, PATHcyclelog, OpenMode.Random, , , Len(onecycle))
  50. Do Until EOF(1)
  51. FileGet(1, onecycle, cyclecounter + 1)
  52. If onecycle.username = allrunners(totalcounter, 0) Then
  53. ReDim Preserve cycleaverage(count)
  54. cycleaverage(count).DoubleAVspeed = onecycle.DoubleAVspeed
  55. cyclecounter = cyclecounter + 1
  56. count = count + 1
  57. Else
  58. cyclecounter = cyclecounter + 1
  59. End If
  60.  
  61. Loop
  62. FileClose(1)
  63. For count = 0 To UBound(cycleaverage)
  64. cycleav = cycleav + swimaverage(count).Avspeed
  65. Next
  66. cycleav = cycleav / (UBound(cycleaverage) + 1)
  67. totalaverage = (cycleav + runav + swimav) / 3
  68. allrunners(totalcounter, 1) = totalaverage
  69.  
  70. count = 0
  71. swimav = 0
  72. cycleav = 0
  73. runav = 0
  74. runcounter = 0
  75. swimcounter = 0
  76. cyclecounter = 0
  77.  
  78.  
  79. ReDim cycleaverage(count)
  80. ReDim runningaverage(count)
  81. ReDim swimaverage(count)
  82. totalcounter = totalcounter + 1
  83. Loop
  84. ReDim allavspeed(totalcounter, 1)
  85. End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement