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

hahaysw

( C1 F! t" J; y! \6 U$ ^
我用matlab 生成一个com 组件想在vb中调用，但自己没弄成，所以希望大家帮我看看问题出在哪里，我这有两个com 组件分别是dell 和untitled1分别有不同的功能 dell 是个解线性方程组的，难度较大。另外一个是求y=sqty(x)的简单com 组建 。我自己做了一个y=sqrt(x) 关键问题是不能显示出返回值来我的di二个com vb程序的类名是 gh1   这个com我也做了个程序 但是编辑框不能输入文字 请大家看看怎么了
第一个com 的类名是dell 我也做了个简单的调用vb程序 但没有定义其他变量
0 z& s6 {; k( i% ~附件为保险我再重发一下
, T$ }, |6 z5 H- L 第一个.zip (67.68 KB, 下载次数: 0)

2011-12-23 09:23 上传

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

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

2011-12-24 10:46 上传

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

& P& I( t2 B) E' V  H9 ~下面是我的第二个程序的代码
7 j: r/ \+ C+ w5 U" l
" H2 [9 B6 O$ ~$ e0 NPrivate Sub Form_Load()
1 I6 @5 r) s+ h" S
' J. i$ }6 p. ]/ B. N
+ _: w0 d6 X7 v9 h3 qDim x As Double
Dim y As Variant
Dim mat As gh1
On Error GoTo handle_error


Set mat = New gh1
: A2 Y# Z4 g' q/ V7 hx = 4
) @* S& H* n! ]$ m3 O0 [y = 2
+ \  f  J" H8 u6 _, Y" mCall mat.gh(1, y, x)
2 U$ m8 l# L- L# `- A. `6 N% R6 _  p0 |Set mat = Nothing
, M, S4 L- Q8 ^  OText2.Text = y
+ c9 b. ]& D3 f$ y
  j7 y0 I, N2 H/ [4 X2 v; Phandle_error: MsgBox (Err.Description)

End Sub
, `  V8 @, Y4 e( f/ S  F9 o
  T( A- C. u" |5 B' [" }' _& gPrivate Sub Text1_Change()
x = CDbl(Text1.Text)
End Sub
! N1 Z. u) ~  j0 r" O. e
+ r( l2 _, m4 h* F6 ?# j# t. _Private Sub Text2_Change()
6 P, c  w/ E5 UText2.Text = yEnd Sub
8 h' m; v9 Z6 y8 V/ O9 H我估计是红字这，肯定错了但我也不知该改成什么 ，请高手帮忙。
本人 qq 1531145753  

hucchongzi

hahaysw

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

sxjm567

顶下再看哈

hahaysw

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