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

hahaysw

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

2011-12-23 09:23 上传

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

4 n( m, t, a$ K! ^) e
! U9 b& O: H* ^  m1 ?3 \ 第二个.zip (67.52 KB, 下载次数: 2)

2011-12-24 10:46 上传

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

/ @+ m; b* e) S' |, i下面是我的第二个程序的代码
' Q4 n3 U4 S0 j! O/ W1 G
Private Sub Form_Load()
7 R6 k0 a1 G( h6 o/ M5 h0 \  Q
9 U& Q0 y  \$ L$ C3 o
Dim x As Double
8 \) U$ }) ]7 c# X( [/ g" T1 ~" T6 A( CDim y As Variant
9 Y+ x& R) V/ G) b# X# ~2 a  iDim mat As gh1
On Error GoTo handle_error
9 x$ x2 \: n' B8 P1 h
0 o8 v, v! P! }: N% |. ^: C, y9 n
Set mat = New gh1
x = 4
% |9 N* H' F$ k6 s( ?y = 2
9 i) T# C) @$ ^4 u$ uCall mat.gh(1, y, x)
Set mat = Nothing
Text2.Text = y

& y. A- c: D3 o6 k- p2 }$ a! Bhandle_error: MsgBox (Err.Description)
! `) q$ s! j* _1 @; x  E
End Sub
1 K( ~5 \0 m2 q* F8 n1 r
Private Sub Text1_Change()
' h- n$ P: E$ P1 Q/ ox = CDbl(Text1.Text)
, H$ C1 n# w  eEnd Sub

Private Sub Text2_Change()
5 {; G" B& g% c3 jText2.Text = yEnd Sub
我估计是红字这，肯定错了但我也不知该改成什么 ，请高手帮忙。
. z( E5 B) \+ c$ M7 a  Z! Z6 A3 z1 ` 本人 qq 1531145753  

hahaysw

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

sxjm567

顶下再看哈

hahaysw

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

hucchongzi