咨詢內(nèi)容：這是我的開倉代碼：IF FLAG=1 AND ref(開多條件,1) AND (ENTERBARS>5 OR ENTERBARS=-1) AND TRADETIME THEN BEGIN //DRAWTEXT(1,-50,'多'),ALIGN0;SELLSHORT(HOLDING<0,手?jǐn)?shù),LIMITR,OPEN);BUY(HOLDING=0,手?jǐn)?shù),LIMITR,OPEN);if islastbar and bb<>barpos then beginbb:= barpos;extgbdataSet('恒指1號','恒指1號：開多信號，價(jià)格:'+numtostr(close,0)); VQQM:=QQMSSG(1);END;END;為什么全局變量會(huì)定義成數(shù)值類型？ 此主題相關(guān)圖片如下：qq.png
用戶回復(fù)：開倉代碼：IF ref(開多條件,2) and cs1<5 and 日內(nèi) and TRADETIME THEN BEGIN //DRAWTEXT(1,-50,'多'),ALIGN0;SELLSHORT(HOLDING<>0,手?jǐn)?shù),LIMITR,OPEN);BUY(HOLDING=0,手?jǐn)?shù),LIMITR,OPEN);if islastbar and bb<>barpos then beginbb:= barpos;EXTGBSTRINGSET('恒指2號','恒指2號：開多信號，價(jià)格:'+numtostr(close,0)); VQQM:=QQMSSG(2);END;END;VBA代碼：Function QQMSSG(Formula,Flag) Select Case Flag Case 1QQMSG=document.GetExtString("恒指1號") '獲取公式中設(shè)置的變量值Case 2QQMSG=document.GetExtString("恒指2號")End Select Set obj = CreateObject("WWSCommon.TCGroup") call obj.TransMessage("FUTURE", QQMSG) Set obj = NothingEnd Function為什么有時(shí)候可以發(fā)送開平倉消息，有時(shí)候卻只發(fā)現(xiàn)送了平倉消息？ 此主題相關(guān)圖片如下：qq3.png
打印本文
關(guān)閉窗口