QQ登录

只需要一步,快速开始

 注册地址  找回密码
查看: 9916|回复: 4
打印 上一主题 下一主题

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

[复制链接]
字体大小: 正常 放大
hahaysw 实名认证       

3

主题

4

听众

943

积分

  • TA的每日心情
    开心
    2014-5-22 18:08
  • 签到天数: 270 天

    [LV.8]以坛为家I

    社区QQ达人

    群组2011年第一期数学建模

    群组第一期sas基础实训课堂

    群组LINGO

    群组EXCEL

    群组中国科学院软件研究所

    跳转到指定楼层
    1#
    发表于 2011-12-22 17:43 |只看该作者 |倒序浏览
    |招呼Ta 关注Ta
    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  

    截图.bmp (327.69 KB, 下载次数: 288)

    截图.bmp

    zan
    转播转播0 分享淘帖0 分享分享0 收藏收藏0 支持支持0 反对反对0 微信微信
    hahaysw 实名认证       

    3

    主题

    4

    听众

    943

    积分

  • TA的每日心情
    开心
    2014-5-22 18:08
  • 签到天数: 270 天

    [LV.8]以坛为家I

    社区QQ达人

    群组2011年第一期数学建模

    群组第一期sas基础实训课堂

    群组LINGO

    群组EXCEL

    群组中国科学院软件研究所

    回复

    使用道具 举报

    sxjm567 实名认证       

    8

    主题

    7

    听众

    2174

    积分

    该用户从未签到

    新人进步奖

    群组数学建模

    群组我行我数

    群组数学趣味、游戏、IQ等

    群组09年国际数学建模群—鹰之队

    群组电子科大数学建模交流群

    回复

    使用道具 举报

    hahaysw 实名认证       

    3

    主题

    4

    听众

    943

    积分

  • TA的每日心情
    开心
    2014-5-22 18:08
  • 签到天数: 270 天

    [LV.8]以坛为家I

    社区QQ达人

    群组2011年第一期数学建模

    群组第一期sas基础实训课堂

    群组LINGO

    群组EXCEL

    群组中国科学院软件研究所

    回复

    使用道具 举报

    3

    主题

    13

    听众

    841

    积分

    升级  60.25%

  • TA的每日心情
    奋斗
    2018-11-12 12:16
  • 签到天数: 135 天

    [LV.7]常住居民III

    自我介绍
    天道酬勤

    社区QQ达人 新人进步奖

    群组2014年美赛冲刺培训

    群组物联网工程师培训

    群组高数系列公益培训

    群组2013年电工杯B题讨论群

    群组2013电工杯A题讨论群组

    回复

    使用道具 举报

    您需要登录后才可以回帖 登录 | 注册地址

    qq
    收缩
    • 电话咨询

    • 04714969085
    fastpost

    关于我们| 联系我们| 诚征英才| 对外合作| 产品服务| QQ

    手机版|Archiver| |繁體中文 手机客户端  

    蒙公网安备 15010502000194号

    Powered by Discuz! X2.5   © 2001-2013 数学建模网-数学中国 ( 蒙ICP备14002410号-3 蒙BBS备-0002号 )     论坛法律顾问:王兆丰

    GMT+8, 2025-7-26 11:02 , Processed in 1.213334 second(s), 78 queries .

    回顶部