Having trouble with arrays in VB. I'm converting a program from C to VB, and have it down for the most part except for an issue involving entering a number in an array. Code below.
Sub convertNumber()
Do While (numberToConvert <> 0)
convertedNumber(digit) = numberToConvert Mod base 'Line 47
digit += 1
numberToConvert /= base
Loop
End Sub
This is the particular sub where it crashes. The issue seems to be with "convertedNumber(digit)", however I can't figure it out. I tried doing some debugging, and every seems to be working fine. Its just the value I need entered into the array seems to break the whole thing. The whole program is posted below.
Module Module1
Dim convertedNumber() As Integer
Dim numberToConvert As Integer
Dim base As Integer
Dim digit As Integer
Dim moddedNumber As Integer
Sub Main()
'Calls in other SubModules
Call getNumberAndBase()
Call convertNumber()
Call displayConvertedNumber()
Console.ReadLine() ' Waits to terminate program
End Sub
Sub displayConvertedNumber()
Dim baseDigit() As Char = {"0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "A", "B", "C", "D", "E", "F"}
Dim nextDigit As Integer
Console.WriteLine("Converted Number = ")
digit = digit - 1
For digit As Integer = digit To 0
nextDigit = convertedNumber(digit)
Console.WriteLine(baseDigit(nextDigit))
digit -= 1
Next
Console.WriteLine()
End Sub
Sub convertNumber()
Do While (numberToConvert <> 0)
convertedNumber(digit) = numberToConvert Mod base 'Line 47
digit += 1
numberToConvert /= base
Loop
End Sub
Sub getNumberAndBase()
Console.WriteLine("Number to be converted?")
numberToConvert = Console.ReadLine()
Console.WriteLine("Base?")
base = Console.ReadLine()
If base < 2 Or base > 16 Then
Console.WriteLine("Bad base - Must be between 2 and 16")
base = 10
End If
End Sub
End Module
