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

hahaysw

! v+ `5 o1 [+ {" j" f5 Q. }
我用matlab 生成一个com 组件想在vb中调用，但自己没弄成，所以希望大家帮我看看问题出在哪里，我这有两个com 组件分别是dell 和untitled1分别有不同的功能 dell 是个解线性方程组的，难度较大。另外一个是求y=sqty(x)的简单com 组建 。我自己做了一个y=sqrt(x) 关键问题是不能显示出返回值来我的di二个com vb程序的类名是 gh1   这个com我也做了个程序 但是编辑框不能输入文字 请大家看看怎么了
第一个com 的类名是dell 我也做了个简单的调用vb程序 但没有定义其他变量
' g+ B. h# u; I- p1 ~/ `! W+ [附件为保险我再重发一下
第一个.zip (67.68 KB, 下载次数: 0)

2011-12-23 09:23 上传

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

# u* u/ U% L" h9 V2 o' |5 O4 r
第二个.zip (67.52 KB, 下载次数: 2)

2011-12-24 10:46 上传

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

下面是我的第二个程序的代码

/ U& ^. @6 A$ X6 aPrivate Sub Form_Load()
3 I3 c/ _1 q: W8 D0 A0 f2 X; {, {) D

, Y) x# L7 Y# I1 ~  B" b- xDim x As Double
: c* Y8 j3 P2 ^1 R; a4 z2 lDim y As Variant
4 c4 N! t* T, o3 I/ \! y% PDim mat As gh1
On Error GoTo handle_error

( {+ g( r( F- u1 p) P
% A# b/ E4 C" C1 FSet mat = New gh1
x = 4
" ~5 p& U- K" {& ?: O9 {y = 2
Call mat.gh(1, y, x)
Set mat = Nothing
/ g) t2 L8 s  z2 l8 sText2.Text = y

5 h# e+ d" P  M% L! f( uhandle_error: MsgBox (Err.Description)
9 c+ [) c1 [9 z9 @! M5 d- x, U
* W# `' s0 j+ O6 H" V1 ^End Sub

- F! O3 Q1 M% M9 ?5 ~Private Sub Text1_Change()
x = CDbl(Text1.Text)
End Sub
' s- Z& ]/ }) L+ \
4 Y1 w8 h3 f, d  v, _" tPrivate Sub Text2_Change()
Text2.Text = yEnd Sub
我估计是红字这，肯定错了但我也不知该改成什么 ，请高手帮忙。
, K$ n' i0 a3 v7 h; ~  n3 O& h, K3 G- ^ 本人 qq 1531145753  

hahaysw

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

sxjm567

顶下再看哈

hahaysw

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

hucchongzi