vb调用matlab问题

xueliang19 · 发表于 2006-3-29 19:10

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？我要加入

x

我在用VB调用MATLAB程序时，代码如下： Private Sub Command1_Click() Dim Matlab As Object Dim result As String Set Matlab = CreateObject("Matlab.application") result = Matlab.execute("zheng") result = Matlab.execute("print-dbitmap") Image1.Picture = Clipboard.GetData() End Sub 图象显示为一个个彩色的方格，应该为一个一个正弦曲线呀。到底怎么回事，请各位大侠指导。急用呀。

happy · 发表于 2006-3-29 20:40

<DIV class=quote>以下是引用xueliang19在2006-3-29 19:10:47的发言： 我在用VB调用MATLAB程序时，代码如下： Private Sub Command1_Click() Dim Matlab As Object Dim result As String Set Matlab = CreateObject("Matlab.application") result = Matlab.execute("zheng") result = Matlab.execute("print-dbitmap") Image1.Picture = Clipboard.GetData() End Sub 图象显示为一个个彩色的方格，应该为一个一个正弦曲线呀。到底怎么回事，请各位大侠指导。急用呀。 </DIV>
这是什么？

xueliang19 · 发表于 2006-3-30 11:12

result = Matlab.execute("zheng")此语句是调用文件“zheng.m”，文件“zheng.m”是生成一个正弦曲线的文件。不好意思，没有说清楚。

happy · 发表于 2006-3-30 18:31

不懂vb，给你转个调用的例子吧 Dim strMatLab As String '定义matlab语句字符串
 ' 显示正弦图
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 Dim MatLab As Object
 '建立matlab应用
 MatLab = CreateObject("matlab.application")
 '最小化matlab命令窗口
 MatLab.MinimizeCommandWindow()
 'matlab语句
 strMatLab = "t=2:0.2:4*pi;y=sin(t);plot(t,y)"
 '执行matlab算法
 matlab.Execute(strMatLab)
 '生成一个JPG的图形c:\Test1.jpg
 matlab.Execute("print( gcf, '-djpeg', 'c:\Test1')")
 '退出matlab,释放资源
 matlab.Quit()
 MatLab = Nothing
 '显示在图片框
 PictureBox1.Image = New Bitmap("c:\Test1.jpg")
End Sub
 
 ' 显示饼图
 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
 Dim matlab As Object
 matlab = CreateObject("matlab.application")
 strMatLab = "sale=[100 400 150 250 500];pie3(sale,[0 0 1 0 0],{'公司A','公司B','公司C','公司D','公司E'})"
 matlab.Execute(strMatLab)
 matlab.Execute("print( gcf, '-djpeg', 'c:\Test2')")
 matlab.Quit()
 matlab = Nothing
 PictureBox1.Image = New Bitmap("c:\Test2.jpg")
 End Sub
 
 ' 显示三维螺旋线图
 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
 Dim matlab As Object
 matlab = CreateObject("matlab.application")
 strMatLab = "t=0:0.2:4*pi;plot3(sin(t),cos(t),t)"
 matlab.Execute(strMatLab)
 matlab.Execute("print( gcf, '-djpeg', 'c:\Test3')")
 matlab.Quit()
 matlab = Nothing
 PictureBox1.Image = New Bitmap("c:\Test3.jpg")
End Sub
 
 ' 显示立体波浪图
 Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
 Dim matlab As Object
 matlab = CreateObject("matlab.application")
 strMatLab = "[X,Y,Z] = peaks(20);surfc(X,Y,Z);colormap hsv;axis ([-2 4 -6 8 -10 6])"
 matlab.Execute(strMatLab)
 matlab.Execute("print( gcf, '-djpeg', 'c:\Test5')")
 matlab.Quit()
 matlab = Nothing
 PictureBox1.Image = New Bitmap("c:\Test5.jpg")
 End Sub
 
 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
End Sub

happy · 发表于 2006-3-30 18:39

