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

此主题相关图片如下：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编辑过]

附件上传及其难用

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

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

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

重装后错误依旧

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

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

昨天又卸载了一遍软件，把安装目录下残留的文件全部删除，重装后从函数列表-自定义函数逐个添加我自己的函数，覆盖到系统自动产生的Function框架代码上，再测试就不报错了！推测可能是最初我添加了一个MyModule模块存放自己的函数，但是导出自定义函数时会提示找不到代码，于是把MyModule里的直接粘贴到了Function里。是否因同步代码产生了此问题，版主们测试下吧

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