求助 vb 调用matlab 编好的com 组件 有关解线性方程组的

hahaysw

' T" n# i1 C& ]! J7 J1 r
9 X& Y0 G8 S$ T1 u$ V; s( K我用matlab 生成一个com 组件想在vb中调用，但自己没弄成，所以希望大家帮我看看问题出在哪里，我这有两个com 组件分别是dell 和untitled1分别有不同的功能 dell 是个解线性方程组的，难度较大。另外一个是求y=sqty(x)的简单com 组建 。我自己做了一个y=sqrt(x) 关键问题是不能显示出返回值来我的di二个com vb程序的类名是 gh1   这个com我也做了个程序 但是编辑框不能输入文字 请大家看看怎么了
6 C) k+ Y1 i( ^. f. J1 X) i1 a第一个com 的类名是dell 我也做了个简单的调用vb程序 但没有定义其他变量
% p0 u2 z& Y" }8 o  ~2 _: O9 H附件为保险我再重发一下
- E. [% z  U& ]9 _ 第一个.zip (67.68 KB, 下载次数: 0)

2011-12-23 09:23 上传

点击文件名下载附件
第一个
下载积分: 体力 -2 点

! G/ v- d9 c% V! h 第二个.zip (67.52 KB, 下载次数: 2)

2011-12-24 10:46 上传

点击文件名下载附件
第二个
下载积分: 体力 -2 点

下面是我的第二个程序的代码
5 v: Z9 @" Z+ f
$ t$ n$ W2 l7 ]& X% M8 l3 I. {Private Sub Form_Load()

* e. V% F- `& N. D7 O# C
9 R* H5 ^5 `. pDim x As Double
& `, Y# R) n9 y7 z8 p6 o: k1 K: @9 cDim y As Variant
  I- b% U& q# o  PDim mat As gh1
7 x& m; U. E# c$ j! U$ zOn Error GoTo handle_error
  o5 q6 E( m" m, Z
6 e- I& O2 v) o3 R/ ~/ m% R
9 y/ B: g6 g# v5 Q3 y5 r3 e& NSet mat = New gh1
) f3 ?& I" f- H. R$ w) I) l! jx = 4
# C; i8 F& ~, L6 c5 {. x* ?  Cy = 2
Call mat.gh(1, y, x)
+ T/ u/ L5 I/ g0 ^! CSet mat = Nothing
Text2.Text = y
; v: U; k" W9 P
handle_error: MsgBox (Err.Description)

End Sub
8 b) }9 i" V7 }1 @
( M1 O4 B* ]. `! V3 K" y5 ZPrivate Sub Text1_Change()
  j6 Z  k5 Q# t, @- Ex = CDbl(Text1.Text)
End Sub
1 Y3 X9 P" E, |8 z5 R
Private Sub Text2_Change()
" c) ]6 p# m6 a" t5 \4 `, PText2.Text = yEnd Sub
我估计是红字这，肯定错了但我也不知该改成什么 ，请高手帮忙。
本人 qq 1531145753  

hahaysw

大家好我的那个问题是终于解决了，我就不悬赏了。

sxjm567

顶下再看哈

hahaysw

这个我解决了，在matalb 中文论坛里有我解决的相关文件

hucchongzi