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

hahaysw

" W* p- i) p7 Y2 F( `# B我用matlab 生成一个com 组件想在vb中调用，但自己没弄成，所以希望大家帮我看看问题出在哪里，我这有两个com 组件分别是dell 和untitled1分别有不同的功能 dell 是个解线性方程组的，难度较大。另外一个是求y=sqty(x)的简单com 组建 。我自己做了一个y=sqrt(x) 关键问题是不能显示出返回值来我的di二个com vb程序的类名是 gh1   这个com我也做了个程序 但是编辑框不能输入文字 请大家看看怎么了
+ P2 J+ R, K! n3 u$ E& ^第一个com 的类名是dell 我也做了个简单的调用vb程序 但没有定义其他变量
4 f- w7 ?- j+ o4 K- ?1 l附件为保险我再重发一下
  d' j$ Y( i5 |. K0 w4 p* J 第一个.zip (67.68 KB, 下载次数: 0)

2011-12-23 09:23 上传

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

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

2011-12-24 10:46 上传

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

6 n/ V/ F6 e0 ]- a3 L; V) Z下面是我的第二个程序的代码
6 Z* @" r( H7 }7 f" p
+ ?- ~. Q! U% w9 hPrivate Sub Form_Load()
( M# G/ u  z0 x! E2 W
- |) v4 E4 G1 s7 ^' T& G* q% e3 g
Dim x As Double
Dim y As Variant
Dim mat As gh1
6 E8 }, R7 L/ i% O) x0 VOn Error GoTo handle_error
! s0 D7 n3 z, p* `
7 T' L, [$ Q7 C" n
Set mat = New gh1
) Y$ l) [5 U6 [8 s7 Sx = 4
* I3 {" @4 B! j  e" i2 V+ ry = 2
- n4 h+ m* d4 N! Z* h; \Call mat.gh(1, y, x)
Set mat = Nothing
Text2.Text = y

handle_error: MsgBox (Err.Description)
, W2 {7 V% k0 t: V% v3 c6 h2 R
; o2 V; h$ R& k% uEnd Sub

. s  T) C: s5 a; [3 D  rPrivate Sub Text1_Change()
x = CDbl(Text1.Text)
. R$ l- g& t; r# o, L, tEnd Sub
. k& K( u1 P- a$ \3 V
8 u4 Q( b$ b( @/ P) R5 {Private Sub Text2_Change()
Text2.Text = yEnd Sub
我估计是红字这，肯定错了但我也不知该改成什么 ，请高手帮忙。
本人 qq 1531145753  

hahaysw

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

sxjm567

顶下再看哈

hahaysw

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

hucchongzi