- 在线时间
- 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 编辑
9 u" Z `- W- v
6 S+ d( C6 G" m1 `我用matlab 生成一个com 组件想在vb中调用,但自己没弄成,所以希望大家帮我看看问题出在哪里,我这有两个com 组件分别是dell 和untitled1分别有不同的功能 dell 是个解线性方程组的,难度较大。另外一个是求y=sqty(x)的简单com 组建 。我自己做了一个y=sqrt(x) 关键问题是不能显示出返回值来我的di二个com vb程序的类名是 gh1 这个com我也做了个程序 但是编辑框不能输入文字 请大家看看怎么了
$ m6 H7 T6 _7 R; J% E7 L第一个com 的类名是dell 我也做了个简单的调用vb程序 但没有定义其他变量
5 }" t: E! B1 F' C, Y附件为保险我再重发一下; _+ h, B9 U9 B" ?* g$ ?( X+ A! k
第一个.zip
(67.68 KB, 下载次数: 0)
+ n; d6 i O" s3 A# ~
/ m7 Q( o: w1 w" ]6 f4 n, r
第二个.zip
(67.52 KB, 下载次数: 2)
' E" u% n& R) |/ p
下面是我的第二个程序的代码
7 g( e& U1 X! p; s/ M+ w8 P3 T. M' A; \& L/ P- _
Private Sub Form_Load()
+ h% \/ v: G1 X/ N% H$ h
3 O5 v: E5 J- z$ D& h: m/ ~& r4 [; v8 g% h
Dim x As Double
" [7 }- Q, ]$ N7 T$ |% E& k- XDim y As Variant
& J+ i8 ^+ C& y: ]% sDim mat As gh18 k8 ~% U' l# \* Y
On Error GoTo handle_error
! a: X0 T2 [6 J0 Y* \- W3 A
* k0 A! B) U2 |% Z
- {0 _* }" I; n' L! @2 jSet mat = New gh1
& Y3 ~5 n* G: ?1 l& m# n' ~# {x = 4( q7 s' r6 T* R: _: z2 T: y# M
y = 2
% M. }( J B$ x5 b$ UCall mat.gh(1, y, x) n1 v" w+ e+ x2 s( N6 N0 N/ _' y
Set mat = Nothing4 F, H7 d( G; ?; I" T
Text2.Text = y6 r7 c( B, d- T n5 d4 t6 H! S# W+ ^
0 L- Y# L2 l5 G8 {/ hhandle_error: MsgBox (Err.Description)3 r6 z% v/ \8 i( V- J5 }
) X! p' {9 L% B; EEnd Sub+ O0 C z6 H1 A0 N
1 f4 z7 m5 i5 f7 ^& V+ O
Private Sub Text1_Change()- q: l& t# ?$ ~9 {5 a3 h B
x = CDbl(Text1.Text)
; x, Y$ c$ ]0 E2 s4 l! ]# B" {6 CEnd Sub
6 j/ y* B y* K2 s2 _) h/ L: w; r+ M1 T; M; x
Private Sub Text2_Change()
1 D% z! I9 n* W4 vText2.Text = yEnd Sub
4 N) h9 x$ a Z2 _我估计是红字这,肯定错了但我也不知该改成什么 ,请高手帮忙。3 {2 z5 G( ^8 r+ k! b
本人 qq 1531145753 |
zan
|