Solved
Heres my function:
Function qwertyenc(letter$)
encode$ = letter$
curletter$=encode$
Select curletter$
Case "a"
encode$ = encode$ + Replace$(curletter$,"a","q")
Case "b"
encode$ = encode$ + Replace$(curletter$,"b","w")
Case "c"
encode$ = encode$ + Replace$(curletter$,"c","e")
Case "d"
encode$ = encode$ + Replace$(curletter$,"d","r")
Case "e"
encode$ = encode$ + Replace$(curletter$,"e","t")
Case "f"
encode$ = encode$ + Replace$(curletter$,"f","y")
Case "g"
encode$ = encode$ + Replace$(curletter$,"g","u")
Case "h"
encode$ = encode$ + Replace$(curletter$,"h","i")
Case "i"
encode$ = encode$ + Replace$(curletter$,"i","o")
Case "j"
encode$ = encode$ + Replace$(curletter$,"j","p")
Case "k"
encode$ = encode$ + Replace$(curletter$,"k","a")
Case "l"
encode$ = encode$ + Replace$(curletter$,"l","s")
Case "m"
encode$ = encode$ + Replace$(curletter$,"m","d")
Case "n"
encode$ = encode$ + Replace$(curletter$,"n","f")
Case "o"
encode$ = encode$ + Replace$(curletter$,"o","g")
Case "p"
encode$ = encode$ + Replace$(curletter$,"p","h")
Case "q"
encode$ = encode$ + Replace$(curletter$,"q","j")
Case "r"
encode$ = encode$ + Replace$(curletter$,"r","k")
Case "s"
encode$ = encode$ + Replace$(curletter$,"s","l")
Case "t"
encode$ = encode$ + Replace$(curletter$,"t","z")
Case "u"
encode$ = encode$ + Replace$(curletter$,"u","x")
Case "v"
encode$ = encode$ + Replace$(curletter$,"v","c")
Case "w"
encode$ = encode$ + Replace$(curletter$,"w","v")
Case "x"
encode$ = encode$ + Replace$(curletter$,"x","b")
Case "y"
encode$ = encode$ + Replace$(curletter$,"y","n")
Case "z"
encode$ = encode$ + Replace$(curletter$,"z","m")
Default
Return " "
End Select
Return encode$
End Function
;test
hi$ = qwertyenc("q")
Print hi$
Delay 5000
For some reason the output of this program is 0. Just 0.
Can anyone think of a reason for this?
|