您現(xiàn)在的位置：程序化交易>> 期貨公式>> 金字塔等>> 金字塔知識(shí)>>正文內(nèi)容

QQ一直在發(fā)消息怎么辦　[金字塔]

作者：金字塔來源：cxh99.com 發(fā)布時(shí)間：2014年08月30日點(diǎn)擊數(shù)：　【收藏到本網(wǎng)的會(huì)員中心】

咨詢內(nèi)容： 我添加自定義函數(shù) 后 Function QQMSGX(Formula,QQNum,QQMSG) '系統(tǒng)會(huì)在逐K線模式解釋公式時(shí)的每個(gè)周期都會(huì)調(diào)用此函數(shù)一遍，因此設(shè)計(jì)時(shí)應(yīng)該注重程序的執(zhí)行效率，不要重復(fù)的執(zhí)行一些沒必要的代碼 QQMSG=document.GetExtString("QQSTR") Set obj = CreateObject("WWSCommon.TCGroup") bq = " 道衍交易系統(tǒng)信號(hào)發(fā)布 " 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 這樣的效果條件出現(xiàn)信號(hào)那K線一直在發(fā)消息怎么解決
金字塔客服：
用一個(gè)超全局變量控制一下,代碼邏輯如下:

GLOBALVARIABLE : MySend = 0;
if ISLASTBAR THEN
begin
   IF 條件 AND MYSend <> TIME THEN
   BEGIN
       MYSEND := TIME;
       //QQ發(fā)送代碼
   END;
end;
[此貼子已經(jīng)被作者于2014/6/6 12:12:09編輯過]

有思路，想編寫各種指標(biāo)公式，程序化交易模型，選股公式，預(yù)警公式的朋友

可聯(lián)系技術(shù)人員 QQ: 1145508240 進(jìn)行有償編寫！（不貴！點(diǎn)擊查看價(jià)格！）

【字體：小大】【打印文章】【查看評(píng)論】