VB与MATLAB混合编程探讨

第三步，编译ＤＬＬ文件（强烈建议不要对刚刚生成的Ｃ代码作任何修改）。选择“编译”菜单，构建．ＤＬＬ文件，在文件夹中会生成与工程名相同的ＤＬＬ文件。

第四步，在ＶＢ中调用ＤＬＬ文件。在第二步生成的Ｃ代码中找到所要的接口函数，注意大小写，记下函数名。在ＶＢ中使用Ｄｅｃｌａｒｅ语句声明这个函数。在窗体的“通用－声明”输入如下语法：

Ｄｅｃｌａｒｅ Ｆｕｎｃｔｉｏｎ ／Ｓｕｂ ＜函

数名＞ Ｌｉｂ “＜ｄｌｌ文件名＞”Ａｌｉａｓ “＜函数名＞” ?＜参数表＞? ａｓ ＜ｔｙｐｅ＞（具体语法可参看ＶＢ使用手册）。

在程序代码中直接调用声明的函数即可。需要注意的是函数调用过程中的参数传递问题。由于ＶＢ和Ｃ的数据类型以及参数传递形式不太一样，传递不当，可能会造成调试困难。特别是ＭＡＴＬＡＢ中用到的大量矩阵（数组）参数，调用需十分当心。本文在下面例子中采用文件方式传递参数，利用ＶＢ和ＭＡＴＬＡＢ的文件读写功能传递数组参数，对于实时性要求不高的应用，可以方便稳妥地实现数据传递。

２ 应用举例

在ＶＢ中利用随机数生成１６个１０以内的整数，作为一个信号序列，利用ＭＡＴＬＡＢ的快速傅立叶变换函数（ＦＦＴ（））对序列进行变换，再将变换结果传递回ＶＢ，并显示在窗体上。

在ＭＡＴＬＡＢ中编辑好Ｍ文件（ｔｅｓｔ．ｍ），实现读取序列文件及ＦＦＴ并写回序列文件，调试成功。代码如下：

ｆｕｎｃｔｉｏｎ ｔ

ｆｉｄ＝ｆｏｐｅｎ?＇ｔ．ｔｘｔ＇?＇ｒｔ＋＇?? ％以读写文本方式打开

文件

?ａ?ｃｏｕｎｔ?＝ｆｓｃａｎｆ?ｆｉｄ?＇％ｄ＇?? ％文件以整数格式读入

矩阵ａ

ｍ＝ｆｆｔ?ａ?ｃｏｕｎｔ?? ％ＦＦＴ运算

ｆｒｅｗｉｎｄ?ｆｉｄ?? ％文件指针指向文件头

ｆｐｒｉｎｔｆ?ｆｉｄ?＇％ｆ＼ｎ＇?ｍ?? ％向文件写入矩阵ｍ

ｆｃｌｏｓｅ?ｆｉｄ??

按照前述步骤在ＶＣ＋＋中转换为ｔｅｓｔ．ｃ文件，找到接口函数，本例为ｍｌｆＴｅｓｔ（）。

ｖｏｉｄ ｍｌｆＴｅｓｔ（ｖｏｉｄ）{? ?

ｍｌｆＥｎｔｅｒＮｅｗＣｏｎｔｅｘｔ(０,０);??

Ｍｔｅｓｔ();

ｍｌｆＲｅｓｔｏｒｅＰｒｅｖｉｏｕｓＣｏｎｔｅｘｔ(０,０);?

}

编译生成ｔｅｓｔ．ｄｌｌ文件。

在ＶＢ中生成随机序列并写入文件：

Ｐｒｉｖａｔｅ Ｓｕｂ Ｃｏｍｍａｎｄ１＿Ｃｌｉｃｋ()

Ｒａｎｄｏｍｉｚｅ

Ｄｉｍ ｉ Ａｓ Ｉｎｔｅｇｅｒ

Ｄｉｍ ａ Ａｓ Ｉｎｔｅｇｅｒ

Ｄｉｍ ｂ Ａｓ Ｓｔｒｉｎｇ

Ｔｅｘｔ１．Ｔｅｘｔ ＝ ″″

Ｏｐｅｎ Ａｐｐ．Ｐａｔｈ ＆ ″＼ｔ．ｔｘｔ ″ Ｆｏｒ Ｏｕｔｐｕｔ Ａｓ ＃１

Ｆｏｒ ｉ ＝ １ Ｔｏ １６

ａ ＝ Ｉｎｔ(１０ * Ｒｎｄ)

《VB与MATLAB混合编程探讨(第2页)》