我添加自定义函数 后 Function QQMSGX(Formula,QQNum,QQMSG)
'系统会在逐K线模式解释公式时的每个周期都会调用此函数一遍，因此设计时应该注重程序的执行效率，不要重复的执行一些没必要的代码
QQMSG=document.GetExtString("QQSTR")
Set obj = CreateObject("WWSCommon.TCGroup")
bq = " 道衍交易系统信号发布 "
mxmsg = bq &" " & Date &" " & Time & vbCrLf & " 橡胶主力" & " " & QQMSG
call obj.TransMessage("", mxmsg)
Set obj = Nothing
Set obj = CreateObject("WWSCommon.TCGroup")
call obj.TransMessage("群", mxmsg)
Set obj = Nothing
Set obj = CreateObject("WWSCommon.TCGroup")
call obj.TransMessage("", mxmsg)
Set obj = Nothing
End Function
然后在公式代码做这样的修改该 原来是 IF COND THEN BEGIN BUY(1,1,MARKET) ;END 我在END前加入if islastbar and bb<>barpos then
begin
bb:= barpos;
extgbstringSet('QQSTR','下班回家平仓:'+numtostr(close,5));
VQQM:=QQMSGX(1,close);
end 这样的效果条件出现信号那K线一直在发消息 怎么解决
用一个超全局变量控制一下,代码逻辑如下:
GLOBALVARIABLE : MySend = 0;
if ISLASTBAR THEN
begin
IF 条件 AND MYSend <> TIME THEN
BEGIN
MYSEND := TIME;
//QQ发送代码
END;
end;
[此贴子已经被作者于2014/6/6 12:12:09编辑过]