From ea59f27059f1b753b4f6adfb98c159ce539810be Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?=E4=BE=9D=E7=91=AA=E8=B2=93?= Date: Mon, 28 Nov 2016 23:17:08 +0800 Subject: [PATCH] Added a comment for _2Data auto-generation. --- _2Data.vb | 9 +++++---- _3Load.vb | 9 +++++---- 2 files changed, 10 insertions(+), 8 deletions(-) diff --git a/_2Data.vb b/_2Data.vb index c400671..d3e3b52 100644 --- a/_2Data.vb +++ b/_2Data.vb @@ -1,9 +1,10 @@ -' _2Data: The Pokémon Go IV data +' _2Data: The Pokémon Go data for IV calculation ' by imacat , 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, _ diff --git a/_3Load.vb b/_3Load.vb index 1a1fc0c..26cdf55 100644 --- a/_3Load.vb +++ b/_3Load.vb @@ -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 , " & 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)