公式模型编写问题提交-全局变量金字塔客服中心 - 专业程序化交易软件提供商

以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  公式模型编写问题提交  (http://weistock.com/bbs/list.asp?boardid=4)
----  全局变量  (http://weistock.com/bbs/dispbbs.asp?boardid=4&id=150031)

--  作者：林华强
--  发布时间：2017/4/5 10:08:37
--  全局变量

这是我的开仓代码：
IF FLAG=1 AND ref(开多条件,1) AND (ENTERBARS>5 OR ENTERBARS=-1) AND TRADETIME THEN BEGIN
//DRAWTEXT(1,-50,\'多\'),ALIGN0;
SELLSHORT(HOLDING<0,手数,LIMITR,OPEN);
BUY(HOLDING=0,手数,LIMITR,OPEN);
if islastbar and bb<>barpos then begin
bb:= barpos;
extgbdataSet(\'恒指1号\',\'恒指1号：开多信号，价格:\'+numtostr(close,0));
VQQM:=QQMSSG(1);
END;
END;
为什么全局变量会定义成数值类型？
此主题相关图片如下：qq.png

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

--  作者：wenarm
--  发布时间：2017/4/5 10:10:10
--
EXTGBSTRINGSET这个是设置字符串变量。你用的是单值全局变量

--  作者：林华强
--  发布时间：2017/4/5 13:27:22
--

开仓代码：
IF ref(开多条件,2) and cs1<5 and

日内 and TRADETIME THEN BEGIN
//DRAWTEXT(1,-50,\'多\'),ALIGN0;
SELLSHORT(HOLDING<>0,手数,LIMITR,OPEN);
BUY(HOLDING=0,手数,LIMITR,OPEN);
if islastbar and bb<>barpos then begin
   bb:= barpos;
EXTGBSTRINGSET(\'恒指2号\',\'恒指2号：开多信号，价格:\'+numtostr(close,0));
VQQM:=QQMSSG(2);
END;
END;
VBA代码：
Function QQMSSG(Formula,Flag)
Select Case Flag
Case 1
QQMSG=document.GetExtString("恒指1号") \'获取公式中设置的变量值
Case 2
QQMSG=document.GetExtString("恒指2号")
End Select
Set obj = CreateObject("WWSCommon.TCGroup")
call obj.TransMessage("FUTURE", QQMSG)
Set obj = Nothing
End Function
为什么有时候可以发送开平仓消息，有时候却只发现送了平仓消息？
此主题相关图片如下：qq3.png

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

--  作者：yukizzc
--  发布时间：2017/4/5 13:31:36
--

肯定是盘中条件没有满足，利用debugfile记录下调试信号

具体使用可以论坛搜索下这个函数

--  作者：林华强
--  发布时间：2017/4/5 13:36:34
--
盘中有满足的吧，要不然我图表怎么会有出现开仓信号

--  作者：yukizzc
--  发布时间：2017/4/5 14:02:41
--

http://www.weistock.com/bbs/dispbbs.asp?BoardID=4&ID=49428

看下使用

--  作者：林华强
--  发布时间：2017/4/5 14:50:21
--
测试过了，确实是满足开仓信号了，而且全局变量也记录下了开仓信息，但是QQ却只有平仓信息，没有发送开仓信息？
还有一个问题是14:42发送了一个开多消息
此主题相关图片如下：qq5.png

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

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

，但是图表并没有啊？

--  作者：yukizzc
--  发布时间：2017/4/5 15:07:11
--

debugfile输出记录在的？

那不晓得了，你在 vba的qq模块里加上一条输出语句坐下调试呢

抛开qq不要用，请使用软件自带的debugfile去作为调试依据