怎么样才能让如下语句只执行一次？

joe1328

后台程序代码如下：

IF  HIGHT>=QQ THEN TBUY(THOLDING=0,1,MKT);

IF THOLDING>0 and TENTERBARS=0  THEN BEGIN //如果当前K开多
    AA:=AA+1;   //把AA的值累加1
    EXTGBDATASET('BB',AA);  //将AA的值保存到全局变量BB中
END

上面代码的目的是在程序开多仓后，把这次开多记录下来，AA就是开多的累计数量。

但上述代码执行后的结果就是在当根K没有结束前，AA就一直在加1，而不是只加1次。

要怎么写才能确保A:=AA+1只执行一次？谢谢！




补充内容 (2021-6-8 15:43):
注意是后台哦，不能等一根K线结束

技术008

IF  HIGHT>=QQ THEN TBUY(THOLDING=0,1,MKT);

IF THOLDING>0 and TENTERBARS=0 and barpos<>extgbdata('bar')  THEN BEGIN //如果当前K开多
    AA:=AA+1;   //把AA的值累加1
    EXTGBDATASET('BB',AA);  //将AA的值保存到全局变量BB中
    EXTGBDATASET('bar',barpos);
END

技术009

[PEL] 复制代码

if time>extgbdata('t') then
begin
//编写你的只需要执行一次的语句
extgbdataset('t',time);//纪录下执行时候的K线时间。这样后面不会二次执行这个if下的代码了。
end

参考这个例子，你只需要把自己的控制条件放到if判断里。需要执行的语句放到下面的begin-end下就行了。

joe1328

非常感谢上面两位！金字塔的服务何止是好，简直就是感人

晚上开盘就测试.

技术009

time函数后台也有效的。每一个K都有自己的K线时间的。就跟获取开高低收一样，是必然有的。