VB与MATLAB接口的实现
今天,我们制作一个能够与Matlab进行交互的应用程序。程序运行结果如图所示。
运行结果
技术要点
●引用Matlab库
●执行Matlab命令
●结束Matlab
实现过程
■新建项目
打开Visual http://www.doczj.com/doc/5d36a797ad51f01dc281f19a.html,选择“新建项目”,在项目类型窗口中选择“Visual Basic项目”,在模板窗口中选择“Windows应用程序”,在名称域中输入“CnMatlab”,然后选择保存路径。单击“确认”。
■添加控件
向当前窗体添加五个Button按钮,两个Picture控件,一个Label控件,一个Hscroll控件和一个Vscroll控件。单击菜单“项目|添加引用”,选中“Matlab Automation(V ersion5.3)Type Library”这一项。
注意:本程序只能在安装有Matlab的机器上运行。
■设置属性
将Label控件和Command按钮的Text属性设置为与界面一致。在此不再赘述。
■添加代码
Dim str1 As String
' 显示正弦图
Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As
System.EventArgs) Handles Command1.Click
Dim matlab As Object
matlab = CreateObject("matlab.application")
matlab.MinimizeCommandWindow()
str1 = "t=1:0.1:2*pi;y=sin(t);plot(t,y)"
matlab.Execute(str1)
matlab.Execute("print( gcf, '-djpeg', 'c:\foo')")
matlab.Quit()