如題:飛狐+下單大師 萬用API元件
摸索一段時日仍無法解決,
請求大大們協助
飛狐訊號文字檔最後接口,參考網上的範例,
儲存設定時會有錯誤訊息,有附上簡單的指標,
煩請解惑,方便日後 當學習範例檔,謝謝。
---------------------------------------------------------
以下是簡單的指標範例:
XA:=MA(CLOSE,5);
XB:=MA(CLOSE,15);
ENTERLONG:CROSS(XA,XB);
EXITLONG:CROSS(XB,XA)
※請教示範後面如何接※
---------------------------------------------------
以下是網上的範例, 儲存設定時會有錯誤訊息:
NowPoInt:= 0; // 因奇狐無法記錄變數值,總倉位要從萬用 API 抓出來
// 取得倉位:若沒有初始化倉位,會回傳 99999
<%
Dim OMCOMAPI, rtn
Set OMCOMAPI = CreateObject("OMSignAPI.OMCOMAPI")
rtn = OMCOMAPI.GetNowPosition("FTX")
if rtn <> 99999 then FFL.VarData("NowPoInt") = rtn
%>
NowPo:= NUMTOSTR(NowPoInt,0);
//作多 +1
NowPO:= IF(ENTERLONG,'1', NowPO);
//作空 -1
NowPO:= IF(ENTERSHORT,'-1', NowPO);
// 平倉 0
NowPO:= IF((EXITLONG and NowPO= '1') or (EXITSHORT and NowPO= '-1')
,'0', NowPO);
// 當沖 1:25 平倉 0
NowPO:= IF(OPENMINUTES(TIME)>=280,'0', NowPO);
//K線時間
NowDT:= NUMTOSTR(YEAR,0) + '/' +NUMTOSTR(MONTH,0)+ '/'+NUMTOSTR(DAY,0)
+ ' '+NUMTOSTR(HOUR,0)+':'+NUMTOSTR(MINUTE,0)+':00';
//最新收盤價
NowC := NUMTOSTR(C,0);
<%
Dim OMCOMAPI, rtn
NowDT = FFL.VarData("NowDT")
NowPO = FFL.VarData("NowPO")
NowC = FFL.VarData("NowC")
Set OMCOMAPI = CreateObject("OMSignAPI.OMCOMAPI")
rtn = OMCOMAPI.GoOrder("FTX","",NowDT,NowPO,NowC)
%> |