A函数+全局变量控制，还是重复发单问题

lolo1973

1. Params
   
2.         Numeric longPrice(3650);
   
3.         Numeric shortPrice(3000);
   
4.         Numeric shiftUnits(100);   //下单价格偏移跳数
   
5.         Numeric waitTime(50);    //撤单前等待时长，秒
   
6.        
   
7. Vars
   
8.         Numeric timeSeconds;
   
9.         Numeric buyPosition;
   
10.         Numeric sellPosition;
    
11.         Numeric minPoint;
    
12.         Numeric units;
    
13.         String mySection;
    
14.         String orderStatus;
    
15.         String orderTime;
    
16.         Bool buyPositionCon;
    
17.         Bool sellPositionCon;
    
18.         String curTime;     //currentTime
    
19.         String path;
    
20.        
    
21. Begin
    
22.         If(!CallAuctionFilter) Return;
    
23.         path = "C:\\Users\\Administrator\\Desktop\\00_" + FormulaName + "_" + Symbol + ".log";
    
24.         mySection = FormulaName + Symbol;
    
25.         orderStatus = "order_status";
    
26.         orderTime = "order_time";
    
27.         curTime = TimeToString(CurrentTime);
    
28.        
    
29.         minPoint = MinMove * PriceScale;
    
30.         units = 1;
    
31.         If(BarStatus == 0)
    
32.         {
    
33.                 SetTBProfileString(mySection, orderStatus, Text(0));
    
34.                 SetTBProfileString(mySection, orderTime, Text(0));
    
35.         }
    
36.                
    
37.         timeSeconds = Value(Left(curTime, 2)) * 3600 + Value(Mid(curTime, 3, 2)) * 60 + Value(Right(curTime, 2));
    
38.        
    
39.         FileAppend(path, "----------------------------" + curTime + "--------------------------");
    
40.         FileAppend(path, "initial order status: " + GetTBProfileString(mySection, orderStatus) + ";  value of order status is: "
    
41.                                         + text(Value(GetTBProfileString(mySection, orderStatus))));
    
42.         FileAppend(path, "order status == 0: " + IIFString(Value(GetTBProfileString(mySection, orderStatus)) == 0, "true" ,"false"));
    
43.        
    
44.         //开仓
    
45.         If(Value(GetTBProfileString(mySection, orderStatus)) == 0);
    
46.         {
    
47.                 If(Q_AskPrice >= longPrice)
    
48.                 {
    
49.                         A_SendOrder(Enum_Buy, Enum_Entry, units, Q_AskPrice - shiftUnits * minPoint);
    
50.                         SetTBProfileString(mySection, orderStatus, Text(1));
    
51.                         SetTBProfileString(mySection, orderTime, Text(timeSeconds));
    
52.                         FileAppend(path, "long condition filled----order status is: " + GetTBProfileString(mySection, orderStatus) +
    
53.                                                 "-----order time is: " + curTime);
    
54.                 }Else If(Q_BidPrice <= shortPrice)
    
55.                 {
    
56.                         A_SendOrder(enum_sell, enum_entry, units, Q_BidPrice + shiftUnits * minPoint);
    
57.                         SetTBProfileString(mySection, orderStatus, Text(-1));
    
58.                         SetTBProfileString(mySection, orderTime, Text(timeSeconds));
    
59.                 }
    
60.         }
    
61.         buyPosition = A_BuyPosition;
    
62.         sellPosition = A_SellPosition;
    
63.         buyPositionCon = (buyPosition > 0);
    
64.         sellPositionCon = (sellPosition < 0);
    
65.         FileAppend(path, "buyPosition = " + Text(buyPosition));
    
66.         If(Value(GetTBProfileString(mySection, orderStatus)) == 1)
    
67.         {
    
68.                 If(timeSeconds - Value(GetTBProfileString(mySection, orderTime)) >= waitTime and !buyPositionCon)
    
69.                 {
    
70.                         A_DeleteOrder();
    
71.                         SetTBProfileString(mySection, orderStatus, Text(0));
    
72.                 }
    
73.         }else If(Value(GetTBProfileString(mySection, orderStatus)) == -1)
    
74.         {
    
75.                 If(timeSeconds - Value(GetTBProfileString(mySection, orderTime)) >= waitTime and !sellPositionCon)
    
76.                 {
    
77.                         A_DeleteOrder();
    
78.                         SetTBProfileString(mySection, orderStatus, Text(0));
    
79.                 }
    
80.         }
    
81. End

复制代码

通过fileappend，开仓之前order status的值确定为1，但程序还是能进入到开仓的条件中，不明所以。

lolo1973

。

小米

第45行的if条件后有加了分号啊。。这样自然限制不住的。

lolo1973

小米 发表于 2018-11-22 10:53
第45行的if条件后有加了分号啊。。这样自然限制不住的。

露出了不争气的微笑。。多谢！