共8 条记录, 每页显示 10 条, 页签: [1]

[浏览完整版]

标题：全局变量

1楼

林华强 发表于：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;

为什么全局变量会定义成数值类型？
图片点击可在新窗口打开查看

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

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

2楼

wenarm 发表于：2017/4/5 10:10:10

EXTGBSTRINGSET这个是设置字符串变量。你用的是单值全局变量

3楼

林华强 发表于：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;

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

4楼

yukizzc 发表于：2017/4/5 13:31:36

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

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

5楼

林华强 发表于：2017/4/5 13:36:34

盘中有满足的吧，要不然我图表怎么会有出现开仓信号

6楼

yukizzc 发表于：2017/4/5 14:02:41

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

看下使用

7楼

林华强 发表于：2017/4/5 14:50:21

测试过了，确实是满足开仓信号了，而且全局变量也记录下了开仓信息，但是QQ却只有平仓信息，没有发送开仓信息？

还有一个问题是14:42发送了一个开多消息
图片点击可在新窗口打开查看

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

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

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

，但是图表并没有啊？

8楼

yukizzc 发表于：2017/4/5 15:07:11

debugfile输出记录在的？

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

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

共8 条记录, 每页显示 10 条, 页签: [1]