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

Обзор

При инкапсуляции функций MATLAB ® продукт MATLAB Compiler SDK™ добавляет аргументы функции MATLAB в список аргументов создаваемых методов классов. Таким образом, если функция MATLAB используетvarargin и/или varargoutкомпилятор добавляет эти аргументы в список аргументов метода класса. Они добавляются в конце списка аргументов для входных и выходных аргументов.

Можно передать несколько аргументов как varargin путем создания массива Variant , присваивая каждый элемент массива соответствующему входному аргументу.

Дополнительные сведения о сопоставлении входных и выходных аргументов см. в разделе Создание COM-класса.

Создание и использование массива varargin в программах Microsoft Visual Basic

В следующем примере создается varargin массив для вызова метода, инкапсулирующего функцию MATLAB формы y=foo(varargin).

MWUtil класс включен в MWComUtil библиотека утилит обеспечивает MWPack вспомогательная функция для создания varargin параметры.

Function foo(x1 As Variant, x2 As Variant, x3 As Variant, _
             x4 As Variant, x5 As Variant) As Variant
   Dim aClass As Object
   Dim v(1 To 5) As Variant
   Dim y As Variant 
   
   On Error Goto Handle_Error
   v(1) = x1
   v(2) = x2
   v(3) = x3
   v(4) = x4
   v(5) = x5
   aClass = CreateObject("mycomponent.myclass.1_0")
   Call aClass.foo(1,y,v)
   foo = y
   Exit Function
Handle_Error:
   foo = Err.Description
End Function

Создание и использование varargout в программах Microsoft Visual Basic

Следующий пример обрабатывает varargout аргумент как три отдельных аргумента. Эта функция использует MWUnpack в библиотеке утилит.

Используется функция MATLAB varargout=foo(x1,x2).

Sub foo(Xout1 As Variant, Xout2 As Variant, Xout3 As Variant, _
        Xin1 As Variant, Xin2 As Variant)
   Dim aClass As Object
   Dim aUtil As Object
   Dim v As Variant
    
   On Error Goto Handle_Error
   aUtil = CreateObject("MWComUtil.MWUtil")
   aClass = CreateObject("mycomponent.myclass.1_0")
   Call aClass.foo(3,v,Xin1,Xin2)
   Call aUtil.MWUnpack(v,0,True,Xout1,Xout2,Xout3)
   Exit Sub
Handle_Error:
   MsgBox(Err.Description)
End Sub

Передать пустой вараргин из кода Microsoft Visual Basic

В MATLAB, varargin входы в функции являются необязательными и могут присутствовать или отсутствовать в вызове функции. Однако в Microsoft ® Visual ^Basic ® сигнатуры функций являются более строгими - еслиvarargin присутствует среди входов функции MATLAB, вызов VBA должен включать varargin, даже если ты хочешь, чтобы он был пуст. Для передачи пустого varargin, пройти Null вариант, который при передаче преобразуется в пустой массив ячеек MATLAB.

Function foo(x1 As Variant, x2 As Variant, x3 As Variant, _ 
             x4 As Variant, x5 As Variant) As Variant 
   Dim aClass As Object 
   Dim v(1 To 5) As Variant 
   Dim y As Variant 
    
   On Error Goto Handle_Error 
   v(1) = x1 
   v(2) = x2 
   v(3) = x3 
   v(4) = x4 
   v(5) = x5 
   aClass = CreateObject("mycomponent.myclass.1_0") 

   'Call aClass.foo(1,y,v) 
   Call aClass.foo(1,y,Null) 

   foo = y 
   Exit Function 
Handle_Error: 
   foo = Err.Description 
End Function