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

hahaysw

5 S/ V7 W% p4 x# H- I我用matlab 生成一个com 组件想在vb中调用，但自己没弄成，所以希望大家帮我看看问题出在哪里，我这有两个com 组件分别是dell 和untitled1分别有不同的功能 dell 是个解线性方程组的，难度较大。另外一个是求y=sqty(x)的简单com 组建 。我自己做了一个y=sqrt(x) 关键问题是不能显示出返回值来我的di二个com vb程序的类名是 gh1   这个com我也做了个程序 但是编辑框不能输入文字 请大家看看怎么了
3 ]+ R! o$ Y/ S8 m- L第一个com 的类名是dell 我也做了个简单的调用vb程序 但没有定义其他变量
附件为保险我再重发一下
7 U: k9 f7 v9 k7 F' d 第一个.zip (67.68 KB, 下载次数: 0)

2011-12-23 09:23 上传

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

9 A: G, q- b4 w% ?
第二个.zip (67.52 KB, 下载次数: 2)

2011-12-24 10:46 上传

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

- ~6 Q0 b- _- n' N9 Q下面是我的第二个程序的代码

' ?5 g- S. @4 r2 hPrivate Sub Form_Load()


6 O1 n. R' k: GDim x As Double
Dim y As Variant
Dim mat As gh1
' G& t" p- q3 T. @On Error GoTo handle_error


2 X+ J, G8 ]: x" lSet mat = New gh1
x = 4
( v/ K" x6 N9 U" Jy = 2
Call mat.gh(1, y, x)
6 L/ M* y, D3 a1 PSet mat = Nothing
5 v: L7 B: h! N2 y; eText2.Text = y
5 c- z" F: G( l; c' P7 J. ]
handle_error: MsgBox (Err.Description)
+ X8 t# |' \; r! x# \
End Sub
0 K- y6 T' J( c6 C' X
6 H- l! i- z6 C6 BPrivate Sub Text1_Change()
x = CDbl(Text1.Text)
" M1 F2 b2 K1 _3 Q5 N$ I" {4 D: kEnd Sub
7 _  g; w& T/ X+ {& _
Private Sub Text2_Change()
* n2 [4 C3 J0 XText2.Text = yEnd Sub
我估计是红字这，肯定错了但我也不知该改成什么 ，请高手帮忙。
本人 qq 1531145753  

hahaysw

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

sxjm567

顶下再看哈

hahaysw

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

hucchongzi