利用ＡｃｔｉｖｅＸ协议实现从ＶｉｓｕａｌＢａｓｉｃ6.0调用Ｍａｔｌａｂ绘制一个温度场 三维曲面图的例子,详细程序如下: ＰｕｂｌｉｃＳｕｂＭａｔｌａｂＴｅｓｔ(ＴｅｍｐＦｉｅｌｄ() ａｓｄｏｕｂｌｅ, ＴｅｍｐＷｉｄｔｈａｓＩｎｔｅｇｅｒ, _ ＴｅｍｐＨｅｉｇｈｔａｓＩｎｔｅｇｅｒ, _ Ｔｅｍｐ3ＤＦｉｌｅＡｓＳｔｒｉｎｇ, ＴｅｍｐＣｏｎｔｏｕｒＦｉｌｅＡｓＳｔｒｉｎｇ) ＤｉｍＭａｔｌａｂＡｓＯｂｊｅｃｔ ＤｉｍＲｅｓｕｌｔＡｓＳｔｒｉｎｇ ＤｉｍＩ() ＡｓＤｏｕｂｌｅ ＤｉｍＷｉｄｔｈ(1Ｔｏ1) ＡｓＤｏｕｂｌｅ ＤｉｍＨｅｉｇｈｔ(1Ｔｏ1) ＡｓＤｏｕｂｌｅ ＳｅｔＭａｔｌａｂ=ＣｒｅａｔＯｂｊｅｃｔ(“Ｍａｔｌａｂ.Ａｐｐｌｉｃａｔｉｏｎ”) ＣａｌｌＭａｔｌａｂ.ＭｉｎｉｍｉｚｅＣｏｍｍａｎｄＷｉｎｄｏｗ() Ｗｉｄｔｈ(1)=ＴｅｍｐＷｉｄｔｈ Ｈｅｉｇｈｔ(1)=ＴｅｍｐＨｅｉｇｈｔ ＣａｌｌＭａｔｌａｂ.ＰｕｔＦｕｌｌＭａｔｒｉｘ(“ｗ”,“ｂａｓｅ”,Ｗｉｄｔｈ,Ｉ) ＣａｌｌＭａｔｌａｂ.ＰｕｔＦｕｌｌＭａｔｒｉｘ(“ｈ”,“ｂａｓｅ”,Ｈｅｉｇｈｔ,Ｉ) Ｒｅｓｕｌｔ=Ｍａｔｌａｂ.Ｅｘｅｃｕｔｅ(“[ｙ,ｘ]=ｍｅｓｈｇｒｉｄ(1:1:ｈ,1:1:ｗ)”) ＣａｌｌＭａｔｌａｂ.ＰｕｔＦｕｌｌＭａｔｒｉｘ(“ｚ”,“ｂａｓｅ”, ＴｅｍｐＦｉｅｌｄ,Ｉ) Ｒｅｓｕｌｔ=Ｍａｔｌａｂ.Ｅｘｅｃｕｔｅ(“ｓｕｒｆ(ｘ,ｙ,ｚ)”) Ｒｅｓｕｌｔ=Ｍａｔｌａｂ.Ｅｘｅｃｕｔｅ(“ｐｒｉｎｔｆ1 ｄｂｉｔｍａｐ ｃ:\ｆｌａｍｅ.ｂｍｐ”) ＦｉｌｅＣｏｐｙ“ｃ:\ｆｌａｍｅ.ｂｍｐ”,Ｔｅｍｐ3ＤＦｉｌｅ Ｒｅｓｕｌｔ=Ｍａｔｌａｂ.Ｅｘｅｃｕｔｅ(“Ｃｏｎｔｏｕｒ(ｘ,ｙ,ｚ)”) Ｒｅｓｕｌｔ=Ｍａｔｌａｂ.Ｅｘｅｃｕｔｅ(“ｐｒｉｎｔｆ1 ｄｂｉｔｍａｐ ｃ:\ｆｌａｍｅ.ｂｍｐ”) ＦｉｌｅＣｏｐｙ“ｃ:\ｆｌａｍｅ.ｂｍｐ”,ＴｅｍｐＣｏｎｔｏｕｒＦｉｌｅ Ｋｉｌｌ“ｃ:\ｆｌａｍｅ.ｂｍｐ” ＣａｌｌＭａｔｌａｂ.ｑｕｉｔ ＳｅｔＭａｔｌａｂ=Ｎｏｔｈｉｎｇ ＥｎｄＳｕｂ

zhdgzhdg · 发表于 2006-3-30 18:44

用MatrixVB更好。

xueliang19 · 发表于 2006-4-7 18:26

对于我前些天写的那个程序，我知道毛病了，是出在print-dbitmap上面，原因是print和-dbitmap中间有个空格。由于粗心给写到一起了。不好意思，耽误大家的时间了。

账号		自动登录	找回密码
密码			我要加入

vb调用matlab问题

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

回复：（xueliang19）vb调用matlab问题

回复：（xueliang19）vb调用matlab问题

回复：（xueliang19）vb调用matlab问题

谢谢大家！