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

hahaysw

# `. C5 q2 |( V4 M" V
我用matlab 生成一个com 组件想在vb中调用，但自己没弄成，所以希望大家帮我看看问题出在哪里，我这有两个com 组件分别是dell 和untitled1分别有不同的功能 dell 是个解线性方程组的，难度较大。另外一个是求y=sqty(x)的简单com 组建 。我自己做了一个y=sqrt(x) 关键问题是不能显示出返回值来我的di二个com vb程序的类名是 gh1   这个com我也做了个程序 但是编辑框不能输入文字 请大家看看怎么了
% A( b2 _8 }- x! m$ o. c6 @第一个com 的类名是dell 我也做了个简单的调用vb程序 但没有定义其他变量
/ C: c% U( f) j3 |8 t* F, F0 z附件为保险我再重发一下
) S! M' o4 [( A" Y( E9 ? 第一个.zip (67.68 KB, 下载次数: 0)

2011-12-23 09:23 上传

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

第二个.zip (67.52 KB, 下载次数: 2)

2011-12-24 10:46 上传

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

" f# H* v  e$ D  a下面是我的第二个程序的代码

Private Sub Form_Load()

( h2 Q3 o* G6 P/ |
Dim x As Double
0 @5 L: I! m/ o4 }/ x7 sDim y As Variant
" k. M9 W0 D5 Q! x: N8 c6 z! ]3 IDim mat As gh1
* @0 w9 G! V$ t. bOn Error GoTo handle_error
8 w: Z  {- @1 M

, S* K1 h+ N. \- }; K0 }Set mat = New gh1
8 r+ X$ \3 E3 [; ?) j4 L4 ?x = 4
, T% x# v0 i7 b$ d& s: `y = 2
Call mat.gh(1, y, x)
Set mat = Nothing
Text2.Text = y

. x- M/ g# ], @/ Ehandle_error: MsgBox (Err.Description)

End Sub

Private Sub Text1_Change()
4 G6 t+ Z( p+ r0 d8 Q, A7 Z1 vx = CDbl(Text1.Text)
End Sub

6 R/ W& {/ k0 ^. e0 H1 A' KPrivate Sub Text2_Change()
Text2.Text = yEnd Sub
. ~0 C/ e7 J3 M6 r/ t$ t我估计是红字这，肯定错了但我也不知该改成什么 ，请高手帮忙。
本人 qq 1531145753  

hahaysw

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

sxjm567

顶下再看哈

hahaysw

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

hucchongzi