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

hahaysw

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

2011-12-23 09:23 上传

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

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

2011-12-24 10:46 上传

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

- i- P  ^% Y/ K( o& I) {5 U下面是我的第二个程序的代码

3 f$ v) B) L. s* \6 O+ \& \Private Sub Form_Load()
: [# s, M* X! W! k8 M

) A4 {+ b4 c$ J' {Dim x As Double
+ `8 u2 P; u" x# O2 CDim y As Variant
Dim mat As gh1
7 T/ _# n0 Z# ^; p$ A$ UOn Error GoTo handle_error
0 M  \2 z2 G7 N

Set mat = New gh1
x = 4
y = 2
3 J. P* g8 b0 WCall mat.gh(1, y, x)
! \1 E' U) Y' |+ ~0 W7 Y% LSet mat = Nothing
Text2.Text = y
" C( l+ e: J6 [
( Q5 G! ]0 h; @8 `# x& N) k4 r, ihandle_error: MsgBox (Err.Description)
  ~  t5 X% p1 R7 h: Z3 `
End Sub
) d3 d& \/ M9 r" w
Private Sub Text1_Change()
1 B5 T3 F/ O# px = CDbl(Text1.Text)
0 _+ t; g' |( z. q6 V: \( pEnd Sub

Private Sub Text2_Change()
Text2.Text = yEnd Sub
我估计是红字这，肯定错了但我也不知该改成什么 ，请高手帮忙。
, W8 _$ R: i/ U- t& ?! K. G 本人 qq 1531145753  

hahaysw

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

sxjm567

顶下再看哈

hahaysw

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

hucchongzi