9点15分出错 - 高级功能研发区 - 金字塔客服中心 - 专业程序化交易软件提供商

欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。

金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 高级功能研发区 → 9点15分出错

共有3859人关注过本帖树形打印复制链接主题：9点15分出错

黄金精算师

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：黑侠帖子：836 积分：0 威望：0 精华：0 注册：2014/12/26 11:47:55

9点15分出错 发帖心情

Post By：2016/5/5 9:22:08 [只看该作者]

帮看一下，这段程序那里不对

我第二次在盘中突然报错

Sub TestReportData() ' 取行情数据

set report1=marketdata.getreportdata("IF09","ZJ")

bk_TextBox2.text=report1.NewPrice

bk_TextBox1.text=report1.buyprice1

bk_TextBox3.text = report1.sellprice1

set report1=marketdata.getreportdata("SH300","ZJ")

bk_TextBox14.text=report1.NewPrice

bk_TextBox11.text= ROUND((bk_TextBox7 - bk_TextBox2) * 300 ,4) '利润

bk_TextBox12.text=ROUND((bk_TextBox2 - bk_TextBox14) / bk_TextBox14 ,4) ' 报错后指向这一行程序，这段程序也是我在论坛里问过很多次那个小数点的事

bk_TextBox21.text= ROUND(bk_TextBox12*bk_TextBox14*300,1) '到期利润

这是在运行中出错的提示，出错时间应该是刚进入9点15分，在开盘前，这是第二次出错，这一次，怎么都开不了金字塔软件查到最后也没有找到原因，后面就不明不白的好了

此主题相关图片如下：qq图片20160505091858.bmp

黄金精算师

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：黑侠帖子：836 积分：0 威望：0 精华：0 注册：2014/12/26 11:47:55

Post By：2016/5/5 9:24:35 [只看该作者]

这个程有两段，下面这一段好像一直与上面的结果不同
这是下面一半
这两个代码方式是一样的，一个做的IF09一个做的IC09

' ------------------

set report1=marketdata.getreportdata("IC09","ZJ")

' application.msgout Cdate(time) & ",IC09最新价:" &report1.NewPrice & ",买1价:"&report1.buyprice1&",卖1价:"&report1.sellprice1

bk_TextBox5.text=report1.NewPrice

bk_TextBox4.text=report1.buyprice1

bk_TextBox6.text = report1.sellprice1

set report1=marketdata.getreportdata("SH905","ZJ")

bk_TextBox13.text=report1.NewPrice

' bk_TextBox15.text= bk_TextBox5*200 - 200*bk_TextBox19 '利润

bk_TextBox15.text= ROUND((bk_TextBox5 - bk_TextBox19) * 200 ,4) '利润

bk_TextBox20.text= ROUND((bk_TextBox5 - bk_TextBox13) / bk_TextBox13 ,4) '贴水

bk_TextBox22.text= ROUND((bk_TextBox13-bk_TextBox5)*200,1) '到期利润

bk_TextBox23.text= bk_TextBox15.text*-1

bk_TextBox24.text= bk_TextBox23.text*-1

' ---------------------

黄金精算师

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：黑侠帖子：836 积分：0 威望：0 精华：0 注册：2014/12/26 11:47:55

Post By：2016/5/5 9:26:58 [只看该作者]

是不是因为在数据切入行情时这里不能去读取数据？我这次出错是在运行中突然中断的，再进入一切正常

yukizzc

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：21598 积分：0 威望：0 精华：1 注册：2010/7/31 16:35:30

Post By：2016/5/5 9:29:27 [只看该作者]

某个数值取到了0值，你用msgout把被除数都做下输出，自己查下是哪个数值的问题吧

王锋

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：罗宾汉帖子：11808 积分：20695 威望：0 精华：10 注册：2009/8/18 8:15:13

Post By：2016/5/5 9:30:42 [只看该作者]

从描述上看是除零错误，就是除数是0导致的。

有可能是开盘前很多价格都是0，你没有去检查就直接去除导致的

金字塔—专业程序化软件提供商

金字塔-技术部

-----------------------------------------------------------------------------------------------------

工作时间:周一至周五 08:30 - 17:30 周末及法定节假日休息

Email:service@weistock.com

黄金精算师

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：黑侠帖子：836 积分：0 威望：0 精华：0 注册：2014/12/26 11:47:55

Post By：2016/5/5 10:46:39 [只看该作者]

谢谢，
写了一行除0的确实现像一样 bk_TextBox32.text= bk_TextBox23.text/0

这样有什么好的处理办法吗，还是一定要加IF语句处理？

黄金精算师

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：黑侠帖子：836 积分：0 威望：0 精华：0 注册：2014/12/26 11:47:55

Post By：2016/5/5 10:46:51 [只看该作者]

谢谢，
写了一行除0的确实现像一样 bk_TextBox32.text= bk_TextBox23.text/0

这样有什么好的处理办法吗，还是一定要加IF语句处理？

黄金精算师

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：黑侠帖子：836 积分：0 威望：0 精华：0 注册：2014/12/26 11:47:55

Post By：2016/5/5 10:47:03 [只看该作者]

谢谢，
写了一行除0的确实现像一样 bk_TextBox32.text= bk_TextBox23.text/0

这样有什么好的处理办法吗，还是一定要加IF语句处理？

王锋

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：罗宾汉帖子：11808 积分：20695 威望：0 精华：10 注册：2009/8/18 8:15:13

Post By：2016/5/5 11:23:50 [只看该作者]

要加IF判断处理，VBA编程不像PEL，很多东西需要自己去考虑，编写代码要考虑代码的健壮性

金字塔—专业程序化软件提供商

金字塔-技术部

-----------------------------------------------------------------------------------------------------

工作时间:周一至周五 08:30 - 17:30 周末及法定节假日休息

Email:service@weistock.com

下一主题 >> << 上一主题

RSS2.0 | Xhtml无图版 | Xslt无图版 Powered By weistock 2012
页面执行时间 00.06250 秒, 5 次数据查询

主题：9点15分出错