我写了个延时测试模型,延时正确,但开不了仓。请高手指教。
//测试延时动作
//信号刷新500ms,固定时间1s
//实际延时时间约=YS/2
input:YS(10,1,100,1);
M3:MA(C,3);
C0:C;
B:=C0>M3;
S:=C0<M3;
IF NOT(B) THEN EXTGBDATASET('BC',0);
IF NOT(S) THEN EXTGBDATASET('SC',0);
BCS:EXTGBDATA('BC'),LINETHICK0,COLORWHITE;//读取'BS'值
SCS:EXTGBDATA('SC'),LINETHICK0,COLORWHITE;//读取'BS'值
IF B THEN BEGIN
IF BCS<YS THEN BEGIN
EXTGBDATASET('BC',BCS+1);
EXIT;
END
IF BCS>=YS THEN BEGIN
{平空}EXITSHORT:B,TFILTER;
{开多}ENTERLONG:B,TFILTER;
EXTGBDATASET('BC',0);
END
END
IF S THEN BEGIN
IF SCS<YS THEN BEGIN
EXTGBDATASET('SC',SCS+1);
EXIT;
END
IF SCS>=YS THEN BEGIN
{平多}EXITLONG:S,TFILTER;
{开空}ENTERSHORT:S,TFILTER;
EXTGBDATASET('SC',0);
END
END
[此贴子已经被作者于2011-7-15 10:22:04编辑过]