查看: 10355|回复: 4

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

[复制链接]

字体大小: 正常放大

hahaysw

3 主题	4 听众	943 积分

TA的每日心情

	开心 2014-5-22 18:08

签到天数: 270 天

[LV.8]以坛为家I

群组: 2011年第一期数学建模

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

群组: LINGO

群组: EXCEL

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

电梯直达

1^#

发表于 2011-12-22 17:43 |只看该作者 |倒序浏览

|招呼Ta 关注Ta

50体力

本帖最后由 hahaysw 于 2011-12-24 10:50 编辑

我用matlab 生成一个com 组件想在vb中调用，但自己没弄成，所以希望大家帮我看看问题出在哪里，我这有两个com 组件分别是dell 和untitled1分别有不同的功能 dell 是个解线性方程组的，难度较大。另外一个是求y=sqty(x)的简单com 组建。我自己做了一个y=sqrt(x) 关键问题是不能显示出返回值来我的di二个com vb程序的类名是 gh1 这个com我也做了个程序但是编辑框不能输入文字请大家看看怎么了
第一个com 的类名是dell 我也做了个简单的调用vb程序但没有定义其他变量
附件为保险我再重发一下

第一个.zip (67.68 KB, 下载次数: 0)

第二个.zip (67.52 KB, 下载次数: 2)
下面是我的第二个程序的代码

Private Sub Form_Load()

Dim x As Double
Dim y As Variant
Dim mat As gh1
On Error GoTo handle_error

Set mat = New gh1
x = 4
y = 2
Call mat.gh(1, y, x)
Set mat = Nothing
Text2.Text = y

handle_error: MsgBox (Err.Description)

End Sub

Private Sub Text1_Change()
x = CDbl(Text1.Text)
End Sub

Private Sub Text2_Change()
Text2.Text = yEnd Sub
我估计是红字这，肯定错了但我也不知该改成什么，请高手帮忙。
本人 qq 1531145753

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