等级: 专业版
- 注册:
- 2022-1-11
- 曾用名:
|
楼主 |
发表于 2024-9-10 21:28
|
显示全部楼层
老师好。
以下为记录
GGSBK:GETINIFILE('E:\ZF_F60.INI',STKNAME,'F6BK'),NODRAW,COLORWHITE;//获取《某一股票》后台执行的《开/平》多仓数量
GGSBP:GETINIFILE('E:\ZF_F60.INI',STKNAME,'F6BP'),NODRAW,COLORWHITE;//获取《某一股票》图表发出的《开/平》多仓数量
if GGSBK<>0||GGSBP<>0 then BEGIN
BBAR:GETINIFILE('E:\ZF_F60.INI',STKNAME,'F6BAR'),NODRAW,COLORWHITE;//获取《某一股票已开多仓K线位置》---标记后台是否执行
//SBAR:=GETINIFILE('E:\MCNINFILE.INI',STKNAME,'F7BAR'),NODRAW,COLORWHITE;//获取《某一股票已开空仓K线位置》---标记后台是否执行
T0:GETINIFILE('E:\ZF_F60.INI',STKNAME,'F6T'),NODRAW,COLORWHITE;//后台程序记录《某一股票》《开/平》的K线位置---标记后台是否执行
if T0<>BBAR then begin
WRITEINIFILE('E:\ZF_F60.INI',STKNAME,'F6T',BBAR);
//------------------------------------------平多:优先平老仓后/老仓不足则平今仓转为开空仓对锁下单程序-------------------------------------------------
if GGSBP>0 then begin//hold0=0获取《某一股票开多仓信号标识》的持仓数量=0——平仓;switch0=0——开关状态为《只可平》状态
//TCANCEL(1,2);
if GZ=1 then tsell(1,0,mkt);//不足补开空对锁
if nGZ=1 then tsell(1,0,LMT,C-6*MINDIFF,0);//不足补开空对锁
WRITEINIFILE('E:\ZF_F60.INI',STKNAME,'F6BP',0); //复位,等待下次平仓信号
SENDPHONEMSG(STKNAME&'平多,价格:'&NUMTOSTR(CLOSE,2),1);
GOTO CONTINUELINE0;
end
//------------------------------------------开多:优先平老空仓对锁下单程序/老空仓不足则开多仓-------------------------------------------------
if GGSBK>0 then begin//hold0=1获取《某一股票开多仓信号标识》的持仓数量=1——开仓;switch0=0——开关状态为《只可开》状态
//TCANCEL(CLOSE>TENTERPRICE,1);
if GZ=1 then tbuy(1,0,mkt);//不足补开多
if nGZ=1 then tbuy(1,0,LMT,C+6*MINDIFF,0);//不足补开多
WRITEINIFILE('E:\ZF_F60.INI',STKNAME,'F6BK',0);//复位,等待下次开多仓信号
SENDPHONEMSG(STKNAME&'开多,价格:'&&NUMTOSTR(CLOSE,2),1);
GOTO CONTINUELINE0;
end
end
END
截图中的记录显示以下语句,成功执行,'F6T'被赋值BBAR,导致T0=BBAR!!
//SBAR:=GETINIFILE('E:\MCNINFILE.INI',STKNAME,'F7BAR'),NODRAW,COLORWHITE;//获取《某一股票已开空仓K线位置》---标记后台是否执行
T0:GETINIFILE('E:\ZF_F60.INI',STKNAME,'F6T'),NODRAW,COLORWHITE;//后台程序记录《某一股票》《开/平》的K线位置---标记后台是否执行
if T0<>BBAR then begin
WRITEINIFILE('E:\ZF_F60.INI',STKNAME,'F6T',BBAR);
但是以下语句不执行!!
if GZ=1 then tbuy(1,0,mkt);//不足补开多
if nGZ=1 then tbuy(1,0,LMT,C+6*MINDIFF,0);//不足补开多
请老师测试
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?
x
|