咨詢內容:這是我的開倉代碼:IF FLAG=1 AND ref(開多條件,1) AND (ENTERBARS>5 OR ENTERBARS=-1) AND TRADETIME THEN BEGIN //DRAWTEXT(1,-50,'多'),ALIGN0;SELLSHORT(HOLDING<0,手數,LIMITR,OPEN);BUY(HOLDING=0,手數,LIMITR,OPEN);if islastbar and bb<>barpos then beginbb:= barpos;extgbdataSet('恒指1號','恒指1號:開多信號,價格:'+numtostr(close,0)); VQQM:=QQMSSG(1);END;END;為什么全局變量會定義成數值類型? 此主題相關圖片如下:qq.png
此主題相關圖片如下:qq1.png
金字塔客服:
EXTGBSTRINGSET這個是設置字符串變量。你用的是單值全局變量
用戶回復:開倉代碼:IF ref(開多條件,2) and cs1<5 and 日內 and TRADETIME THEN BEGIN //DRAWTEXT(1,-50,'多'),ALIGN0;SELLSHORT(HOLDING<>0,手數,LIMITR,OPEN);BUY(HOLDING=0,手數,LIMITR,OPEN);if islastbar and bb<>barpos then beginbb:= barpos;EXTGBSTRINGSET('恒指2號','恒指2號:開多信號,價格:'+numtostr(close,0)); VQQM:=QQMSSG(2);END;END;VBA代碼:Function QQMSSG(Formula,Flag) Select Case Flag Case 1QQMSG=document.GetExtString("恒指1號") '獲取公式中設置的變量值Case 2QQMSG=document.GetExtString("恒指2號")End Select Set obj = CreateObject("WWSCommon.TCGroup") call obj.TransMessage("FUTURE", QQMSG) Set obj = NothingEnd Function為什么有時候可以發送開平倉消息,有時候卻只發現送了平倉消息? 此主題相關圖片如下:qq3.png