imacat/pokemongoiv
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fixed the error when sorting the result IVs.

Browse Source
This commit is contained in:
依瑪貓 2017-06-08 21:32:41 +08:00
parent 1d1dce7471
commit b1a1553ef4
2 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
PokemonGoIV/2Report.vb
View File

@ -254,7 +254,7 @@ Sub subSortIVs ( _
Dim nCP As Integer Dim nCP As Integer
' Calculate the sorting keys. ' Calculate the sorting keys.
For nI = 0 To UBound (maIVs) - 1 For nI = 0 To UBound (maIVs)
maIVs (nI).nTotal = maIVs (nI).nAttack + maIVs (nI).nDefense _ maIVs (nI).nTotal = maIVs (nI).nAttack + maIVs (nI).nDefense _
+ maIVs (nI).nStamina + maIVs (nI).nStamina
maIVs (nI).nMaxCP = fnCalcCP (aBaseStats, _ maIVs (nI).nMaxCP = fnCalcCP (aBaseStats, _
@ -330,6 +330,7 @@ Function subSwapIV (aIVa As aIV, aIVb As aIV) As Double
Dim aTempIV As New aIV Dim aTempIV As New aIV
With aTempIV With aTempIV
.fLevel = aIVa.fLevel
.nAttack = aIVa.nAttack .nAttack = aIVa.nAttack
.nDefense = aIVa.nDefense .nDefense = aIVa.nDefense
.nStamina = aIVa.nStamina .nStamina = aIVa.nStamina
@ -338,6 +339,7 @@ Function subSwapIV (aIVa As aIV, aIVb As aIV) As Double
.nMaxMaxCP = aIVa.nMaxMaxCP .nMaxMaxCP = aIVa.nMaxMaxCP
End With End With
With aIVa With aIVa
.fLevel = aIVb.fLevel
.nAttack = aIVb.nAttack .nAttack = aIVb.nAttack
.nDefense = aIVb.nDefense .nDefense = aIVb.nDefense
.nStamina = aIVb.nStamina .nStamina = aIVb.nStamina
@ -346,6 +348,7 @@ Function subSwapIV (aIVa As aIV, aIVb As aIV) As Double
.nMaxMaxCP = aIVb.nMaxMaxCP .nMaxMaxCP = aIVb.nMaxMaxCP
End With End With
With aIVb With aIVb
.fLevel = aTempIV.fLevel
.nAttack = aTempIV.nAttack .nAttack = aTempIV.nAttack
.nDefense = aTempIV.nDefense .nDefense = aTempIV.nDefense
.nStamina = aTempIV.nStamina .nStamina = aTempIV.nStamina

5
oxt/PokemonGoIV/2Report.xba
View File

@ -256,7 +256,7 @@ Sub subSortIVs ( _
Dim nCP As Integer Dim nCP As Integer
' Calculate the sorting keys. ' Calculate the sorting keys.
For nI = 0 To UBound (maIVs) - 1 For nI = 0 To UBound (maIVs)
maIVs (nI).nTotal = maIVs (nI).nAttack + maIVs (nI).nDefense _ maIVs (nI).nTotal = maIVs (nI).nAttack + maIVs (nI).nDefense _
+ maIVs (nI).nStamina + maIVs (nI).nStamina
maIVs (nI).nMaxCP = fnCalcCP (aBaseStats, _ maIVs (nI).nMaxCP = fnCalcCP (aBaseStats, _
@ -332,6 +332,7 @@ Function subSwapIV (aIVa As aIV, aIVb As aIV) As Double
Dim aTempIV As New aIV Dim aTempIV As New aIV
With aTempIV With aTempIV
.fLevel = aIVa.fLevel
.nAttack = aIVa.nAttack .nAttack = aIVa.nAttack
.nDefense = aIVa.nDefense .nDefense = aIVa.nDefense
.nStamina = aIVa.nStamina .nStamina = aIVa.nStamina
@ -340,6 +341,7 @@ Function subSwapIV (aIVa As aIV, aIVb As aIV) As Double
.nMaxMaxCP = aIVa.nMaxMaxCP .nMaxMaxCP = aIVa.nMaxMaxCP
End With End With
With aIVa With aIVa
.fLevel = aIVb.fLevel
.nAttack = aIVb.nAttack .nAttack = aIVb.nAttack
.nDefense = aIVb.nDefense .nDefense = aIVb.nDefense
.nStamina = aIVb.nStamina .nStamina = aIVb.nStamina
@ -348,6 +350,7 @@ Function subSwapIV (aIVa As aIV, aIVb As aIV) As Double
.nMaxMaxCP = aIVb.nMaxMaxCP .nMaxMaxCP = aIVb.nMaxMaxCP
End With End With
With aIVb With aIVb
.fLevel = aTempIV.fLevel
.nAttack = aTempIV.nAttack .nAttack = aTempIV.nAttack
.nDefense = aTempIV.nDefense .nDefense = aTempIV.nDefense
.nStamina = aTempIV.nStamina .nStamina = aTempIV.nStamina