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

hahaysw

) G! T, V" B7 t) f( ?7 s我用matlab 生成一个com 组件想在vb中调用，但自己没弄成，所以希望大家帮我看看问题出在哪里，我这有两个com 组件分别是dell 和untitled1分别有不同的功能 dell 是个解线性方程组的，难度较大。另外一个是求y=sqty(x)的简单com 组建 。我自己做了一个y=sqrt(x) 关键问题是不能显示出返回值来我的di二个com vb程序的类名是 gh1   这个com我也做了个程序 但是编辑框不能输入文字 请大家看看怎么了
$ n$ {4 p6 f, c. V' j# }) f: r! L第一个com 的类名是dell 我也做了个简单的调用vb程序 但没有定义其他变量
$ R5 t. h2 ?" a% a( t9 c8 I5 L附件为保险我再重发一下
第一个.zip (67.68 KB, 下载次数: 0)

2011-12-23 09:23 上传

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

3 s7 a; Y! H) p" T3 }
" D% v; e) S3 P. J 第二个.zip (67.52 KB, 下载次数: 2)

2011-12-24 10:46 上传

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

5 a( q, E( r+ J下面是我的第二个程序的代码
$ O% Y1 ]; F# s$ ]
- ^% y5 U6 H) f6 IPrivate Sub Form_Load()
3 v; r% ?+ e3 v3 t8 |1 N

Dim x As Double
# ?3 z! u' u# ]9 s( EDim y As Variant
Dim mat As gh1
0 E5 I  v2 R3 {! B' P( f0 n8 HOn Error GoTo handle_error

1 C% E; x9 S: b# @% ]
+ n1 r2 p) k: [4 z# {* p- mSet mat = New gh1
x = 4
y = 2
5 [* v7 P9 s* ^. RCall mat.gh(1, y, x)
9 j! W* L" R# ?8 RSet mat = Nothing
Text2.Text = y
( R- h1 m& t3 \: M  F( u
7 d( v. y/ `+ hhandle_error: MsgBox (Err.Description)
4 [* O0 Q- x* B
! M. k* M0 j+ G4 ?End Sub
/ m! f1 F# y2 ~% J9 R8 ]
" v+ N/ r  l  G  [7 N7 }Private Sub Text1_Change()
, Y5 U* c7 c1 Yx = CDbl(Text1.Text)
+ s1 D8 X. {( t, X, ?End Sub

Private Sub Text2_Change()
Text2.Text = yEnd Sub
我估计是红字这，肯定错了但我也不知该改成什么 ，请高手帮忙。
$ j/ o! _6 t1 k0 I% G$ | 本人 qq 1531145753  

hahaysw

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

sxjm567

顶下再看哈

hahaysw

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

hucchongzi