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

hahaysw

我用matlab 生成一个com 组件想在vb中调用，但自己没弄成，所以希望大家帮我看看问题出在哪里，我这有两个com 组件分别是dell 和untitled1分别有不同的功能 dell 是个解线性方程组的，难度较大。另外一个是求y=sqty(x)的简单com 组建 。我自己做了一个y=sqrt(x) 关键问题是不能显示出返回值来我的di二个com vb程序的类名是 gh1   这个com我也做了个程序 但是编辑框不能输入文字 请大家看看怎么了
' O+ K) d  n6 w" P+ i' K9 m6 y5 \第一个com 的类名是dell 我也做了个简单的调用vb程序 但没有定义其他变量
附件为保险我再重发一下
3 }# Z, n% a0 g2 g 第一个.zip (67.68 KB, 下载次数: 0)

2011-12-23 09:23 上传

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

0 `1 E" p+ T* ~0 M& B
第二个.zip (67.52 KB, 下载次数: 2)

2011-12-24 10:46 上传

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

; n4 S! L4 m" e下面是我的第二个程序的代码
1 T3 C1 B+ J4 }* h: J6 f& c2 ^# `
Private Sub Form_Load()


Dim x As Double
Dim y As Variant
Dim mat As gh1
3 r% e1 T. n1 G9 s+ g" K7 ]On Error GoTo handle_error
/ Q, A& K/ E8 e0 e3 b
0 U+ ^2 y( |& u1 G  }
7 S2 P& R. h: B& {Set mat = New gh1
) _! h7 P$ A+ O9 V+ `7 T5 D6 Ux = 4
7 h$ `) ~: P% E6 h; c4 s# `y = 2
2 i. @& f/ u: ~1 S$ XCall mat.gh(1, y, x)
5 {" p/ p5 O+ D: G/ L7 r: {Set mat = Nothing
Text2.Text = y
( X- N8 h5 I) ^2 u) B& k7 E2 |
( V' ?/ |% k2 Jhandle_error: MsgBox (Err.Description)
5 U) v2 [: Q1 }: @+ n
7 h; Z, T0 ]$ o3 bEnd Sub
7 {7 s: |- a* E# \% l7 A0 V
Private Sub Text1_Change()
/ ?/ S+ A3 r  @" kx = CDbl(Text1.Text)
& r) N* P8 o5 M, @  F, tEnd Sub
+ @0 z# q4 O+ f0 }/ @4 |) R; z/ u
$ a' H  l" i/ a$ yPrivate Sub Text2_Change()
1 r4 E7 w# U) P# T0 O9 KText2.Text = yEnd Sub
我估计是红字这，肯定错了但我也不知该改成什么 ，请高手帮忙。
: {" ?, }6 d8 U% A- G" z' ^ 本人 qq 1531145753  

hahaysw

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

sxjm567

顶下再看哈

hahaysw

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

hucchongzi