vb调用matlab

神秘了一场雨

Private Sub Command1_Click()
Dim str1 As String
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName
str1 = "a=load('" & Text1.Text & "');"
End Sub
Private Sub Command2_Click()
Dim matlab As Object
Set matlab = CreateObject("Matlab.application")
Clipboard.Clear
matlab.Execute ("n(5)=0;")
matlab.Execute ("str1")
matlab.Execute ("b=a(:,10);m=length(b);")
matlab.Execute ("for i=1:1:m")
matlab.Execute ("if abs(b(i))>100")
matlab.Execute ("n(1)=n(1)+1;")
matlab.Execute ("elseif abs(b(i))>50.8 & abs(b(i))<=100")
matlab.Execute ("n(2)=n(2)+1;")
matlab.Execute ("elseif abs(b(i))>15.8 & abs(b(i))<=50.8")
matlab.Execute ("n(3)=n(3)+1;")
matlab.Execute ("elseif abs(b(i))>10.1 & abs(b(i))<=15.8")
matlab.Execute ("n(4)=n(4)+1;")
matlab.Execute ("elseif abs(b(i))>0 & abs(b(i))<=10.1")
matlab.Execute ("n(5)=n(5)+1;")
matlab.Execute ("end")
matlab.Execute ("end")
matlab.Execute ("set(gcf,'visible','off'),pie(n);legend('100KA 以上','50.8-100KA','15.8-50.8KA','10.1-15.8KA','0-10.1KA',-1);")
matlab.Execute ("set(gcf,'color','w');print(gcf,'-dmeta')")
Picture1.Picture = Clipboard.GetData()
End Sub



求朋友们指点一下，为什么出的图是错的。。

syldcf

回去好好看VB书吧~~不懂~

mofangbao

好像你之前发过吧？

神秘了一场雨

mofangbao 发表于 2013-8-19 08:55

                               
登录/注册后可看大图

好像你之前发过吧？

对啊，之前是普通的帖，没有人回，这不悬赏了。
不知道清风大哥对这程序中出现的问题有什么看法？

mofangbao

神秘了一场雨 发表于 2013-8-19 09:36

                               
登录/注册后可看大图

对啊，之前是普通的帖，没有人回，这不悬赏了。
不知道清风大哥对这程序中出现的问题有什么看法？

这两个语言我都没怎么用过

换个名字

没用过VB...

wangzhichun

用 shell命令不是可以实现吗？

神秘了一场雨

wangzhichun 发表于 2015-7-14 14:36
用 shell命令不是可以实现吗？

已经解决了哦，不过还是谢谢你的意见