VB和Matlab传递数据
五种VB与MATLAB混合编程接口的方法
摘要: 为充分发挥Matlab与VB各自的优势，将二者结合起来进行工程应用软件的开发。
本文介绍了五种VB与MATLAB混合编程接口的方法，并对各方法性能的优劣进行了比较和评价。
关键词: Matlab；Visual Basic；ActiveX；DDE；MatrixVB；DLL；COM1引言Microsoft Visual Basic是由微软公司开发的可视化编程语言之一,由于它简单易学的特点，只要稍有编程基础就可以很快掌握,可视化的用户界面设计功能，把程序设计人员从繁琐复杂的界面设计中解脱出来。
因而很快就风靡全球,是一种十分强大和有生命力的Windows 编程语言。
但是我们知道VB语言也有它的缺点，即对于数值计算方面其能力欠佳。
Matlab是Matlab 擅长处理数值计算和系统模拟仿真,已被广泛应用于数字信号处理、电力系统仿真、图像处理、系统识别等各个领域。
但是Matlab也存在一些缺点: 1、和其他高级程序相比，程序的执行速度较慢，那是因为;2、对于底层硬件操作以及编程界面方面远远比不上VB、VC 等软件。
鉴于二者各自的优势,为了提高工程软件的开发效率和质量,将两种软件结合起来进行工程应用软件的开发便成了实际的需要。
本文主要讨论VB与Matlab混合编程的几种方法。
2Vb和Matlab接口实现方法介绍2.1借助ActiveX技术ActiveX是特点就是使不同的软件对象可以跨进程、跨平台并能在网络上进行交互。
Matlab ActiveX自动化服务的功能主要包括在(1) Execute (Command as String) 方法: 执行本方法将调用MATLAB执行一条Command 字符串决定的Matlab命令,同时返回一条字符串表示命令的执行情况。
任何能在MATLAB命令行窗口执行的命令均可以被包括在Command 字符串中。
(2) GetFullMatrix方法: 该方法用来将Matlab中的一个矩阵变量传送到VB 程序的一个一维数组或二维数组中。
关于实现VB与matlab混合编程的方法
相关图片如下：VB与MA TLAB混合编程探讨文章作者：朱志松郭晓丽朱小松文章类型：设计应用文章出处：电子技术应用--------------------------------------------------------------------------------摘要：介绍了ＶＢ与ＭＡＴＬＡＢ混合编程的方法，二者结合可以充分利用ＶＢ的方便快捷和ＭＡＴＬＡＢ软件工具箱的强大功能。
关键词：ＶＢＶＣ＋＋ＭＡＴＬＡＢＤＬＬ编译ＭＡＴＬＡＢＡｄｄ－ｉｎＭＡＴＬＡＢ是ＭａｔｈＷｏｒｋｓ公司开发的科学计算环境，具有强大的计算绘图能力，提供大量的函数库、工具箱，几乎涵盖了所有的工程计算领域，被誉为“演算纸”式的工程计算工具。
但是ＭＡＴＬＡＢ语言是一种解释执行的脚本语言，运算速度较慢是一个比较突出的问题。
ＶｉｓｕａｌＢａｓｉｃ作为一门易学易用的编程语言，受到很多工程技术人员的青睐，其执行速度相对较快，界面友好。
因此实现ＶＢ与ＭＡＴＬＡＢ混合编程，可以为科研工作和工程应用提供有力的技术支持。
１基本思路及实现方法ＭＡＴＬＡＢ提供了与Ｃ＋＋、Ｆｏｒｔｒａｎ的程序接口，并没有提供直接与ＶＢ的接口。
目前ＶＢ与ＭＡＴＬＡＢ混合编程方面主要使用以下一些方法：（１）在ＶＢ中通过调用ＭＡＴＬＡＢ的引擎（Ｅｎｇｉｎｅ）接口，使用Ｗｉｎｄｏｗｓ的ＯＬＥ或ＡｃｔｉｖｅＸ通道与ＭＡＴＬＡＢ通信。
通过Ｏｂｊｅｃｔ．Ｅｘｅｃｕｔｅ ＭＡＴＬＡＢ语句 在程序中直接使用ＭＡＴＬＡＢ提供的函数库和图形库。
这种方法可以较快地编写出程序；但在调用引擎时，会在后台启动一个ＭＡＴＬＡＢ进程，影响程序运行速度，占用内存。
（２）通过使用嵌入ＶＢ的矩阵函数库ＭａｔｒｉｘＶＢ的方法。
ＭａｔｒｉｘＶＢ是由原ＭａｔｈＴｏｏｌｓ公司开发的第三方插件，利用与ＭＡＴＬＡＢ相似的函数、语法嵌入到ＶＢ中，可以象使用ＶＢ的函数、命令一样使用ＭＡＴＬＡＢ函数。
这种方法语法和函数使用比较简单，编程效率很高，几乎完全融入ＶＢ语言，特别对图形的处理非常方便，弥补了其他方法在图形处理上的弱点。
vb与matlab接口
VB和Matlab/Simulink的接口方法:AttributeVB_Name = "Form1"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalseDim result As StringDim Matlab As ObjectSet Matlab = CreateObject("Matlab.Application")Private Sub Command1_Click()Matlab.execute (save "Text1")End SubPrivate Sub Command2_Click()Text2.Text = Matlab.execute("Test1")result = Matlab.execute("print-dbitmap")Imagel.Picture = Clipboard.GetDataEnd Sub基于COM组件的VB与MA TLAB接口编程摘要:针对VB和MA TLAB接口编程问题,本文提出一种基于COM组件的VB与MA TLAB接口编程方法。
并以具体的例子给出了这种方法的应用过程,实现了VB可视化界面和MATLAB信号分析及图形显示。
关键词:COM组件,VB,MA TLAB,接口编程1引言MA TLAB是Mathworks公司开发的科学计算环境,具有强大的计算绘图能力,并提供了大量的函数库,几乎涵盖了所有的工程计算领域,被誉为“演算纸”式的工程计算工具。
但它的缺点是界面开发能力差,代码运行效率低。
V isual Basic是Microsoft公司推出的一款面向对象的应用程序开发工具。
浅谈VB与Matlab混合编程
ｎ ｎ Ｏｂｅ ｔ ｄ ｌ ｅ ｔ ｊｃＭｏ ｅ， 部件对象 模型） 使得 软件部件 在网络环境 中进行 交互的技 术集， 它与具体的编程语言 无关 。Ａｃｉｅ ｔ Ｘ的 ｖ 特点就 是使不同的软件对 象可 以跨进程、 跨平台并能在网络上 进行 交互 。ＭａｌｂＡｃｉｅ 自动化 服 务的 功能 主要包括 在 ｔ ｔ Ｘ ａ ｖ Ｍａｌｂ工作空间执行 Ｍａｌｂ命令 ． ｔ ａ ｔ ａ 以及直接 从工作 空间存取 矩阵等 ，下面列 出了 Ｍａｌｂ自动化 服 务支持的 几个 主要方 ｔ ａ
Ａｃｉｅ 是 Ｍ ｉｒｓ ｆ 提 出 的 一 组 使 用 ＣＯ （ ｍｐ － ｔ Ｘ ｖ ｃｏ ｏｔ Ｍ Ｃｏ ｏ
的请求和接 受者。通过 ＤＤＥ方式建立的数 据连接通道是双 向
的 ， Ｃ ｉｎ” 但 能 读 取 “ ｅｖ ｒ中 的 数 据 ， 能 对 其 进 行 修 “ ｌ ｔ不 ｅ Ｓ ｒｅ” 还
【 摘 要 】为充分 发挥Ｍａａ 与ｖ 各自 势， ｔｂ Ｂ 的优 将二者结合 进行工 ｌ 起来 程应用 软件的 发。 介绍了 开 本文 五种Ｖ Ｂ与
Ｍ Ａ ＡＢ混舍 编程 接 口的方 法 ， 对各 方 法 性 能 的 优劣 进 行 了 比较 和 评 价 。 ＴＬ 并
【 关键词 】Ｍａａ；ｉａＢｓ；ｃｖｘＤ ＥＭａｉ ＢＤ ＬＣ Ｍ ｔｂＶｓ ｌａｃ ｔｅ ；Ｄ ； ｔｘ ；Ｌ ；Ｏ ｌ ｕ ｉＡ ｉ ｒＶ 【 中图分类号】 Ｔ ３ 【 Ｐ２ 文献标识码】 Ａ 【 文章编号】 １０—２７（０６０— ０８ ２ ０３ ６３２０）５ ０７—０
Ｍａｌｂ使 命 令 行 窗 口 最 大 化 ， 体 调 用 如 下 ： ａｌ ｔ ｂ ｔ ａ 具 Ｃｌ ｍａｌ － ａ
可视化 三大基本功能于一体 的 ， 功能强 大、 操作简单 的语言 ， 是
VB与MATLAB集成技术在网络控制系统仿真软件设计中的应用
收稿日期:2006-06-06作者简介:李 想(1981—),男,江苏宿迁人,硕士生,研究方向:控制理论与计算机控制技术(E -mail :xiangli -121@ )。
文章编号:1003-6199(2006)04-0241-04VB 与MAT LAB 集成技术在网络控制系统仿真软件设计中的应用李 想1,张栾英1,谷俊杰1,朱宏立2,施燕美1(1.华北电力大学控制科学与工程学院,河北保定 071003;2.江苏省电信有限公司宿迁分公司,江苏宿迁 223800)摘 要:介绍一种Active X 部件为基础的Matlab 与VB 接口编程技术.分析了Active X 部件的基本原理以及在VB 中如何调用Matlab 的Active X 部件。
在VB 环境下通过Winsock 控件实现通信,结合VB 的可视化友好界面,实现了相关软件的开发和设计。
关键词:ActiveX ;VB ;Winsock 控件;MA TLAB ;Client/Server 中图分类号:TP31 文献标识码:AThe Programming T echnique B ased on VB and MAT LABWorked in the NCS Emulational Soft w are DesigningL I Xiang 1,ZHAN G Luan 2ying 1,GU J un 2jie 1,ZHU hong 2li 2,SHI Yan 2mei 1(1.School of Control Science and Engineering.North China Electric Power University ,Baoding 071003,China ;2.JiangSu Telecom Corporation SuQian Branch ,SuQian 223800,China )Abstract :Introduced the programming technique based on VB and Matlab.The basic ActiveX principle was analyzed and the VB to transfer the Matlab was successfully realized by the ing Winsock controls under VB to realize the communica 2tion ,and with the VB ’S friendly visual interface ,we can exploit and design the related software.K ey w ords :activex ;VB ;winsock controls ;matlab ;client/server1 引 言在网络控制系统(NCS )中,对于网络中出现的各种问题都作了很多假设,如延时有上界或固定等,这种研究只是理论上的探讨,大多数的控制算法都是缺乏很好的试验平台,为了研究真实的网络对控制系统的影响,本文介绍了基于以太网的网络控制系统软件平台的设计,利用VB 强大的面向对象的可视化图形界面和MA TLAB 的仿真功能,实现了这一软件设计。
VB调用Matlab在WEDM仿真系统中的应用
VB调用Matlab在WEDM仿真系统中的应用基于BP的电火花线切割(WEDM)工艺系统需要具有工艺数据库管理、工艺效果预测、加工参数优化等设计功能。
借助Matlab的神经网络工具箱，可以建立良好的工艺效果预测模型和参数优化模型，这正是工艺仿真软件最主要的功能要求。
VB是Windows操作系统下优秀的可视化编程工具软件，在用户界面设计和迅速开发等方面具有独特的优势。
同时，Matlab仿真软件以其强大的科学计算功能和开放式开发思想使其成为当前最为流行的仿真计算工具。
综合两种开发环境各自的优势，可采纳VB与Matlab混合编程的办法实现工艺仿真软件的编程开发。
在VB开发环境下制定前台用户界面，利用Matlab强大的计算功能实现后台模型的实时仿真。
为了实现前台界面与后台仿真环境间的数据传递，应用ActiveX技术举行VB与Matlab之间的接口设计，通过建立在VB 应用程序和Matlab仿真环境之间的ActiveX自动化衔接，实现了在VB 环境下对Matlab仿真指令的调用，并在VB友好的用户界面中实时显示仿真结果。
1 VB与Matlab间的接口分析1.1 VB与Matlab接口形式为了能够充分利用Matlab系统提供的丰盛函数库，Matlab本身提供了应用程序接口API(Matlab application program interface)。
因此，VB与Matlab接口设计有多种实现方式。
(1)借用C++与Matlab的接口，将Matlab的程序文件(*．M)编译为动态链接库(*．DLL)，VB在代码中调用生成DLL中的函数，以实现算法，便于用户脱离Matlab环境用法。
因为算法部分采纳C++语句，运行速度较快，可应用于实时运算。
但是这种办法对开发者在设置和编程上都有较高的要求。
(2)通过用法嵌入VB中矩阵函数库MatrixVB的办法实现接口。
MatrixVB是第三方插件，利用与Matlab相像的函数、语法嵌入到VB 中，可以像用法VB的函数、指令一样用法Matlab函数。
VB调用MATLAB混合编程教程(完整版)
VB与MATLAB混合编程探讨摘要：介绍了ＶＢ与ＭＡＴＬＡＢ混合编程的方法，二者结合可以充分利用ＶＢ的方便快捷和ＭＡＴＬＡＢ软件工具箱的强大功能。
关键词：ＶＢＶＣ＋＋ＭＡＴＬＡＢＤＬＬ编译ＭＡＴＬＡＢＡｄｄ－ｉｎＭＡＴＬＡＢ是ＭａｔｈＷｏｒｋｓ公司开发的科学计算环境，具有强大的计算绘图能力，提供大量的函数库、工具箱，几乎涵盖了所有的工程计算领域，被誉为“演算纸”式的工程计算工具。
但是ＭＡＴＬＡＢ语言是一种解释执行的脚本语言，运算速度较慢是一个比较突出的问题。
ＶｉｓｕａｌＢａｓｉｃ作为一门易学易用的编程语言，受到很多工程技术人员的青睐，其执行速度相对较快，界面友好。
因此实现ＶＢ与ＭＡＴＬＡＢ混合编程，可以为科研工作和工程应用提供有力的技术支持。
１基本思路及实现方法ＭＡＴＬＡＢ提供了与Ｃ＋＋、Ｆｏｒｔｒａｎ的程序接口，并没有提供直接与ＶＢ的接口。
目前ＶＢ与ＭＡＴＬＡＢ混合编程方面主要使用以下一些方法：（１）在ＶＢ中通过调用ＭＡＴＬＡＢ的引擎（Ｅｎｇｉｎｅ）接口，使用Ｗｉｎｄｏｗｓ的ＯＬＥ或ＡｃｔｉｖｅＸ通道与ＭＡＴＬＡＢ通信。
通过Ｏｂｊｅｃｔ．Ｅｘｅｃｕｔｅ ＭＡＴＬＡＢ语句在程序中直接使用ＭＡＴＬＡＢ提供的函数库和图形库。
这种方法可以较快地编写出程序；但在调用引擎时，会在后台启动一个ＭＡＴＬＡＢ进程，影响程序运行速度，占用内存。
（２）通过使用嵌入ＶＢ的矩阵函数库ＭａｔｒｉｘＶＢ的方法。
ＭａｔｒｉｘＶＢ是由原ＭａｔｈＴｏｏｌｓ公司开发的第三方插件，利用与ＭＡＴＬＡＢ相似的函数、语法嵌入到ＶＢ中，可以象使用ＶＢ的函数、命令一样使用ＭＡＴＬＡＢ函数。
这种方法语法和函数使用比较简单，编程效率很高，几乎完全融入ＶＢ语言，特别对图形的处理非常方便，弥补了其他方法在图形处理上的弱点。
安装后，只需在打开的工程中添加ＭａｔｒｉｘＶＢ库即可（在工程－＞引用对话框中选中ＭＭａｔｒｉｘ）。
但由于其仍然采用解释执行，执行效率较低，实时运算难以实现。
VB与MATLAB接口的实现
VB与MATLAB接口的实现今天，我们制作一个能够与Matlab进行交互的应用程序。
程序运行结果如图所示。
运行结果技术要点●引用Matlab库●执行Matlab命令●结束Matlab实现过程■新建项目打开Visual ，选择“新建项目”，在项目类型窗口中选择“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 AsSystem.EventArgs) Handles Command1.ClickDim matlab As Objectmatlab = 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()matlab = NothingShowPic()End Sub' 显示三维扇形图Private Sub Command2_Click(ByVal eventSender As System.Object, ByVal eventArgs AsSystem.EventArgs) Handles Command2.ClickDim matlab As Objectmatlab = CreateObject("matlab.application")str1 = "sale=[100 150 400 250];pie3(sale,[0 0 1 0],{'春季','夏季','秋季','冬季'})"matlab.Execute(str1)matlab.Execute("print( gcf, '-djpeg', 'c:\foo')")matlab.Quit()matlab = NothingShowPic()End Sub' 显示三维螺旋线图Private Sub Command3_Click(ByVal eventSender As System.Object, ByVal eventArgs AsSystem.EventArgs) Handles Command3.ClickDim matlab As Objectmatlab = CreateObject("matlab.application")str1 = "t=0:0.1:8*pi;plot3(sin(t),cos(t),t)"matlab.Execute(str1)matlab.Execute("print( gcf, '-djpeg', 'c:\foo')")matlab.Quit()matlab = NothingShowPic()End Sub' 显示立体球图Private Sub Command4_Click(ByVal eventSender As System.Object, ByVal eventArgs AsSystem.EventArgs) Handles Command4.ClickDim matlab As Objectmatlab = CreateObject("matlab.application")str1 = "k = 5;n = 2^k-1;[x,y,z] = sphere(n);c = hadamard(2^k);surf(x,y,z,c);"str1 = str1 & "colormap ([1 1 0; 0 1 1]);axis equal"matlab.Execute(str1)matlab.Quit()matlab = NothingShowPic()End Sub' 显示立体波浪图Private Sub Command5_Click(ByVal eventSender As System.Object, ByVal eventArgs AsSystem.EventArgs) Handles Command5.ClickDim matlab As Objectmatlab = CreateObject("matlab.application")str1 = "[X,Y,Z] = peaks(30);surfc(X,Y,Z);colormap hsv;axis ([-3 3 -3 3 -10 5])"matlab.Execute(str1)matlab.Execute("print( gcf, '-djpeg', 'c:\foo')")matlab.Quit()matlab = NothingShowPic()End Sub■运行程序单击菜单“调试|启动”或单击图标运行程序。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
VB和Matlab传递数据lb107VB和Matlab传递数据请问：我想将m函数文件编译成dll文件，在VB里面输入数据然后调用这个dll进行计算，这样能够实现吗？有兄弟有相关的例子没？网上VC调用Matlab的例子挺多的，但没有VB调用Matlab的例子。
谢谢指点。
2006-3-5 20:19 taoheRe:VB和Matlab传递数据VB调用DLL会不会很复杂？总感觉VB属于高级编程语言，在调用DLL方面不会比VC更难才对。
根据网上你发现的VC调用MATLAB产生的DLL的例子，大概了解MATLAB产生的DLL，然后在VB中调用，貌似应该顺理成章。
使用VB的话，一个好的方案可能是使用MATLAB产生的COM组件，而不是普通的DLL。
在ＶＢ中可以很方便地使用这些ＣＯＭ组件。
MATLAB的在线帮助有较详细的例子，不妨看看。
2006-3-5 23:01 bainhomeRe:VB和Matlab传递数据前一段儿看了看书，做过两个简单的，下面这个是其中之一(曾发在别的论坛上，转一下)，因最近实在是太忙,没有时间研究，所以比较基础，没有更加复杂的Trick 比如将VBtext中的数组作为COM的input、图形绘制等等，VB代码：[code] Private addn As addn.AddPrivate Sub Command1_Click()Dim x As DoubleDim y As Variantx = CDbl(Text1.Text)Call addn.numadd(1, y, x)Text2.Text = yEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_Load()Set addn = New addn.AddForm1.Caption = "VB调用MATLAB示例"Text1.Text = 2End Sub[/code][code] function y=numadd(x)y=2*x; [/code]COM组件调用格式：[code]call h.func(numout,arg1,arg2,...)[/code]MATLAB中的函数书写格式：[code][out1,out2,out3]=myfunc(arg1,arg2)[/code]则VB的调用应该为：[code]callobject.myfunc(3,out1inVB,out2inVB,out3inVB,arg1inVB,arg2inVB)[/code] “3”指的是输出变量的数目另外当多个版本的MATLAB在同一PC上时，VB只认其中一个版本产生的COM，不知道是不是环境变量设置的问题。
2006-3-6 09:41 lb107Re:VB和Matlab传递数据谢谢楼上二位的指点！！我的想法也是利用comtool直接将m文件编译成COM组件，然后在VB中调用实现应该是没有问题，但是在交换数据方面肯呢感有点难度，我只想找几个具体的例子看看其调用的根据体过程谢谢！！2006-3-6 19:53 taoheRe:VB和Matlab传递数据[quote][b]lb107 wrote:[/b]谢谢楼上二位的指点！！我的想法也是利用comtool直接将m文件编译成COM组件，然后在VB中调用实现应该是没有问题，但是在交换数据方面肯呢感有点难度，我只想找几个具体的例子看看其调用的根据体过程谢谢！！[/quote]如果用comtool也就是使用COM组件的话，事情就更好办了。
因为进入COM世界后，所有的数据都是VARIANT，而VB和COM是非常亲近的关系，在VB中使用COM比起其他语言比如C++来说显得更为轻松。
还得重复一下，matlab的在线帮助上关于COM组件的应用几乎全部是VB作为应用程序例子，不妨看看。
2006-3-6 20:05 lb107Re:VB和Matlab传递数据我的英语不太好taohe 老师能给一个具体的链接地址吗？？谢谢2006-3-6 20:46 taoheRe:VB和Matlab传递数据你指什么连接地址？我刚才说的在线帮助是matlab安装文档。
本来matlab的公司MathWorks的网站上有每次最新版的matlab的帮助文档连接。
不过现在MathWorks网站上的连接好像已经变成新版matlab R2006a的文档了。
所以只好看matlab安装后的在线帮助了。
matlab不知你用那个版本的matlab，不管那个版本，在matlab环境中运行doc，然后在出来的帮助文档中寻找相关的话题。
如果是matlab6.5.x的话，应该在matlab com builder，如果是matlab7.x的话应该是matlab builder for com。
里面有例子程序，如果VB好的话，应该没有问题的。
别怕英文。
可惜我是VB盲，无法给出具体的帮助。
Good luck!2006-3-6 22:40 lb107Re:VB和Matlab传递数据再次谢谢2006-3-12 21:35 godzilla2000cnRe:VB和Matlab传递数据如果matlab中生成的图片怎么传到VB里，也就是在VB中用什么控件来接收matlab的fig？？？2006-11-1 19:46 tian7tian大家好啊！我现在是将m文件组成com组件，还没搞定呢，总出现错误！2006-11-8 19:46 jimin看了bainhome版主的一个例子后，做了个vb调用matlab时隐藏matlab figure 的例子Private Sub Command1_Click()Dim objMATLAB As ObjectSet objMATLAB = CreateObject("matlab.application")Dim strEnter As StringDim strCommand As StringstrEnter = Chr(13) & Chr(10)strCommand = "figure('visible', 'off', 'Units','points','PaperUnits', 'points');" strCommand = strCommand & strEnterstrCommand = strCommand & "surf(peaks(25));"strCommand = strCommand & strEnterstrCommand = strCommand & "print -dmeta"strCommand = strCommand & strEnterstrCommand = strCommand & "close(gcf)"strCommand = strCommand & strEnterobjMATLAB.execute (strCommand)imgDraw.Picture = Clipboard.GetData()imgDraw.RefreshSet objMATLAB = NothingEnd Sub2006-11-12 10:42 WaitingForMeMatlab的代码或者窗口, 用combuilder编译以后, 可以直接在VB里面引用. 如果需要移植到其他计算机上, 需要在目标计算机上安装一个虚拟机, 大概8M大小. 2006-11-12 13:59 bainhome[quote]Matlab的代码或者窗口, 用combuilder编译以后, 可以直接在VB里面引用. 如果需要移植到其他计算机上, 需要在目标计算机上安装一个虚拟机, 大概8M大小.[/quote]前一句话已经基本实现，后一句话不太明白...什么虚拟机？还是java虚拟机吗(自己感觉不像)？请教一下^_^2006-11-29 19:23 tian7tian关于bainhome写的程序，我问个问题，关于function y=numadd（x）其中y定义为variant，x定义为double类型；是不是类型是固定的呢？x可以定义为string类型么？2006-12-11 14:43 tian7tian有哪位了解的话，有时间的话，给答复一下，谢谢了！！2006-12-31 01:24 WaitingForMe[quote]原帖由[i]bainhome[/i] 于2006-11-12 13:59 发表前一句话已经基本实现，后一句话不太明白...什么虚拟机？还是java虚拟机吗(自己感觉不像)？请教一下^_^ [/quote]Combuilder创建的程序，移植到没有安装Matlab的电脑上的时候，需要安装一个什么包，都忘了，这个是Matlab的帮助，自己看帮助吧MATLAB COM Builder: Overview: Packaging and Distributing the Component 2007-7-20 15:53 shiwenyaboaVB调用matlab我现在也在用，很简单，只需要matlab的m 文件是函数式的。
然后在VB里添加一些程序，下面是我的一个小例子，希望有所帮助：首先要声明：Dim matlab As ObjectDim mimag() As DoubleDim y11(1 To 1) As DoubleDim a11(1 To 1) As DoubleDim a22(1 To 1) As DoubleDim b11(1 To 1) As DoubleDim b22(1 To 1) As DoubleDim c11(1 To 1) As DoubleDim c22(1 To 1) As DoubleDim d11(1 To 1) As DoubleDim d22(1 To 1) As DoubleDim e11(1 To 1) As DoubleDim e22(1 To 1) As DoubleDim f11(1 To 1) As DoubleDim f22(1 To 1) As DoubleDim g11(1 To 1) As DoubleDim g22(1 To 1) As DoubleDim h11(1 To 1) As DoubleDim h22(1 To 1) As Double然后添加如下程序：Private Sub Command2_Click()If Check1.value = 1 Thena11(1) = Val(Text1.Text)a22(1) = Val(Text2.Text)ElseIf Check1.value = 0 ThenMin0(1) = 0Max0(1) = 12.7046a11(1) = Min0(1)a22(1) = Max0(1)End IfIf Check2.value = 1 Thenb11(1) = Val(Text3.Text)b22(1) = Val(Text4.Text)ElseIf Check2.value = 0 ThenMin1(1) = 0Max1(1) = 0.9792b11(1) = Min1(1)b22(1) = Max1(1)End IfIf Check3.value = 1 Thenc11(1) = Val(Text5.Text)c22(1) = Val(Text6.Text)ElseIf Check3.value = 0 ThenMin2(1) = 0Max2(1) = 38.6379c11(1) = Min2(1)c22(1) = Max2(1)End IfIf Check4.value = 1 Thend11(1) = Val(Text7.Text)d22(1) = Val(Text8.Text)ElseIf Check4.value = 0 ThenMin3(1) = 0Max3(1) = 0.9722d11(1) = Min3(1)d22(1) = Max3(1)End IfIf Check5.value = 1 Thene11(1) = Val(Text9.Text)e22(1) = Val(Text10.Text)ElseIf Check5.value = 0 ThenMin4(1) = 0Max4(1) = 74.0826e11(1) = Min4(1)e22(1) = Max4(1)End IfIf Check6.value = 1 Thenf11(1) = Val(Text11.Text)f22(1) = Val(Text12.Text)ElseIf Check6.value = 0 ThenMin5(1) = 0Max5(1) = 35.9669f11(1) = Min5(1)f22(1) = Max5(1)End IfIf Check7.value = 1 Theng11(1) = Val(Text13.Text)g22(1) = Val(Text14.Text)ElseIf Check7.value = 0 ThenMin6(1) = 0Max6(1) = 47.6757g11(1) = Min6(1)g22(1) = Max6(1)End IfIf Check8.value = 1 Thenh11(1) = Val(Text13.Text)h22(1) = Val(Text14.Text)ElseIf Check8.value = 0 ThenMin7(1) = 0Max7(1) = 0.9456h11(1) = Min7(1)h22(1) = Max7(1)End If'调用Matlab函数Set matlab = CreateObject("matlab.application")Call matlab.PutFullMatrix("a1", "base", a11, mimag)Call matlab.PutFullMatrix("a2", "base", a22, mimag)Call matlab.PutFullMatrix("b1", "base", b11, mimag)Call matlab.PutFullMatrix("b2", "base", b22, mimag)Call matlab.PutFullMatrix("c1", "base", c11, mimag)Call matlab.PutFullMatrix("c2", "base", c22, mimag)Call matlab.PutFullMatrix("d1", "base", d11, mimag)Call matlab.PutFullMatrix("d2", "base", d22, mimag)Call matlab.PutFullMatrix("e1", "base", e11, mimag)Call matlab.PutFullMatrix("e2", "base", e22, mimag)Call matlab.PutFullMatrix("f1", "base", f11, mimag)Call matlab.PutFullMatrix("f2", "base", f22, mimag)Call matlab.PutFullMatrix("g1", "base", g11, mimag)Call matlab.PutFullMatrix("g2", "base", g22, mimag)Call matlab.PutFullMatrix("h1", "base", h11, mimag)Call matlab.PutFullMatrix("h2", "base", h22, mimag)matlab.Execute("y=optimize1(a1,a2,b1,b2,c1,c2,d1,d2,e1,e2,f1,f2,g1,g2,h1,h2)")Call matlab.GetFullMatrix("y", "base", y11, mimag)Text17.Text = Str(y11(1))End Sub其中y=optimize1(a1,a2,b1,b2,c1,c2,d1,d2,e1,e2,f1,f2,g1,g2,h1,h2) 是我m文件的函数名。