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

hahaysw

: `; T- n" j6 m4 V2 \) R5 r- c
我用matlab 生成一个com 组件想在vb中调用，但自己没弄成，所以希望大家帮我看看问题出在哪里，我这有两个com 组件分别是dell 和untitled1分别有不同的功能 dell 是个解线性方程组的，难度较大。另外一个是求y=sqty(x)的简单com 组建 。我自己做了一个y=sqrt(x) 关键问题是不能显示出返回值来我的di二个com vb程序的类名是 gh1   这个com我也做了个程序 但是编辑框不能输入文字 请大家看看怎么了
/ ?& O- ?5 ^/ S- @: s7 u  `" @3 |% A第一个com 的类名是dell 我也做了个简单的调用vb程序 但没有定义其他变量
8 k' n- V4 O4 j7 i- |附件为保险我再重发一下
第一个.zip (67.68 KB, 下载次数: 0)

2011-12-23 09:23 上传

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

7 X# V+ t/ p# F
第二个.zip (67.52 KB, 下载次数: 2)

2011-12-24 10:46 上传

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

下面是我的第二个程序的代码
3 y* T; Z& l& W9 o1 `
Private Sub Form_Load()
7 h, o; K4 n& @" ^" I
5 b9 J- H0 e1 f% \% q: |, K9 H
( x9 K. ]' u3 s3 f* u' M  kDim x As Double
+ d! S7 z, D0 SDim y As Variant
9 k' d# a3 E5 h( |Dim mat As gh1
On Error GoTo handle_error
! k  K& f3 w5 E; S& F9 x( V
4 R7 v+ D8 I' f) P8 U+ x
Set mat = New gh1
2 H% T8 ]+ @/ l+ x1 E1 {! f3 Bx = 4
y = 2
3 R* y. u) l6 q) N; r2 pCall mat.gh(1, y, x)
* C; Z0 Y" @3 \5 _7 HSet mat = Nothing
Text2.Text = y
% `4 H+ D, \  i1 _4 u
8 I  [9 ?% y2 u- C  O$ Khandle_error: MsgBox (Err.Description)

End Sub

8 j! Y) u+ \2 RPrivate Sub Text1_Change()
7 U, D* ?* \8 ?( \! B- }3 Nx = CDbl(Text1.Text)
3 g- m1 N, [) h% \  d. P7 @8 cEnd Sub
5 k) j7 ^1 i' c& `
Private Sub Text2_Change()
" N! E, E3 d3 ]( u  b7 w! u7 k+ qText2.Text = yEnd Sub
( q* w* d2 z, v, U* N. i4 l我估计是红字这，肯定错了但我也不知该改成什么 ，请高手帮忙。
本人 qq 1531145753  

hahaysw

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

sxjm567

顶下再看哈

hahaysw

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

hucchongzi