Hjälp med programmering

[Jerpa]

Längesen man var här på wF, men det är sig likt

Detta har även med en tråd från 2005 att göra. Det var då jag fick upp ögonen för geocaching. Men jag valde då att börja med airsoft vilket jag i nuläget ångrar. 8 juni 2011 började jag cacha, det går inte fort framåt då man har småbarn och bor på landet. Men man har ju hobbyn med sig var man än befinner sig vilket är rätt unikt.

Tänkte höra om det är någon som skulle vilja hjälpa mig med en liten "Pseudo-Kod" sprungen ur Basic.

Jag vill få fram en koordinat;
N60° 36.ABC E016° 37.DEF
där
ABC = Hash("Beat the code").N
DEF = Hash("Beat the code").E

Du behöver också använda dig av ASCii-tabellen. Den är bifogad som princip nedan.
ASC("A") = 65
ASC("B") = 66
"
"
"
ASC("Z") = 90

ASC("a") = 97
ASC("b") = 98
"
"
"
ASC("z") = 122

Hash-funktionen:

Function Hash(geocacheName As String) As GPS
   For i = 1 To Length(geocacheName)
      Hash.N = Hash.N + i + Asc(Middle(geocacheName, i, 1))
      Hash.E = Hash.E + i * Asc(Middle(geocacheName, i, 1))
   Next i
   Hash.N = (52 + Hash.N) Mod 1000
   Hash.E = (-392 + Hash.E) Mod 1000
End Function

GPS är en egendefinerad komplex datatyp

Type GPS
   N as integer
   E as integer
End Type

Jag fick hjälp av en gammal lärare men tyvärr var det inte rätt. Han fick fram
N60 36.319
E016 37.875
Med hjälp av denna sida kan jag se om det är rätt eller fel.


Vet inte om nedanstående kan hjälpa till lite att se snabbare vilken siffra/bokstav som hör ihop.

A 65
B 66
C 67
D 68
E 69
F 70
G 71
H 72
I 73
J 74
K 75
L 76
M 77
N 78
O 79
P 80
Q 81
R 82
S 83
T 84
U 85
V 86
W 87
X 88
Y 89
Z 90

a 97
b 98
c 99
d 100
e 101
f 102
g 103
h 104
i 105
j 106
k 107
l 108
m 109
n 110
o 111
p 112
q 113
r 114
s 115
t 116
u 117
v 118
w 119
x 120
f 121
z 122