 |
|
QQ一直在發(fā)消息怎么辦 [金字塔]
- 咨詢內(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;
[此貼子已經(jīng)被作者于2014/6/6 12:12:09編輯過]
if ISLASTBAR THEN
begin
IF 條件 AND MYSend <> TIME THEN
BEGIN
MYSEND := TIME;
//QQ發(fā)送代碼
END;
end;
有思路，想編寫各種指標(biāo)公式，程序化交易模型，選股公式，預(yù)警公式的朋友
可聯(lián)系技術(shù)人員 QQ: 1145508240 進(jìn)行 有償 編寫！（不貴！點(diǎn)擊查看價(jià)格！）
相關(guān)文章
-
沒有相關(guān)內(nèi)容
會(huì)員登錄/注冊(cè)