- 在线时间
- 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 编辑
q8 t7 i$ I+ S5 \. F4 J% m* l2 r6 K# l* P" r2 k0 x5 r7 n
我用matlab 生成一个com 组件想在vb中调用,但自己没弄成,所以希望大家帮我看看问题出在哪里,我这有两个com 组件分别是dell 和untitled1分别有不同的功能 dell 是个解线性方程组的,难度较大。另外一个是求y=sqty(x)的简单com 组建 。我自己做了一个y=sqrt(x) 关键问题是不能显示出返回值来我的di二个com vb程序的类名是 gh1 这个com我也做了个程序 但是编辑框不能输入文字 请大家看看怎么了
7 B: r; M0 t6 ?' N3 O第一个com 的类名是dell 我也做了个简单的调用vb程序 但没有定义其他变量
% A" Y+ K9 U8 p: b% @附件为保险我再重发一下5 k4 i7 V2 o% b: [) y/ \2 q# c
第一个.zip
(67.68 KB, 下载次数: 0)
- w- X& I: S6 @/ B. l2 u
8 F( J# n! Q, D, b/ u; C
第二个.zip
(67.52 KB, 下载次数: 2)
: v' s: T s, g
下面是我的第二个程序的代码) T5 S# c8 z1 u9 i# m* ?
) ^! W: [- u H
Private Sub Form_Load()
1 Q" C. A9 u- x0 f, V. W. E6 ~' z5 F5 {) Z# O
$ m+ g! l6 ?6 J/ c; b9 C/ A: W# J
Dim x As Double
* @) l/ }' s+ O) ^- }% iDim y As Variant6 U- z7 h8 u6 u( u: V' k
Dim mat As gh1% S2 w+ c7 E; }! t
On Error GoTo handle_error
3 x' n( Y2 p4 P. a% t
9 J% l4 f2 }( i U+ \4 z n% I. d$ w7 h; M r" [0 j( X) S
Set mat = New gh1) @% X8 u: J2 \" _) t5 q* C
x = 4
! g/ N1 @0 [# v0 E" uy = 2* M4 {1 o/ g9 B/ w) v0 t
Call mat.gh(1, y, x), F% ~/ K3 M& q
Set mat = Nothing
8 U$ W4 `* o9 Y# u- n* g7 MText2.Text = y
. P D9 \8 C1 u. |* s' f1 i$ [1 M4 T( p6 E7 y2 [, Z; }5 c: x
handle_error: MsgBox (Err.Description)
1 A* e/ f# G2 i3 P* c" ~* S( p# p7 n
End Sub
( b! F: e0 b' f, W8 k
, q+ W4 |- f6 `) MPrivate Sub Text1_Change()
# f5 }' O, A. K2 @x = CDbl(Text1.Text)
: }& F9 O( d E7 |7 {4 PEnd Sub
9 t. K2 y' H: m/ t4 @7 f9 X$ [0 U% _- y/ o T7 `' T
Private Sub Text2_Change()
. @) X( I' B( k( V, e) NText2.Text = yEnd Sub
4 |& ]! i* P; ]我估计是红字这,肯定错了但我也不知该改成什么 ,请高手帮忙。
% l/ p4 p8 ] ]( j4 Q3 E 本人 qq 1531145753 |
zan
|