QBasic to VB .NET Translation
Here's the QB Code. I tried to translate it to VB .NET Console code. See translated code below
PHP Code:
CLS
L1% = 0: X1% = 0: X2% = 0: X3% = 0
LOCATE 2, 1
PRINT "Enter name";
Sw1% = 1
WHILE Sw1% = 1
INPUT A$
L1% = LEN(A$)
FOR X1% = 1 TO L1%
X2% = ASC(MID$(A$, X1%, 1))
IF X2% > 90 THEN X2% = X2% - 32
X2% = X2% - 64
X2% = X2% * 6
X3% = X3% + X2%
NEXT X1%
LOCATE 4, 1
PRINT A$; " = "; X3%
B$ = ""
WHILE B$ = ""
B$ = INKEY$
WEND
LOCATE 6, 1
PRINT "Again?"
B$ = ""
WHILE B$ = ""
B$ = INKEY$
WEND
IF B$ <> "Y" AND B$ <> "y" THEN
Sw1% = 0
ELSE
L1% = 0: X1% = 0: X2% = 0: X3% = 0
A$ = "": B$ = ""
CLS
LOCATE 2, 1
PRINT "Enter name";
END IF
WEND
CLS
LOCATE 2, 1
PRINT "Thank you for using 666 Searcher."
END
Here's my code after translating. But somehow I stuck and it doesn't work:
VB Code:
Module Module1
Sub Main()
Dim L1 As Int16 = 0
Dim X1 As Int16 = 0
Dim X2 As Int16 = 0
Dim X3 As Int16 = 0
Dim INKEY As String
'dim LOCATE as Int16 (2, 1)
Console.WriteLine("Enter name")
Dim Sw1 As Int16 = 1
While Sw1 = 1
Dim A As String
Console.Read(A)
L1 = Len(A.ToString())
For X1 = 1 To L1
X2 = Asc(Mid(A, X1, 1))
If X2 > 90 Then X2 = X2 - 32
X2 = X2 - 64
X2 = X2 * 6
X3 = X3 + X2
Next X1
'LOCATE(4, 1)
Console.WriteLine(A + " = " + X3)
Dim B As String = ""
While B = ""
B = INKEY
End While
'LOCATE(6, 1)
Console.WriteLine("Again?")
B = ""
While B = ""
B = INKEY
End While
If B <> "Y" And B <> "y" Then
Sw1 = 0
Else
L1 = 0 : X1 = 0 : X2 = 0 : X3 = 0
A = "" : B = ""
'LOCATE(2, 1)
Console.WriteLine("Enter name")
End If
End While
'LOCATE(2, 1)
End
End Sub
End Module