网站大量收购独家精品文档,联系QQ:2885784924

VB调用matlab.doc

  1. 1、本文档共4页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
VB调用matlab

本来,VB与MATLAB混编的时候,我采用了VB+matrixVB的方法,常用的矩阵运算,是够用了的。但是在处理矩阵的LU三角分解的时候,发现matrixVB的三角分解形为:PA=LU。而非数值计算方法中的A=LU,想了半天,终于决定用matlab搞一下,发现在MATLAB中默认的LU分解就是matrixVB中的形式,于是狠狠心,自编函数,生成M文件,在MATLAB中终于实现了A=LU的三角分解,为了和VB混编,想到了com方法。 于是在MATLAB命令窗口中输入comtool ,调出combuilder,进行DLL的生成,结果呢,就这一个小小的念头,折腾了我一天。才终于成功,下面把我的心得给大家分享一下。 1.环境 (操作系统XP ,MATLAB7.0 ,VC++6.0) 开始,我并没有装VC++6.0,结果在编译DLL时总是提示找不到编译器,当然了是英文提示,大概有这么一句“Could not find the compiler cl on the DOS path。”后来我装了VS2005,问题同上,最后才装了VC++6.0,并在MATLAB命令窗口中输入 mbuild –setup ……………….省略多行提示  Would you like mbuild to locate installed compilers [y]/n?y(在此输入y)   Select a compiler:   [1] Lcc C version 2.4 in G:\MATLAB6P5\sys\lcc   [2] Microsoft Visual C/C++ version 6.0 in G:\Microsoft Visual Studio      [0] None    Compiler: 2(在此输入2) …………省略多行提示 Are these correct?([y]/n): y(在此输入y) 然后就可以成功的编译DLL了。我终于明白,原来这个编译器也是需要和MATLAB的版本匹配的。好像7.0可以用VC++5.0、6.0,或C++builder都可以编译成功。忘了是在网上看到的,还是在MATLAB的帮助中看到的了。 单击“Build”按钮后,Matlab将自动编译,COM组件在计算机中自动注册,如果需要将该组件在另一台计算机中使用,选择菜单中的“Component/Package Component”将得到distrib文件夹,它包含表4-1中所描述的几个文件,在目标计算机上运行这些文件就可以完成对COM组件的注册。最后调用VB系统,在目标工程中打开“工程(Project)”中的“引用(Reference)”对话框,选择“工程名”1.0 Type Library,在本项目中为gzkj 1.0 Type Library,即可以将Matlab中生成的COM组件引入到VB中。 这样以DLL文件为桥梁,用VB调用Matlab的M文件,就可以得到机器人末端和机器人总质心点位置的云图。 表4-1 应用Matlab COM Builder 生成的文件 文件 功能 组件名.exe 自解压可执行程序 _install.bat 自解压可执行程序所需要调用的批处理文件 组件名_项目版本.dll 已经编译成功的DLL文件 mglinstaller.exe 安装Matlab数学和图形库 mwcomutil.dll COM Builder应用库 mwregsvr.exe 在目标计算机上注册DLL 图4-3 COM生成器主窗口 图4-4 New Project Setting对话框 M文件 Function huitu(tdtmdx, tdtmdy, tdtmdz) i=1; plot3(tdtmdx,tdtmdy,tdtmdz,x,filled); xlabel(x坐标(mm),Fontsize,18);ylabel(y坐标(mm),Fontsize,18);zlabel(z坐标(mm),Fontsize,18); title( 名字,Fontsize,18); print(1,-djpeg,D:\MATLAB6p5\work\gdzt\gdsjrhtwz.jpeg); end Sub huitu(ByVal zxdx As Variant, ByVal zxdy As Variant, ByVal zxdz As Variant, ByVal tdtmdx As Variant, ByVal tdtmdy As Variant, ByVal tdtmdz As Variant, ByVal i As Variant) Dim thegzkj As gzkj.gzkj Set thegzkj = New gzkj.gzkj

文档评论(0)

xy88118 + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档