TB编程教程 A函数下单撤单和全局变量操作

MT4智能交易

TB编程教程 A函数下单撤单和全局变量操作
本例在每天收盘前N分钟的时候自动撤掉超级图表中商品的挂单，并全部平仓。通过A_SendOrder进行下单，A_DeleteOrder进行撤单，并使用全局变量记录Tick计数和撤单标志。

1. Params
   
2.     Numeric offSet(1);                    // 委托价格偏移，为了保证成交
   
3.     Numeric BeforeMins(5);                // 收盘前几分钟开始操作
   
4. Vars
   
5.     Numeric tempPos; // 仓位
   
6.     Numeric DeleteOrderTickCounter;
   
7.     Numeric HasSendOrder(0);
   
8. Begin
   
9.     If(BarStatus == 0)
   
10.     {
    
11.         DeleteOrderTickCounter = 9999;
    
12.         HasSendOrder = 0;
    
13.         SetGlobalVar(0,DeleteOrderTickCounter);
    
14.         SetGlobalVar(1,HasSendOrder);
    
15.     }Else
    
16.     {
    
17.         DeleteOrderTickCounter = GetGlobalVar(0);
    
18.         HasSendOrder = GetGlobalVar(1);
    
19.     }
    
20. 
    
21.     If(CurrentTime > (0.1459 - 0.0001*(BeforeMins-1)) && BarStatus == 2 && HasSendOrder == 0)
    
22.     {
    
23.         If(Data0.Close != InvalidNumeric && Data0.A_GetOpenOrderCount()>0) // 商品0全部撤单
    
24.         {
    
25.             Data0.A_DeleteOrder();
    
26.             DeleteOrderTickCounter = 1;
    
27.         }
    
28.         If(Data1.Close != InvalidNumeric && Data1.A_GetOpenOrderCount()>0) // 商品1全部撤单
    
29.         {
    
30.             Data1.A_DeleteOrder();
    
31.             DeleteOrderTickCounter = 1;
    
32.         }
    
33.         If(Data2.Close != InvalidNumeric && Data2.A_GetOpenOrderCount()>0) // 商品2全部撤单
    
34.         {
    
35.             Data2.A_DeleteOrder();
    
36.             DeleteOrderTickCounter = 1;
    
37.         }
    
38.         DeleteOrderTickCounter = DeleteOrderTickCounter + 1;
    
39.         SetGlobalVar(0,DeleteOrderTickCounter);
    
40. 
    
41.         If(DeleteOrderTickCounter < 5) Return; // 撤单后需要延迟几个Tick才平仓
    
42. 
    
43.         tempPos = Data0.A_BuyPosition();
    
44.         If(tempPos > 0) // 平多单
    
45.         {
    
46.             Data0.A_SendOrder(Enum_Sell,Enum_Exit,tempPos,Data0.Q_BidPrice-offSet*Data0.MinMove*Data0.PriceScale);
    
47.         }
    
48.         tempPos = Data0.A_SellPosition();
    
49.         If(tempPos > 0) //平空单
    
50.         {
    
51.             Data0.A_SendOrder(Enum_Buy,Enum_Exit,tempPos,Data0.Q_AskPrice+offSet*Data0.MinMove*Data0.PriceScale);
    
52.         }
    
53. 
    
54.         tempPos = Data1.A_BuyPosition;
    
55.         If(tempPos > 0) // 平多单
    
56.         {
    
57.             Data1.A_SendOrder(Enum_Sell,Enum_Exit,tempPos,Data1.Q_BidPrice-offSet*Data1.MinMove*Data1.PriceScale);
    
58.         }
    
59.         tempPos = Data1.A_SellPosition;
    
60.         If(tempPos > 0) //平空单
    
61.         {
    
62.             Data1.A_SendOrder(Enum_Buy,Enum_Exit,tempPos,Data1.Q_AskPrice+offSet*Data1.MinMove*Data1.PriceScale);
    
63.         }
    
64. 
    
65.         tempPos = Data2.A_BuyPosition;
    
66.         If(tempPos > 0) // 平多单
    
67.         {
    
68.             Data2.A_SendOrder(Enum_Sell,Enum_Exit,tempPos,Data2.Q_BidPrice-offSet*Data2.MinMove*Data2.PriceScale);
    
69.         }
    
70.         tempPos = Data2.A_SellPosition;
    
71.         If(tempPos > 0) //平空单
    
72.         {
    
73.             Data2.A_SendOrder(Enum_Buy,Enum_Exit,tempPos,Data2.Q_AskPrice+offSet*Data2.MinMove*Data2.PriceScale);
    
74.         }
    
75.         HasSendOrder = 1;
    
76.         SetGlobalVar(1,HasSendOrder);
    
77.     }
    
78. End

复制代码

注意事项：

• 本例是以国内商品期货交易所收市时间举例，股指期货或其他市场需调整写法。
  
• 本例假设撤单后5个Tick委托状态能同步成功，实际情况中因网络延时等原因并不一定能够保证成功。