测试CU_MA1和CU_MA2时提示编译器错误'6'溢出 - 高级功能研发区 - 金字塔客服中心 - 专业程序化交易软件提供商

金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 高级功能研发区 → 测试CU_MA1和CU_MA2时提示编译器错误'6'溢出

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

共有3980人关注过本帖树形打印复制链接主题：测试CU_MA1和CU_MA2时提示编译器错误'6'溢出

lancer

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

加好友

发短信

等级：新手上路帖子：25 积分：0 威望：0 精华：0 注册：2013/6/10 11:14:47

测试CU_MA1和CU_MA2时提示编译器错误'6'溢出 发帖心情

Post By：2015/9/1 10:34:21 [只看该作者]

此主题相关图片如下：cuma2.png

在序列模式下运行

XULIE:CU_MA1(CLOSE,5),COLORRED;

报溢出错误后黄色光标停留在 For k = i-(Cyc-1) To i

在逐线模式下运行

ZHUKX:CU_MA2(5),COLORBLUE;

报溢出错误后黄色光标停留在 for i = Formula.IndexData-cyc+1 to Formula.IndexData

如附件所示，请看下是哪方面原因？

[此贴子已经被作者于2015/9/1 10:35:26编辑过]

lancer

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

加好友

发短信

等级：新手上路帖子：25 积分：0 威望：0 精华：0 注册：2013/6/10 11:14:47

Post By：2015/9/1 10:39:25 [只看该作者]

weistock.com/bbs/UploadFile/2015-9/20159110352342660.png

lancer

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

加好友

发短信

等级：新手上路帖子：25 积分：0 威望：0 精华：0 注册：2013/6/10 11:14:47

Post By：2015/9/1 10:43:53 [只看该作者]

附件上传及其难用

此主题相关图片如下：cuma1.png

yukizzc

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

加好友

发短信

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

Post By：2015/9/1 10:51:13 [只看该作者]

这两个自带的函数你没有改动过吧？？

试下软件重启再去使用看看呢

lancer

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

加好友

发短信

等级：新手上路帖子：25 积分：0 威望：0 精华：0 注册：2013/6/10 11:14:47

Post By：2015/9/1 11:36:31 [只看该作者]

因为报错，这两个函数我改动过但最后又改回来了。版主能发它们的源码我比对下看看吗

王锋

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

加好友

发短信

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

Post By：2015/9/1 12:03:15 [只看该作者]

你可以其他目录重装一个金字塔，然后自行对比

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

金字塔-技术部

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

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

Email:service@weistock.com

王锋

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

加好友

发短信

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

Post By：2015/9/1 12:04:36 [只看该作者]

或者使用调试手段，看一下出错行的变量是否是出现数值异常，然后依次往上排查问题

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

金字塔-技术部

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

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

Email:service@weistock.com

lancer

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

加好友

发短信

等级：新手上路帖子：25 积分：0 威望：0 精华：0 注册：2013/6/10 11:14:47

Post By：2015/9/1 13:06:35 [只看该作者]

重装的话是不是只要把\Weisoft Stock\Setting\文件夹备份，装完再还原就可以了？

yukizzc

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

加好友

发短信

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

Post By：2015/9/1 13:41:35 [只看该作者]

这个是配置文件，还有个document里面是公式文件包括了你vba里面代码。

重装时候要把document里面的.stk公式文件删掉，否则他不会替换初始文件的

lancer

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

加好友

发短信

等级：新手上路帖子：25 积分：0 威望：0 精华：0 注册：2013/6/10 11:14:47

Post By：2015/9/1 14:56:37 [只看该作者]

重装后错误依旧

'计算逐周期模式下指定周期长度的收盘价均价

Function CU_MA2(Formula,cyc)

'得到K线数据对象

Set History = Formula.ParentGrid.GetHistoryData()

'若当前周期尚未到计算周期,不参与计算

if Formula.IndexData < cyc-1 then

CU_MA2 = 0

exit function

end if

DataCount = 0

for i = Formula.IndexData-cyc+1 to Formula.IndexData

'累加收盘价

DataCount = DataCount + history.close(i)

CU_MA2 = DataCount / cyc

End Function

'计算序列模式下指定周期长度的收盘价均价

Function CU_MA1(Formula,CLOSE,CYC)

CU_MA1=0

'防止公式逐周期模式时调用

If Formula.WorkMode = 0 Then

Exit Function

End If

'CLOSE数组数据长度一定会与Formula.DataSize-1相等

DataCount = UBound(CLOSE)

If DataCount <> Formula.DataSize-1 Then

Exit Function

End If

'定义一个计算返回的数组

Dim ResultMa

Redim ResultMa(DataCount)

For i = Cyc-1 To Formula.DataSize-1

Count = 0

For k = i-(Cyc-1) To i

Count = Count + CLOSE(k)

ResultMa(i) = Count / Cyc

'返回一个计算完毕的均线数组

CU_MA1 = ResultMa

End Function

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

总数 13 1 2 下一页

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

主题：测试CU_MA1和CU_MA2时提示编译器错误'6'溢出