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

hahaysw

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

2011-12-23 09:23 上传

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

6 ~# J$ \9 l' ?& f5 U
$ t3 B$ M" Y; l, i 第二个.zip (67.52 KB, 下载次数: 2)

2011-12-24 10:46 上传

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

- e8 R* t) C7 c) g, ^* @下面是我的第二个程序的代码
- {2 I; E6 m0 {+ O2 L5 A, ~
2 `. H8 l! |& ]* uPrivate Sub Form_Load()

( M$ N3 U2 n) ~/ _" @8 |  o
: u6 P7 j6 `& {$ r" ^+ pDim x As Double
2 ]' |( Y  L  q$ Z# G1 g3 {# ZDim y As Variant
Dim mat As gh1
On Error GoTo handle_error
) Z2 F( L0 X3 _7 `( c0 [1 o, L
" n2 `- m& K. _! P1 _- a) T
: o+ ]( X$ E' V! X* m  wSet mat = New gh1
# T( w2 s* v: L8 ox = 4
y = 2
Call mat.gh(1, y, x)
- T1 \8 T) G# n9 sSet mat = Nothing
Text2.Text = y

; u5 \4 A1 g: n: C6 Zhandle_error: MsgBox (Err.Description)
2 `- j7 N  ]9 P5 I5 T+ f8 N
( R; r( @) t) B  u/ QEnd Sub

; w- H+ w- d) ^: ~  uPrivate Sub Text1_Change()
x = CDbl(Text1.Text)
. T6 ?7 J9 d0 E3 W9 H2 gEnd Sub
: }8 \- O0 C- t
Private Sub Text2_Change()
; B& b2 o' c$ fText2.Text = yEnd Sub
3 `9 q4 B: N6 O$ m. C我估计是红字这，肯定错了但我也不知该改成什么 ，请高手帮忙。
. l* Q' N$ e: O$ C4 Y* m. y 本人 qq 1531145753  

hahaysw

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

sxjm567

顶下再看哈

hahaysw

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

hucchongzi