以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://www.weistock.com/bbs/index.asp)
--  高级功能研发区  (http://www.weistock.com/bbs/list.asp?boardid=5)
----  请教一下这个 VBA 怎么表达  (http://www.weistock.com/bbs/dispbbs.asp?boardid=5&id=60944)
--  作者：eric917
--  发布时间：2014/1/14 14:28:28
--  请教一下这个 VBA 怎么表达
IF  UP_G1  AND  EXTGBDATA(\'SKV_G1\') =0  AND EXTGBDATA(\'Last_ Location\')=0 THEN  
    BEGIN
        EXTGBDATASET(\'T0\',TIMETOT0(DYNAINFO(207)));
        EXTGBDATASET(\'Last_ Location\',1) ;
    END 
        
IF  TISREMAIN(3) && EXTGBDATASET(\'Last_ Location\',1) &&
TIMETOT0(DYNAINFO(207))-EXTGBDATA(\'T0\')>0 && 
TIMETOT0(DYNAINFO(207))-EXTGBDATA(\'T0\')<=2 THEN;
     BEGIN 
          TCANCEL(1,0);
          EXTGBDATASET(\'T0\',TIMETOT0(DYNAINFO(207)));
      END
      
IF  TIMETOT0(DYNAINFO(207))-EXTGBDATA(\'T0\')>0 && 
TIMETOT0(DYNAINFO(207))-EXTGBDATA(\'T0\')<=2 THEN;
     BEGIN       
         TBUYSHORT(1,SS,LMT,G1+10); // 在G1的上面10个点挂一张多单,这里您要区分点和变动价位的差别,MINDIFF表示变动价位
         TBUY(1,SS,LMT,LMT,G1-10);      // 在G1的下面10个点挂一张多单
         EXTGBDATASET(\'SKV_G1\',1) ;
         EXTGBDATASET(\'TOTAL_SVOL\',EXTGBDATA(\'TOTAL_SVOL\')+SS);
         DEBUGFILE(\'D:\\DEBUG\\GRID_DEBUG.TXT\',\'G1开空_SKV_G1=%.0f\' ,EXTGBDATA(\'SKV_G1\'));
         DEBUGFILE(\'D:\\DEBUG\\GRID_DEBUG.TXT\',\'TOTAL_SVOL=%.0f\' ,EXTGBDATA(\'TOTAL_SVOL\'));
         DEBUGFILE(\'D:\\DEBUG\\GRID_DEBUG.TXT\',\'Last_ Location=%.0f\' ,EXTGBDATA(\'Last_ Location\'));
     END 

请教一下，我想当红色条件出现后，才执行蓝色部分的，但蓝色部分出现后才执行绿色部分，就是红色如果没有触发，后面的两个条件都不会触发，请问用什么控制语句可以实现呢？
代码都是红色部分出现后1秒，触发蓝色部分 ，而蓝色部分触发后1秒，才触发绿色部分，谢谢

版主说后台已经不能实现这个，需要用VBA写，麻烦解答一下，谢谢
--  作者：eric917
--  发布时间：2014/1/14 15:24:41
--  
能回答一下吗？
--  作者：王锋
--  发布时间：2014/1/14 16:00:32
--  
稍等,正在处理中