以下のサンプルをご覧ください。
Dim MatLab As Object
Private Sub Command1_Click()
Dim Result As String
Dim MReal(1, 3) As Double
Dim MImag() As Double
Set MatLab = CreateObject("Matlab.Application")
'CALLING MATLAB FILE FROM VB
Result = MatLab.Execute("cd D:\MATLABR12\work\alltest")
Result = MatLab.Execute("myfile")
'OTHER THINGS THAT CAN BE DONE
Result = MatLab.Execute("surf(peaks)")
Result = MatLab.Execute("a = [1 2 3 4; 5 6 7 8;]")
Result = MatLab.Execute("b = a + a ")
Call MatLab.GetFullMatrix("b", "base", MReal, MImag)
End Sub
詳細の情報については、MATLAB のヘルプの外部インターフェースの章をご覧ください。
