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

Added a comment for _2Data auto-generation.

Browse Source
This commit is contained in:
依瑪貓 2016-11-28 23:17:08 +08:00
parent 860e2d1ef4
commit ea59f27059
2 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
_2Data.vb
View File

@ -1,9 +1,10 @@
' _2Data: The Pokémon Go IV data
' _2Data: The Pokémon Go data for IV calculation
' by imacat <imacat@mail.imacat.idv.tw>, 2016-11-28
' Generated with _3Load.subReadDataSheets ()
Option Explicit
' fnGetBaseStatsData: Returns the base stats table
' fnGetBaseStatsData: Returns the base stats data.
Function fnGetBaseStatsData As Variant
fnGetBaseStatsData = Array( _
Array ("Bulbasaur", "001", 90, 118, 118, "Venusaur"), _
@ -159,7 +160,7 @@ Function fnGetBaseStatsData As Variant
Array ("Mew", "151", 200, 210, 209, "Mew"))
End Function
' fnGetCPMData: Returns the combat power multiplier table
' fnGetCPMData: Returns the combat power multiplier data.
Function fnGetCPMData As Variant
fnGetCPMData = Array( _
-1, _
@ -205,7 +206,7 @@ Function fnGetCPMData As Variant
0.78463697)
End Function
' fnGetStarDustData: Returns the star dust table
' fnGetStarDustData: Returns the star dust data.
Function fnGetStarDustData As Variant
fnGetStarDustData = Array( _
-1, _

9
_3Load.vb
View File

@ -9,8 +9,9 @@ Sub subReadDataSheets
Dim sOutput as String, mData As Variant
sOutput = "" _
& "' _2Data: The Pokémon Go IV data" & Chr (10) _
& "' _2Data: The Pokémon Go data for IV calculation" & Chr (10) _
& "' by imacat <imacat@mail.imacat.idv.tw>, " & Format (Date (), "yyyy-mm-dd") & Chr (10) _
& "' Generated with _3Load.subReadDataSheets ()" & Chr (10) _
& Chr (10) _
& "Option Explicit"
sOutput = sOutput & Chr (10) & Chr (10) & fnReadBaseStatsSheet
@ -75,7 +76,7 @@ Function fnReadBaseStatsSheet As String
mData = oRange.getDataArray
sOutput = "" _
& "' fnGetBaseStatsData: Returns the base stats table" & Chr (10) _
& "' fnGetBaseStatsData: Returns the base stats data." & Chr (10) _
& "Function fnGetBaseStatsData As Variant" & Chr (10) _
& Chr (9) & "fnGetBaseStatsData = Array( _" & Chr (10)
For nI = 1 To UBound (mData) - 1
@ -121,7 +122,7 @@ Function fnReadCPMSheet As String
mData = oRange.getDataArray
sOutput = "" _
& "' fnGetCPMData: Returns the combat power multiplier table" & Chr (10) _
& "' fnGetCPMData: Returns the combat power multiplier data." & Chr (10) _
& "Function fnGetCPMData As Variant" & Chr (10) _
& Chr (9) & "fnGetCPMData = Array( _" & Chr (10) _
& Chr (9) & Chr (9) & "-1, _" & Chr (10)
@ -146,7 +147,7 @@ Function fnReadStarDustSheet As String
mData = oRange.getDataArray
sOutput = "" _
& "' fnGetStarDustData: Returns the star dust table" & Chr (10) _
& "' fnGetStarDustData: Returns the star dust data." & Chr (10) _
& "Function fnGetStarDustData As Variant" & Chr (10) _
& Chr (9) & "fnGetStarDustData = Array( _" & Chr (10) _
& Chr (9) & Chr (9) & "-1, _" & Chr (10)