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

hahaysw

: Z& f( W6 B0 D+ ^0 |6 Q  J$ V# V, ^我用matlab 生成一个com 组件想在vb中调用，但自己没弄成，所以希望大家帮我看看问题出在哪里，我这有两个com 组件分别是dell 和untitled1分别有不同的功能 dell 是个解线性方程组的，难度较大。另外一个是求y=sqty(x)的简单com 组建 。我自己做了一个y=sqrt(x) 关键问题是不能显示出返回值来我的di二个com vb程序的类名是 gh1   这个com我也做了个程序 但是编辑框不能输入文字 请大家看看怎么了
% D% o% b! P1 q5 {* R) ~第一个com 的类名是dell 我也做了个简单的调用vb程序 但没有定义其他变量
% k, A) z" c; l( g4 R附件为保险我再重发一下
  A" ~$ X# R6 ^: Z" A+ O) c 第一个.zip (67.68 KB, 下载次数: 0)

2011-12-23 09:23 上传

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

2 f8 E. m0 x# A, c% G. e
第二个.zip (67.52 KB, 下载次数: 2)

2011-12-24 10:46 上传

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

* p1 I# ~: {# C) U: H$ `下面是我的第二个程序的代码

Private Sub Form_Load()
) `3 b. I7 u; j, i* N) y
. F9 Z! B( N9 @$ i5 a5 q  s
Dim x As Double
Dim y As Variant
) r, ]# X1 w$ V& ODim mat As gh1
% c4 u1 F  d; V6 B( @  C1 e0 `On Error GoTo handle_error
: L# C0 J, H& X. p9 V; o2 h/ p' H

Set mat = New gh1
x = 4
" d8 U4 z# r6 N. |y = 2
Call mat.gh(1, y, x)
* E8 s! O) m' b- i4 LSet mat = Nothing
Text2.Text = y
) M: \' z8 ?$ U3 H) Q9 m9 I; F" b7 P
! y4 O# H( U3 @1 rhandle_error: MsgBox (Err.Description)
# Q- W( d  ^1 M6 s4 v
End Sub

8 a- o% [! m2 F" B, x6 VPrivate Sub Text1_Change()
0 N7 {5 z! r( J. N% b: px = CDbl(Text1.Text)
End Sub

& W0 h7 w( x' w1 G# |) R. pPrivate Sub Text2_Change()
Text2.Text = yEnd Sub
我估计是红字这，肯定错了但我也不知该改成什么 ，请高手帮忙。
本人 qq 1531145753  

hahaysw

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

sxjm567

顶下再看哈

hahaysw

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

hucchongzi