Fixed the estimated max CP where the level should be double, not integer. Advanced to version 0.5.1.

PokemonGoIV/0Main.vb

@@ -89,7 +89,7 @@ Function fnFindIV ( _
 	Dim fLevel As Double, nStamina As Integer
 	Dim nAttack As Integer, nDefense As integer
 	Dim nI As Integer, nJ As Integer
-	Dim fStep As Double, nN As Integer, nMaxLevel As Integer
+	Dim fStep As Double, nN As Integer, fMaxLevel As Double
 	
 	If aQuery.sPokemonId = "" Then
 		fnFindIV = maIV
@@ -114,9 +114,9 @@ Function fnFindIV ( _
 		Next nI
 	End If
 	nN = -1
-	nMaxLevel = aQuery.nPlayerLevel + 1.5
-	If nMaxLevel > 40 Then
-	    nMaxLevel = 40
+	fMaxLevel = aQuery.nPlayerLevel + 1.5
+	If fMaxLevel > 40 Then
+	    fMaxLevel = 40
 	End If
 	For fLevel = 1 To UBound (mStardust) Step fStep
 		If mStardust (CInt (fLevel - 0.5)) = aQuery.nStardust Then
@@ -138,7 +138,7 @@ Function fnFindIV ( _
 								End With
 								If aQuery.nPlayerLevel <> 0 Then
 									maIV (nN).nMaxCP = fnCalcCP ( _
-										aBaseStats, nMaxLevel, _
+										aBaseStats, fMaxLevel, _
 										nAttack, nDefense, nStamina)
 								End If
 								maIV (nN).maEvolved _
@@ -153,7 +153,7 @@ Function fnFindIV ( _
 										maIV (nN).maEvolved (nI).nMaxCP _
 										    = fnCalcCP ( _
 										    maEvBaseStats (nI), _
-										    nMaxLevel, nAttack, _
+										    fMaxLevel, nAttack, _
 										    nDefense, nStamina)
 									End If
 								Next nI

VERSION

@@ -1 +1 @@
-0.5.0
+0.5.1

oxt/PokemonGoIV/0Main.xba

@@ -91,7 +91,7 @@ Function fnFindIV ( _
 	Dim fLevel As Double, nStamina As Integer
 	Dim nAttack As Integer, nDefense As integer
 	Dim nI As Integer, nJ As Integer
-	Dim fStep As Double, nN As Integer, nMaxLevel As Integer
+	Dim fStep As Double, nN As Integer, fMaxLevel As Double
 	
 	If aQuery.sPokemonId = "" Then
 		fnFindIV = maIV
@@ -116,9 +116,9 @@ Function fnFindIV ( _
 		Next nI
 	End If
 	nN = -1
-	nMaxLevel = aQuery.nPlayerLevel + 1.5
-	If nMaxLevel > 40 Then
-	    nMaxLevel = 40
+	fMaxLevel = aQuery.nPlayerLevel + 1.5
+	If fMaxLevel > 40 Then
+	    fMaxLevel = 40
 	End If
 	For fLevel = 1 To UBound (mStardust) Step fStep
 		If mStardust (CInt (fLevel - 0.5)) = aQuery.nStardust Then
@@ -140,7 +140,7 @@ Function fnFindIV ( _
 								End With
 								If aQuery.nPlayerLevel <> 0 Then
 									maIV (nN).nMaxCP = fnCalcCP ( _
-										aBaseStats, nMaxLevel, _
+										aBaseStats, fMaxLevel, _
 										nAttack, nDefense, nStamina)
 								End If
 								maIV (nN).maEvolved _
@@ -155,7 +155,7 @@ Function fnFindIV ( _
 										maIV (nN).maEvolved (nI).nMaxCP _
 										    = fnCalcCP ( _
 										    maEvBaseStats (nI), _
-										    nMaxLevel, nAttack, _
+										    fMaxLevel, nAttack, _
 										    nDefense, nStamina)
 									End If
 								Next nI

oxt/PokemonGoIV/8Width.xba

@@ -19,7 +19,7 @@
 
 Option Explicit
 
-' subTestWidth: Tests the width of the dialog text
+' subTestWidth: Tests the width of the dialog text.
 Sub subTestWidth
 	Dim oDialog As Object, oDialogModel As Object
 	Dim oTextModel As Object, oListModel As Object