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

hahaysw

  ~& H% Y  M3 z# }$ E. n# D
, k1 c: s$ m$ N$ _6 |& y我用matlab 生成一个com 组件想在vb中调用，但自己没弄成，所以希望大家帮我看看问题出在哪里，我这有两个com 组件分别是dell 和untitled1分别有不同的功能 dell 是个解线性方程组的，难度较大。另外一个是求y=sqty(x)的简单com 组建 。我自己做了一个y=sqrt(x) 关键问题是不能显示出返回值来我的di二个com vb程序的类名是 gh1   这个com我也做了个程序 但是编辑框不能输入文字 请大家看看怎么了
2 X" n$ m" K3 L5 d第一个com 的类名是dell 我也做了个简单的调用vb程序 但没有定义其他变量
附件为保险我再重发一下
+ v6 h8 d1 N7 N* E7 [, O- v 第一个.zip (67.68 KB, 下载次数: 0)

2011-12-23 09:23 上传

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

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

2011-12-24 10:46 上传

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

6 N8 R' e& c4 Y9 C下面是我的第二个程序的代码
; l! g7 E/ x1 p; T
Private Sub Form_Load()

7 L" V7 b& W0 `5 r
: i& B, T7 A4 e( qDim x As Double
9 C: S1 V6 E4 ^6 w/ W, e1 WDim y As Variant
0 c/ r6 e& s7 Y6 ^Dim mat As gh1
On Error GoTo handle_error


$ e7 l0 m0 y. T' R5 }6 x9 VSet mat = New gh1
/ i: p/ n) x( `( w( Cx = 4
9 [! t: M6 f7 L3 m9 ]$ e; Vy = 2
Call mat.gh(1, y, x)
Set mat = Nothing
0 e9 G) c8 D' V+ t, `Text2.Text = y
% u5 f7 m/ |# u0 j: a
handle_error: MsgBox (Err.Description)
) x  V0 n2 V1 |: V
  I9 k2 F8 _  h8 @# R! {' W& L/ ~+ rEnd Sub
8 D8 n9 U& w1 P8 m& S
1 X2 ~* q# t" APrivate Sub Text1_Change()
- z( y- T/ E: f7 I/ wx = CDbl(Text1.Text)
! k+ R' l' Z$ ?3 k$ K$ n! mEnd Sub

; d# ^  X- M5 HPrivate Sub Text2_Change()
0 j8 O( L' Y* b% @8 G, \% LText2.Text = yEnd Sub
+ ^! e  @% k: {# N7 T4 `: w+ p% X我估计是红字这，肯定错了但我也不知该改成什么 ，请高手帮忙。
本人 qq 1531145753  

hahaysw

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

sxjm567

顶下再看哈

hahaysw

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

hucchongzi