This is the closest I could get to your code in .net.

Public Function GoogleEncode(ByVal Numbers() As Integer) As String
Dim characters As String = “A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z,a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z,0,1,2,3,4,5,6,7,8,9,-,.”
Dim array() As String = characters.Split(”,”)
Dim first As Integer
Dim second As Integer
Dim encoding As String = “”

For Each value As Integer In Numbers
first = Math.Floor(value / 64)
second = value Mod 64

encoding += array(first) & array(second)
Next

Return encoding
End Function

Public Function GoogleDecode(ByVal DecodeCharacters As String) As String()
Dim characters As String = “ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789-.”
Dim first(characters.Length) As Integer
Dim second(characters.Length) As Integer
Dim pairs() As String = CustomSplit(DecodeCharacters)
Dim value As Integer
Dim values(pairs.Length – 1) As String
Dim iCount As Integer

For i As Integer = 0 To characters.Length
first(i) = i * 64
second(i) = i
Next

For Each pair As String In pairs
value = first(characters.IndexOf(pair.Substring(0, 1)))
value += second(characters.IndexOf(pair.Substring(1, 1)))

values(iCount) = value

iCount += 1
Next

Return values
End Function

Private Function CustomSplit(ByVal DecodeCharacters As String) As String()
Dim length As Integer = DecodeCharacters.Length
Dim s(length / 2 – 1) As String
Dim iCount As Integer

For i As Integer = 0 To length – 1 Step 2
s(iCount) = DecodeCharacters.Substring(i, 2)
iCount += 1
Next

Return s
End Function

val characters = new RichString(”ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789-.’”)
def encode(lstVal : List[Int]) =
{
lstVal.flatMap(x => {
if(x >= 0 && x <= 4095)
{
val first = Math.floor(x.asInstanceOf[Double] / 64.0).asInstanceOf[Int]
val second = x % 64
List(characters(first),characters(second))
}
else
“__”
}).mkString(”")
}

http://marcus.bointon.com/archives/88-Google-Charts-API-Simple-and-Extended-Encoders-in-PHP.html

graphs will be up soon thanks to you:)

@patrick I’m afraid I didn’t have any success with data scaling which is why I wrote these functions. The maths to do that kind of normalization is a little outside my skills! If you manage to crack it then please let me know.