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

hahaysw

! w" Z3 i9 m+ G  E- x0 P+ }; `
% Z4 m8 \: x+ B3 K我用matlab 生成一个com 组件想在vb中调用，但自己没弄成，所以希望大家帮我看看问题出在哪里，我这有两个com 组件分别是dell 和untitled1分别有不同的功能 dell 是个解线性方程组的，难度较大。另外一个是求y=sqty(x)的简单com 组建 。我自己做了一个y=sqrt(x) 关键问题是不能显示出返回值来我的di二个com vb程序的类名是 gh1   这个com我也做了个程序 但是编辑框不能输入文字 请大家看看怎么了
* q/ ^! Y3 Z3 t( ?' H0 q: H2 N4 p第一个com 的类名是dell 我也做了个简单的调用vb程序 但没有定义其他变量
附件为保险我再重发一下
7 l' q5 C0 U! z" P& @ 第一个.zip (67.68 KB, 下载次数: 0)

2011-12-23 09:23 上传

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

  q! J9 h. P; {% Q3 p8 d: e  e
第二个.zip (67.52 KB, 下载次数: 2)

2011-12-24 10:46 上传

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

下面是我的第二个程序的代码
) Z/ ?. x9 X$ w( h3 k
8 W3 ]3 L" ]5 }& r* |3 JPrivate Sub Form_Load()

+ ~* }* W9 v% i$ e( o# t' G% A
+ A6 l4 x! T1 lDim x As Double
4 l: W, x8 @) U! e/ `Dim y As Variant
Dim mat As gh1
On Error GoTo handle_error


Set mat = New gh1
x = 4
! B$ c/ R) V8 J9 V% j: Ey = 2
Call mat.gh(1, y, x)
Set mat = Nothing
4 N# i8 |% p5 A% t7 |Text2.Text = y
- z; M2 L! _* @! k" g( P* m
$ t1 K8 ]# A. W" f; l/ Vhandle_error: MsgBox (Err.Description)

" O- q. H7 s5 cEnd Sub

0 _; X1 Z% P, i+ w1 {2 wPrivate Sub Text1_Change()
x = CDbl(Text1.Text)
. o! W+ [9 k  `0 BEnd Sub
7 H8 r0 f$ v6 E1 Z6 k' M
* L, T$ f/ d5 \& v! }! B) jPrivate Sub Text2_Change()
Text2.Text = yEnd Sub
% b/ B- I; A/ V1 k2 l* {* }+ i7 w我估计是红字这，肯定错了但我也不知该改成什么 ，请高手帮忙。
本人 qq 1531145753  

hahaysw

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

sxjm567

顶下再看哈

hahaysw

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

hucchongzi