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

hahaysw

( k% A8 O  G4 r9 V$ V( h
2 Y; z, r' [/ \. u: H  p. G我用matlab 生成一个com 组件想在vb中调用，但自己没弄成，所以希望大家帮我看看问题出在哪里，我这有两个com 组件分别是dell 和untitled1分别有不同的功能 dell 是个解线性方程组的，难度较大。另外一个是求y=sqty(x)的简单com 组建 。我自己做了一个y=sqrt(x) 关键问题是不能显示出返回值来我的di二个com vb程序的类名是 gh1   这个com我也做了个程序 但是编辑框不能输入文字 请大家看看怎么了
% e7 s) D! O  y4 H( d1 g第一个com 的类名是dell 我也做了个简单的调用vb程序 但没有定义其他变量
附件为保险我再重发一下
( S) C* l7 E$ E) H 第一个.zip (67.68 KB, 下载次数: 0)

2011-12-23 09:23 上传

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

第二个.zip (67.52 KB, 下载次数: 2)

2011-12-24 10:46 上传

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

下面是我的第二个程序的代码
  p8 [" m7 W6 }& e
  Y, m0 C* p3 b4 mPrivate Sub Form_Load()

* V9 H* h% w+ ?4 @; N6 z; {
Dim x As Double
% ]% d! ?  w$ z( C: Q0 M) {. [0 ZDim y As Variant
% R& }/ a- M2 _9 |# ?) v; D4 X* sDim mat As gh1
$ Q1 R7 u7 F- T" K" zOn Error GoTo handle_error
8 d7 W& N3 @* T3 {- T0 T" l) |
0 S  p! a, j& |- O* g# p; U
Set mat = New gh1
- Z4 D2 L8 B6 A# U' u. _, f& q3 Sx = 4
: q( ^7 o. p+ W& h$ b+ g$ ry = 2
8 x2 t" \1 F( ]: I9 |Call mat.gh(1, y, x)
Set mat = Nothing
Text2.Text = y
7 p! o' t; t( b
handle_error: MsgBox (Err.Description)
& j: V0 ^! \2 X, k" ?7 _
: B: ~( S, {3 f7 s/ yEnd Sub
6 ~3 o- g6 ~) p' g: o
Private Sub Text1_Change()
' ~/ m2 c7 m) q5 k/ p0 E2 [0 }  hx = CDbl(Text1.Text)
* g( u8 H8 W7 @$ z" Z( n4 h2 LEnd Sub

9 d- L; E& Q  `9 e$ Z) fPrivate Sub Text2_Change()
Text2.Text = yEnd Sub
: _! W$ }4 p2 ~6 v, \$ p5 ^我估计是红字这，肯定错了但我也不知该改成什么 ，请高手帮忙。
8 [( l/ T4 g; A/ Y. e 本人 qq 1531145753  

hahaysw

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

sxjm567

顶下再看哈

hahaysw

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

hucchongzi