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

hahaysw

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

2011-12-23 09:23 上传

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

2 a( s6 g+ M1 T. K* t, W& F' X' Z
第二个.zip (67.52 KB, 下载次数: 2)

2011-12-24 10:46 上传

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

9 i6 i; d6 z# a4 r% h! x9 \7 X下面是我的第二个程序的代码
7 Y1 }) G3 `; y: ]+ V, B3 M5 ]* u$ d
$ a' \4 ~8 Q/ ^- z0 Y4 D: p( v) d' YPrivate Sub Form_Load()
0 E" C  Q- p. D
7 N2 y2 Z* Y; p; |& \' d6 s
' v; t1 t# z0 A/ L! ~" \0 jDim x As Double
Dim y As Variant
( f! B% B+ I; z. n! T& U" Q& MDim mat As gh1
On Error GoTo handle_error

  y, Y' ]! T  a1 n8 ?
Set mat = New gh1
x = 4
y = 2
0 W! d. R/ [* V( p( [5 XCall mat.gh(1, y, x)
Set mat = Nothing
Text2.Text = y
! p2 |$ X2 R9 P6 k. |9 m
* o$ g) t2 K- x( h8 t/ f, nhandle_error: MsgBox (Err.Description)

: d1 C! B! e7 d! d# ZEnd Sub

Private Sub Text1_Change()
1 d% b5 F" @8 {% Q( Gx = CDbl(Text1.Text)
% T6 g3 j$ O+ o5 G7 wEnd Sub

" X. c0 n; V2 ]( f$ i9 b0 WPrivate Sub Text2_Change()
. _4 P8 ~  A- H: |, D( ~9 B. fText2.Text = yEnd Sub
. ^8 T" [0 a' L. |0 R8 w5 w我估计是红字这，肯定错了但我也不知该改成什么 ，请高手帮忙。
, H, B  A* N; i  J5 r; ?4 y" G 本人 qq 1531145753  

hahaysw

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

sxjm567

顶下再看哈

hahaysw

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

hucchongzi