vb和matlab混合编程探究和实现

《vb和matlab混合编程探究和实现》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、VB和MATLAB混合编程探究和实现　　摘要：介绍了VB与MATLAB混合编程的5种方法，分别利用com组件技术与MatrixVB完成了VB与MATLAB混编，实现了图像的绘制。从两种实验结果来看，这两种方法占用计算机内存小，且编程语言简单，充分利用了VB与MATLAB的特点，简化了编程过程。关键词：VB；MATLAB；com组件；MatrixVB中图分类号：TP314文献标识码：A文章编号：16727800（2012）0090033020引言VB具有方便的资源文件集中管理模式、开发周期短、开发环境友好等特点。MATLAB具有强大的计

2、算机绘图能力，并且提供大量的数据库，但是界面开发能力差、代码运行效率低。将VB与MATLAB的特点结合起来，运用VB与MATLAB混合编程实现仿真，使两者相得益彰，不失为一种有益的尝试。1VB与MATLAB接口编程方法VB与MATLAB混合编程有多种方法，各有优缺点，主要有下面几种方法。1.1利用ActiveX技术7ActiveX自动化（OLE自动化）协议是一种允许一个应用程序（控制端）去控制另一个应用程序（服务器端）的协议。在VB下通过ActiveX自动化接口可将MATLAB作为VisualBasic语言的一个ActiveX部件调用

3、。但是这种方法不能脱离MATLAB运行环境，占用计算机内存较大。1.2利用可执行文件技术这种方法将MATLAB的运算模块生成可执行的exe文件，然后在VB运行环境下调用。这种方法占用内存较小，运行效率较高。1.3利用MatrixVB技术MatrixVB是MathWorks公司为VB开发的插件，插件增强了VB绘图和计算的函数集合。它包括基本的数学运算和功能强大的信号处理、线性代数、串运算及图形图像处理功能，用来补充VB本身内建函数和图形处理的不足。这种方法运行效率高、占用内存小。1.4利用动态数据交换（DDE）技术动态数据交换（DDE）

4、是在Windows环境下支持客户/服务器计算模式的重要技术。由于VB支持DDE客户端功能，MATLAB提供了DDE服务功能，因此，利用VB和MATLAB的动态数据交换能力，可以实现在VB应用程序中调用MATLAB。但这种方法仍然不能脱离MATLAB运行环境，占用资源较大。1.5利用com组件技术7MATLAB提供了COM编译器。它能将一个m文件编译成dll文件供VB调用。这种技术可以脱离MATLAB运行环境，但是生成的dll文件必须进行注册。综上所述，几种技术各有优缺点，可根据需要采用不同的技术。2利用com组件技术的混编从图1中可以

5、看出，首先利用MATLAB编写m函数，然后利用com组件技术生产dll文件，注册该dll文件。VB调用生产的dll文件，最后生成可以执行的文件。根据上述过程，要求编写一个VB与MATLAB混编的程序，显示y=ax2+bx+c的图形，利用com组件技术可以实现。首先在MATLAB平台下输入以下函数：将编写好的函数保存为abc.m，在MATLAB中输入mbuildsetup，根据提示选择编译器为：MicrosoftVisualC/C++version6.0inC：ProgramFilesMicrosoftVisualStudio（需要安装

6、C++）。再输入comtool命令，出现对话框，选择file-newproject，添加之前生成的abc.m。定义类为theabc，选择build-comobject。此时可以生成一个theabc的文件夹，内含文件theabc_1_0.dll。退出MATLAB环境，打开VB，新建一个标准exe，选择工程—引用—theabc1.0TypeLibrary。在form中添加3个文本框，分别用来显示a、b、c。两个命令按钮，用来执行画图命令和退出。输入：PrivateaAsDouble‘定义a为double型PrivatebAsDouble‘

7、b为double7PrivatecAsDouble‘c为doublePrivateyyecAstheabc.abc‘程序名yyecPrivateSubCommand1_Click（）Callyyec.abc（a，b，c）‘调用，画图EndSubPrivateSubCommand2_Click（）End‘结束EndSubPrivateSubForm_Load（）Text1.Text=1‘初始值Text2.Text=2‘初始值Text3.Text=1‘初始值Setyyec=Newtheabc.abc‘初始化EndSubPrivateSub

8、Text1_Change（）a=CDbl（Text1.Text）‘double型EndSubPrivateSubText2_Change（）b=CDbl（Text2.Text）‘double型EndSubPrivateS