以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://www.weistock.com/bbs/index.asp)
--  高级功能研发区  (http://www.weistock.com/bbs/list.asp?boardid=5)
----  QQ一直在发消息怎么办  (http://www.weistock.com/bbs/dispbbs.asp?boardid=5&id=65862)
--  作者：QQ56048933
--  发布时间：2014/6/6 9:13:30
--  QQ一直在发消息怎么办
我添加自定义函数 后 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线一直在发消息  怎么解决
--  作者：王锋
--  发布时间：2014/6/6 12:11:59
--  

用一个超全局变量控制一下,代码逻辑如下:

 

GLOBALVARIABLE : MySend = 0;
if ISLASTBAR THEN
begin
   IF 条件 AND MYSend <> TIME THEN
   BEGIN
       MYSEND := TIME;
       //QQ发送代码
   END;
end;

[此贴子已经被作者于2014/6/6 12:12:09编辑过]