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

hahaysw

8 Y2 {1 ~6 T# i7 b
( r# Q$ S/ R$ y5 P4 g4 g; R, y( F我用matlab 生成一个com 组件想在vb中调用，但自己没弄成，所以希望大家帮我看看问题出在哪里，我这有两个com 组件分别是dell 和untitled1分别有不同的功能 dell 是个解线性方程组的，难度较大。另外一个是求y=sqty(x)的简单com 组建 。我自己做了一个y=sqrt(x) 关键问题是不能显示出返回值来我的di二个com vb程序的类名是 gh1   这个com我也做了个程序 但是编辑框不能输入文字 请大家看看怎么了
% q& D# k! r( _, k5 s- p第一个com 的类名是dell 我也做了个简单的调用vb程序 但没有定义其他变量
+ u* i$ c4 `' B( g; ^' s附件为保险我再重发一下
+ ~2 q" x  e# K, R! r 第一个.zip (67.68 KB, 下载次数: 0)

2011-12-23 09:23 上传

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

6 h! G$ |* q$ }/ `8 p
第二个.zip (67.52 KB, 下载次数: 2)

2011-12-24 10:46 上传

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

% Q3 a$ j; H2 [8 T5 N9 L下面是我的第二个程序的代码

# K* R7 ?# a# a1 dPrivate Sub Form_Load()


Dim x As Double
- Q2 Q/ @7 p; V3 p; |) ]Dim y As Variant
Dim mat As gh1
& }9 ]. x; D9 P' W; ?6 F. AOn Error GoTo handle_error
1 b  y# _0 d( O& h* {3 [$ I; H4 R$ H

Set mat = New gh1
9 E) U4 N) J; H+ \0 vx = 4
  H2 h3 ^: {$ \2 Q# ?  w9 Ky = 2
6 u6 _1 i4 p6 s- PCall mat.gh(1, y, x)
Set mat = Nothing
4 q( Z. Y2 n  G2 ?Text2.Text = y
6 x7 u) X; x& z
  b% I/ u" [0 Q5 \: S+ }( Z  chandle_error: MsgBox (Err.Description)
' C* `. x7 r4 U& S  C
( k- y1 j: @3 Q2 wEnd Sub

Private Sub Text1_Change()
4 K2 \3 \$ Z" _' b3 Ix = CDbl(Text1.Text)
End Sub

5 L4 p: w1 \1 b) K: uPrivate Sub Text2_Change()
! H0 g  ]6 h1 U: A, H! E/ z" GText2.Text = yEnd Sub
我估计是红字这，肯定错了但我也不知该改成什么 ，请高手帮忙。
本人 qq 1531145753  

hahaysw

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

sxjm567

顶下再看哈

hahaysw

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

hucchongzi