Документация

' Necessary package imports

Imports MathWorks.MATLAB.NET.Arrays
Imports PhoneBookComp

'
' getphone class demonstrates the use of the MWStructArray class
'
Public Module PhoneBookVBApp
    Public Sub Main()
        Dim thePhonebook As phonebook   'Stores deployment class instance
        Dim friends As MWStructArray    'Sample input data
        Dim result As Object()          'Stores the result
        Dim book As MWStructArray       'Output data extracted from result

        ' Create the new deployment object 
        thePhonebook = New phonebook()

        ' Create an MWStructArray with two fields 
        Dim myFieldNames As String() = {"name", "phone"}
        friends = New MWStructArray(2, 2, myFieldNames)

        ' Populate struct with some sample data --- friends and phone numbers 
        friends("name", 1) = New MWCharArray("Jordan Robert")
        friends("phone", 1) = 3386
        friends("name", 2) = New MWCharArray("Mary Smith")
        friends("phone", 2) = 3912
        friends("name", 3) = New MWCharArray("Stacy Flora")
        friends("phone", 3) = 3238
        friends("name", 4) = New MWCharArray("Harry Alpert")
        friends("phone", 4) = 3077

        ' Show some of the sample data 
        Console.WriteLine("Friends: ")
        Console.WriteLine(friends.ToString())

        ' Pass it to a MATLAB function that determines external phone number 
        result = thePhonebook.makephone(1, friends)
        book = CType(result(0), MWStructArray)
        Console.WriteLine("Result: ")
        Console.WriteLine(book.ToString())

        ' Extract some data from the returned structure '
        Console.WriteLine("Result record 2:")

        Console.WriteLine(book("name", 2))
        Console.WriteLine(book("phone", 2))
        Console.WriteLine(book("external", 2))

        ' Print the entire result structure using the helper function below 
        Console.WriteLine("")
        Console.WriteLine("Entire structure:")
        dispStruct(book)
    End Sub


    Sub dispStruct(ByVal arr As MWStructArray)
        Console.WriteLine("Number of Elements: " + arr.NumberOfElements.ToString())
        'int numDims = arr.NumberofDimensions
        Dim dims As Integer() = arr.Dimensions
        Console.Write("Dimensions: " + dims(0).ToString())

        Dim i As Integer
        For i = 1 To dims.Length
            Console.WriteLine("-by-" + dims(i - 1).ToString())
        Next i
        Console.WriteLine("")
        Console.WriteLine("Number of Fields: " + arr.NumberOfFields.ToString())
        Console.WriteLine("Standard MATLAB view:")
        Console.WriteLine(arr.ToString())
        Console.WriteLine("Walking structure:")

        Dim fieldNames As String() = arr.FieldNames

        Dim element As Integer
        For element = 1 To arr.NumberOfElements
            Console.WriteLine("Element " + element.ToString())
            Dim field As Integer
            For field = 0 To arr.NumberOfFields - 1
                Dim fieldVal As MWArray = arr(arr.FieldNames(field), element)
                ' Recursively print substructures, give string display of other classes 
                If (TypeOf fieldVal Is MWStructArray) Then
                    Console.WriteLine("   " + fieldNames(field) + ": nested structure:")
                    Console.WriteLine("+++ Begin of \"" + fieldNames[field] + 
                                                      " \ " nested structure")

                    dispStruct(CType(fieldVal, MWStructArray))
                    Console.WriteLine("+++ End of \"" + fieldNames[field] + 
                                                      " \ " nested structure")
                Else
                    Console.Write("   " + fieldNames(field) + ": ")
                    Console.WriteLine(fieldVal.ToString())
                End If
            Next field
        Next element
    End Sub
End Module