QQ登录

只需要一步,快速开始

 注册地址  找回密码
查看: 10708|回复: 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 编辑 . ]% h' ~, ~  {  V+ E

    * z, R( c9 a- u$ I我用matlab 生成一个com 组件想在vb中调用,但自己没弄成,所以希望大家帮我看看问题出在哪里,我这有两个com 组件分别是dell 和untitled1分别有不同的功能 dell 是个解线性方程组的,难度较大。另外一个是求y=sqty(x)的简单com 组建 。我自己做了一个y=sqrt(x) 关键问题是不能显示出返回值来我的di二个com vb程序的类名是 gh1   这个com我也做了个程序 但是编辑框不能输入文字 请大家看看怎么了; M; o4 p5 x3 i  E5 [8 s0 _
    第一个com 的类名是dell 我也做了个简单的调用vb程序 但没有定义其他变量
    $ L" s0 I4 A. g0 F+ _附件为保险我再重发一下
    / J' P& f0 g( ?! J3 u+ S3 I 第一个.zip (67.68 KB, 下载次数: 0) $ I7 I1 @  F+ B6 g) \. F0 `& E

    0 [  m( G) w3 n! r7 @4 ^- x 第二个.zip (67.52 KB, 下载次数: 2) ; P2 `+ w8 a) m$ b
    下面是我的第二个程序的代码4 a5 t6 I) t4 q' I( U) ]

    # j/ Q* y8 [$ {Private Sub Form_Load()
    . W* L  q* _6 Y& B8 y, n
    9 ]6 L( N* m: H9 Y9 o
    # d8 ~+ E8 H( ^/ p4 ~9 U/ k. @Dim x As Double
    . I' R9 m& X+ j0 G! D- kDim y As Variant
      o  u  |& T( W) Y  d6 r) ~* {Dim mat As gh1- x6 E9 h9 c: G4 F; @6 A8 x
    On Error GoTo handle_error5 Z. k; k$ j0 j: Z

    9 c% C) ]. b1 @( i& P3 z' s# Y
    7 f0 _$ u  J, a( S5 T, M& c; YSet mat = New gh1
    ! M8 H' P# ~* _& w; N$ X0 ^; t* Y) V; _x = 4
    % Q# l9 y9 V# U4 fy = 22 }1 r' K3 `% O: y/ k1 ]1 X( S
    Call mat.gh(1, y, x)
    ; M  D2 S! R! l8 c6 V0 J& ~8 P7 QSet mat = Nothing( r) X! ?; y  Q5 P4 ]8 _
    Text2.Text = y
    " a- s1 T9 K& T8 G* I
    * J7 R9 a: c8 a! \1 hhandle_error: MsgBox (Err.Description)
    8 T% o0 U0 u. C- x' W) [: ~
    4 W8 q- t- Z- l( a8 W2 BEnd Sub7 ~: D+ B$ V+ J

    * Z5 p, Y% J3 X0 Q5 ZPrivate Sub Text1_Change()
    0 o+ i  E7 z! }& K# [7 {- I, h8 kx = CDbl(Text1.Text)% W0 q. J) f0 T) V- w8 o
    End Sub
    / i& }" _. e3 _2 h
    # }$ k' w4 [! i. C7 i2 J* M$ kPrivate Sub Text2_Change()* M( `8 p$ G, X2 e$ c% u
    Text2.Text = yEnd Sub8 F: ?9 _* A' V+ |
    我估计是红字这,肯定错了但我也不知该改成什么 ,请高手帮忙。. O  r6 X4 w, b+ x6 l7 {! M, S: {
    本人 qq 1531145753  

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

    截图.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, 2026-9-19 20:47 , Processed in 0.353231 second(s), 79 queries .

    回顶部