请教：VB如何调用MATLAB的M文件

[wang24113]

请详细给个程序看看！谢谢！

[赵4老师]

不要做A语言代码修改为B语言代码的无用功。 也不要做用A语言代码直接调用B语言代码库这样复杂、这样容易出错的傻事。 只需让A、B语言代码的输入输出重定向到文本文件，或修改A、B语言代码让其通过文本文件输入输出。 即可很方便地让A、B两种语言之间协调工作。 比如： A将请求数据写到文件a.txt，写完后改名为aa.txt B发现aa.txt存在时，读取其内容，调用相应功能，将结果写到文件b.txt，写完后删除aa.txt，改名为bb.txt A发现bb.txt存在时，读取其内容，读完后删除bb.txt 以上A可以替换为任何一种开发语言或开发环境，B可以替换为任何一种与A不同的开发语言或开发环境。 除非A或B不支持判断文件是否存在、文件读写和文件更名。 但是谁又能举出不支持判断文件是否存在、文件读写和文件更名的开发语言或开发环境呢？

[wang24113]

十分感谢！但我只是个初学者，能不能麻烦写一下VB和matlab如何调用.txt文本的程序语句呢？？？

[赵4老师]

引用 2 楼 wang24113 的回复:

十分感谢！但我只是个初学者，能不能麻烦写一下VB和matlab如何调用.txt文本的程序语句呢？？？

matlab我没用过，你自己学吧。 vb6

Open 语句示例
本示例示范 Open 语句的不同用法来做到文件的输出与输入。

下列代码以顺序输入模式打开 TESTFILE 文件。

Open "TESTFILE" For Input As #1
' 若要以其他方式打开文件，必需先关闭此文件。
Close #1

下列代码以只允许写操作的二进制方式打开文件。

Open "TESTFILE" For Binary Access Write As #1
' 若要以其他方式打开文件，必需先关闭此文件。
Close #1

下列代码以随机方式打开文件，文件中含有用户自定义数据类型 Record 的记录。

Type Record   ' 定义用户自定义数据类型。
   ID As Integer
   Name As String * 20
End Type

Dim MyRecord As Record   ' 声明变量。
Open "TESTFILE" For Random As #1 Len = Len(MyRecord)
' 若要以其他方式打开文件，必需先关闭此文件。
Close #1

下列代码以顺序输出方式打开文件；任何过程都可以读写该文件。

Open "TESTFILE" For Output Shared As #1
' 若要以其他方式打开文件，必需先关闭此文件。
Close #1

下列代码以只允许读的二进制方式打开文件；其他过程不可以读该文件。

Open "TESTFILE" For Binary Access Read Lock Read As #1

[wang24113]

能给个实例吗？比如将已经存在的TXT数据，依次存入VB中对应的TEXT文本框中，文本框显示变化的数据，可以让其以一秒的时间间隔定时变化（timer控件）。

[王二.麻子]

Set mApp = CreateObject("Matlab.Application") cmd = "FunctionA('" & sourceFile & "','" & destFile & "')" mApp.execute cmd Set mApp = Nothing m文件应该放在mathlab默认的程序文件夹内。

[wang24113]

还是不太懂啊！

[wang24113]

有没有最新版的MATLAB版本，2010b以后的就行，我的电脑是64位的，我想用matlab的COM合成器。

[王二.麻子]

Set mApp = CreateObject("Matlab.Application") cmd = "clear all; a=1;b=[1,2,3]" mApp.execute cmd Set mApp = Nothing

[wang24113]

如何让MATLAB生成的图形显示在VB中，以下是VB部分代码，求大神帮忙啊！ Private Sub Command4_Click() Dim MatLab As Object '建立matlab应用 Set MatLab = CreateObject("matlab.application") 'matlab语句 Dim strplot As String strplot = "x=0:pi/100:2*pi;" & "y=2*exp(-0.5*x).*cos(4*pi*x);" & "plot(x,y)" '执行matlab算法 MatLab.Execute (strplot) '生成一个JPG的图形c:\Test1.jpg MatLab.Execute ("print( gcf, '-djpeg', 'c:\Test1')") '退出matlab,释放资源 Set MatLab = Nothing '显示在图片框 ' PictureBox1.Image = NewBitmap("c:\Test1.jpg") End Sub