以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://www.weistock.com/bbs/index.asp)
--  高级功能研发区  (http://www.weistock.com/bbs/list.asp?boardid=5)
----  [原创]  (http://www.weistock.com/bbs/dispbbs.asp?boardid=5&id=81852)
--  作者：daoke
--  发布时间：2015/7/30 11:43:34
--  [原创]
vba如何读到交易策略里面的指标值
这是交易系统自编的指标
D_MACD3:REF(MACD1,2) < 0 AND REF(MACD1,3) < 0 AND REF(MACD1,4) < 0 AND zLD = 1,NODRAW;
k_MACD3:REF(MACD1,2) > 0 AND REF(MACD1,3) > 0 AND REF(MACD1,4) > 0 AND zLk = 1,NODRAW;

这是vba代码：

Private D_MACD3,k_MACD3

Set bgzForm = MarketData.STKINDI(sCode,sMarket,z_ZDCL,0,17)

bgzkMA3 = bgzForm.GetBufData("k_MACD3",bgzForm.DataSize-1)        
arrQJ(19,5) = bgzkMA3
bgzdMA3 = bgzForm.GetBufData("D_MACD3",bgzForm.DataSize-1)       
arrQJ(18,5) = bgzdMA3

k_MACD3 打印出来是空值
--  作者：yukizzc
--  发布时间：2015/7/30 14:12:04
--  

Set bgzForm = MarketData.STKINDI("if00","zj","A",0,17)                   //是不是这边参数问题，你用直接定义的参数试下呢
bgzkMA3 = bgzForm.GetBufData("k_MACD3",bgzForm.DataSize-1)       
application.MsgOut bgzkMA3
--  作者：daoke
--  发布时间：2015/7/30 15:09:33
--  
我是取钱一根k线的值，不是取当前k线的值，公式里面是仅刷新最后一个根k线的值，问题出在这里，所以我指标的值是空值。