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

hahaysw

" z) u/ k+ E  t) h8 Y
我用matlab 生成一个com 组件想在vb中调用，但自己没弄成，所以希望大家帮我看看问题出在哪里，我这有两个com 组件分别是dell 和untitled1分别有不同的功能 dell 是个解线性方程组的，难度较大。另外一个是求y=sqty(x)的简单com 组建 。我自己做了一个y=sqrt(x) 关键问题是不能显示出返回值来我的di二个com vb程序的类名是 gh1   这个com我也做了个程序 但是编辑框不能输入文字 请大家看看怎么了
0 X  }) b+ H  o: N0 v第一个com 的类名是dell 我也做了个简单的调用vb程序 但没有定义其他变量
! z$ B  _) g; a. {! \$ f附件为保险我再重发一下
: h, i5 ^" |2 g1 z2 l* u. N* X 第一个.zip (67.68 KB, 下载次数: 0)

2011-12-23 09:23 上传

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

9 L, f: a% N1 r
第二个.zip (67.52 KB, 下载次数: 2)

2011-12-24 10:46 上传

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

下面是我的第二个程序的代码
. n! t, y3 ?9 z) C2 f
Private Sub Form_Load()
  B  E* J+ _0 |8 D! |
9 ]7 m* s. U4 K+ q6 |
  V$ k& u- @/ `. A8 O8 R) N3 |) ODim x As Double
Dim y As Variant
Dim mat As gh1
7 h. E! P" a, y  d$ [( |3 U+ ~( LOn Error GoTo handle_error

4 V/ z& V9 I8 W+ |0 ?* I' ]
4 q% Z/ O# e* ~# ?  eSet mat = New gh1
; j5 \2 ~0 c4 M, lx = 4
+ H% E# L9 Z6 k9 q9 [& c9 ^5 my = 2
& P: L6 S. V7 `0 O! u3 c5 QCall mat.gh(1, y, x)
Set mat = Nothing
Text2.Text = y
2 n  s  }- J5 S/ F
0 y  V1 z+ y2 N1 f2 khandle_error: MsgBox (Err.Description)

End Sub

5 k* C) e4 Y% a% o" o$ n0 ]Private Sub Text1_Change()
x = CDbl(Text1.Text)
End Sub
2 s$ n8 r3 ^& K3 B  ]" F: j( m. L
Private Sub Text2_Change()
- O# ?, @4 z4 f2 s; J6 SText2.Text = yEnd Sub
' S/ o% F8 m& b. s/ P+ K我估计是红字这，肯定错了但我也不知该改成什么 ，请高手帮忙。
本人 qq 1531145753  

hahaysw

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

sxjm567

顶下再看哈

hahaysw

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

hucchongzi