Rss & SiteMap

金字塔客服中心 - 专业程序化交易软件提供商 http://www.weistock.com/bbs/

专业程序化软件提供商
共3 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:请教一下这个 VBA 怎么表达

1楼
eric917 发表于:2014/1/14 14:28:28
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写,麻烦解答一下,谢谢
2楼
eric917 发表于:2014/1/14 15:24:41
能回答一下吗?
3楼
王锋 发表于:2014/1/14 16:00:32
稍等,正在处理中
共3 条记录, 每页显示 10 条, 页签: [1]


Powered By Dvbbs Version 8.3.0
Processed in 0.02344 s, 2 queries.