- 在线时间
- 233 小时
- 最后登录
- 2015-11-15
- 注册时间
- 2011-1-31
- 听众数
- 4
- 收听数
- 0
- 能力
- 0 分
- 体力
- 2503 点
- 威望
- 0 点
- 阅读权限
- 60
- 积分
- 943
- 相册
- 1
- 日志
- 0
- 记录
- 3
- 帖子
- 371
- 主题
- 3
- 精华
- 0
- 分享
- 0
- 好友
- 21
TA的每日心情 | 开心 2014-5-22 18:08 |
---|
签到天数: 270 天 [LV.8]以坛为家I
 群组: 2011年第一期数学建模 群组: 第一期sas基础实训课堂 群组: LINGO 群组: EXCEL 群组: 中国科学院软件研究所 |
50体力
本帖最后由 hahaysw 于 2011-12-24 10:50 编辑 ( e( O( ]1 I* k
( ?, j+ g2 d# J- p
我用matlab 生成一个com 组件想在vb中调用,但自己没弄成,所以希望大家帮我看看问题出在哪里,我这有两个com 组件分别是dell 和untitled1分别有不同的功能 dell 是个解线性方程组的,难度较大。另外一个是求y=sqty(x)的简单com 组建 。我自己做了一个y=sqrt(x) 关键问题是不能显示出返回值来我的di二个com vb程序的类名是 gh1 这个com我也做了个程序 但是编辑框不能输入文字 请大家看看怎么了
' O+ K) d n6 w" P+ i' K9 m6 y5 \第一个com 的类名是dell 我也做了个简单的调用vb程序 但没有定义其他变量" I) e: `6 c" \5 {" j, G% D* _
附件为保险我再重发一下
3 }# Z, n% a0 g2 g
第一个.zip
(67.68 KB, 下载次数: 0)
0 `1 E" p+ T* ~0 M& B& e5 {6 Q+ d# m! _, K- i3 W$ v
第二个.zip
(67.52 KB, 下载次数: 2)
; n4 S! L4 m" e下面是我的第二个程序的代码
1 T3 C1 B+ J4 }* h: J6 f& c2 ^# `, T# r5 b( l0 E1 \
Private Sub Form_Load()3 q# k( \" [( n6 [" S2 T8 P
: k& c5 H7 ?$ F$ O1 D3 }7 l
5 q0 ~8 s( g# m5 x, `( c$ @; k
Dim x As Double a$ O/ N' G4 }) v2 S5 T0 i
Dim y As Variant- [3 k: R) O# [( A
Dim mat As gh1
3 r% e1 T. n1 G9 s+ g" K7 ]On Error GoTo handle_error
/ Q, A& K/ E8 e0 e3 b
0 U+ ^2 y( |& u1 G }
7 S2 P& R. h: B& {Set mat = New gh1
) _! h7 P$ A+ O9 V+ `7 T5 D6 Ux = 4
7 h$ `) ~: P% E6 h; c4 s# `y = 2
2 i. @& f/ u: ~1 S$ XCall mat.gh(1, y, x)
5 {" p/ p5 O+ D: G/ L7 r: {Set mat = Nothing1 j+ F! h3 O1 H$ I, ]! h
Text2.Text = y
( X- N8 h5 I) ^2 u) B& k7 E2 |
( V' ?/ |% k2 Jhandle_error: MsgBox (Err.Description)
5 U) v2 [: Q1 }: @+ n
7 h; Z, T0 ]$ o3 bEnd Sub
7 {7 s: |- a* E# \% l7 A0 V' ^: e7 ]' D( W. z E0 l
Private Sub Text1_Change()
/ ?/ S+ A3 r @" kx = CDbl(Text1.Text)
& r) N* P8 o5 M, @ F, tEnd Sub
+ @0 z# q4 O+ f0 }/ @4 |) R; z/ u
$ a' H l" i/ a$ yPrivate Sub Text2_Change()
1 r4 E7 w# U) P# T0 O9 KText2.Text = yEnd Sub5 V4 {( R* X7 y- l1 p
我估计是红字这,肯定错了但我也不知该改成什么 ,请高手帮忙。
: {" ?, }6 d8 U% A- G" z' ^ 本人 qq 1531145753 |
zan
|