Question

Recently I’ve started working on project VB for my As computing class, and after few painful hours of vb coding i hit the solid brick wall. Which looks like this

Private Function store(ByVal opt As Integer, ByVal inp As String, ByVal q As String) As String
        Dim na_me(20), amount(20), num1 As String
        Select Case opt
            Case 0
                na_me(num1) += inp
                amount(num1) += q
                num1 += 1
                Return "1"
            Case 1
                For Each Str As String In na_me
                    Console.WriteLine(Str)
                Next
                Return "1"
            Case 2
                num1 = 0
                Return "1"
            Case Else
                Return "0"
        End Select
    End Function

Every time argument 1 is called it just returns blank screen instead of array full of data.
This function was designed to hold and save any data passed through function call, and then save it into array. and once 1 was passed as opt argument then print out all data held in arrays. I know this is a noob question but i’ve never used vb.net before and i’m only doing it at school.

Here’s rest of the code http://pastebin.com/nWxvx9pz

Answer 1

Alternatively you could do something like this and use strongly typed collections/properties.

If you did need to get these as an array all you would need to is MyStoredValues.ToArray()

Module Module1


    Private na_me As List(Of String)
    Public Property MyStoredValues() As List(Of String)
        Get
            If na_me Is Nothing Then
                na_me = New List(Of String)
            End If
            Return na_me
        End Get
        Set(ByVal value As List(Of String))
            na_me = value
        End Set
    End Property


    Private amount As List(Of String)
    Public Property MyAmount() As List(Of String)
        Get
            If amount Is Nothing Then
                amount = New List(Of String)
            End If
            Return amount
        End Get
        Set(ByVal value As List(Of String))
            amount = value
        End Set
    End Property



    Sub Main()
        store(0, "TEST TEST TEST", "10.23")
        store(0, "TEST2 TEST2 TEST2", "11.33")
        store(1, "", "")
        Console.ReadKey()
    End Sub
    Private Function store(ByVal opt As Integer, ByVal inp As String, ByVal q As String) As Boolean

        Select Case opt
            Case 0
                MyStoredValues.Add(inp)
                MyAmount.Add(q)

                Return True
            Case 1
                For Each Str As String In MyStoredValues
                    Console.WriteLine(Str)
                Next
                Return True

            Case Else
                Return False
        End Select
    End Function
End Module