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

hahaysw

/ m5 U6 [  I6 D" i: j- C7 `3 }
我用matlab 生成一个com 组件想在vb中调用，但自己没弄成，所以希望大家帮我看看问题出在哪里，我这有两个com 组件分别是dell 和untitled1分别有不同的功能 dell 是个解线性方程组的，难度较大。另外一个是求y=sqty(x)的简单com 组建 。我自己做了一个y=sqrt(x) 关键问题是不能显示出返回值来我的di二个com vb程序的类名是 gh1   这个com我也做了个程序 但是编辑框不能输入文字 请大家看看怎么了
第一个com 的类名是dell 我也做了个简单的调用vb程序 但没有定义其他变量
附件为保险我再重发一下
/ M, E) `9 E( Z6 h' Q% ? 第一个.zip (67.68 KB, 下载次数: 0)

2011-12-23 09:23 上传

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

6 S# W3 j# v2 f; C! H9 G' Z 第二个.zip (67.52 KB, 下载次数: 2)

2011-12-24 10:46 上传

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

下面是我的第二个程序的代码
: F! |- }2 d* W/ n6 z* E4 |: P
Private Sub Form_Load()

: @" Q% N$ w. a0 J% n1 `) p
Dim x As Double
Dim y As Variant
* U- a( F7 n5 C* A, s8 NDim mat As gh1
" ^8 v7 Q" M3 S3 L, q9 R; m! C5 S) ~On Error GoTo handle_error


& p- l# O. b& r4 |Set mat = New gh1
x = 4
y = 2
" a! Q9 ?1 ]8 ECall mat.gh(1, y, x)
( ^$ S' a4 X( b# ?! T+ _9 cSet mat = Nothing
8 O) X, k# t2 LText2.Text = y
1 P1 J, |6 s6 a3 y
3 p9 l4 j% h) u. k( ?handle_error: MsgBox (Err.Description)
+ q6 t- Y+ O2 j$ N9 x" r% K
End Sub
1 \1 X8 c5 {6 z
Private Sub Text1_Change()
x = CDbl(Text1.Text)
; L. M3 w, Z9 T. p1 n% O2 XEnd Sub
% f' ]1 q: I8 d' H) t
Private Sub Text2_Change()
8 o* j$ s6 q! F( n9 W/ M" dText2.Text = yEnd Sub
; G* b. t$ h* W8 \我估计是红字这，肯定错了但我也不知该改成什么 ，请高手帮忙。
* Z1 p0 L( `5 ~5 g# ] 本人 qq 1531145753  

hahaysw

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

sxjm567

顶下再看哈

hahaysw

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

hucchongzi