TB编程教程 数据库读写

MT4智能交易

TB编程教程 数据库读写
本例以5分钟周期调用日线指标数据举例讲解具体应用。
操作步骤如下：

• 新建一个工作区，包含上下两个图表窗体，上面选择日线周期，下面选择5分钟周期。
  
• 新建一个公式应用，命名为MyDayMA。编译成功后插入日线图表中。详细代码如下：
  
  1. Params
     
  2.     Numeric length(10);
     
  3. Vars
     
  4.     Numeric MA;
     
  5.     string strkey;
     
  6.     string strValue;
     
  7. Begin
     
  8.     MA = AverageFC(Close,length);
     
  9.     strKey = DateToString(Date);
     
  10.     strValue = Text(MA);
      
  11.     SetTBProfileString("DayMA",strKey,strValue);
      
  12.     PlotNumeric("MA",MA);
      
  13. End
      
  14.    

  复制代码
  
  
• 新建一个公式应用，My5MinMA。编译成功后插入5分钟图表中，详细代码如下：
  
  1. Vars
     
  2.     NumericSeries DayMAValue;
     
  3.     string strKey;
     
  4.     string strValue;
     
  5. Begin
     
  6.     strKey = DateToString(Date);
     
  7.     strValue = GetTBProfileString("DayMA",strKey);
     
  8.     If(strValue != InvalidString)
     
  9.     {
     
  10.         DayMAValue = Value(strValue);
      
  11.     }Else
      
  12.     {
      
  13.         DayMAValue = DayMAValue[1];
      
  14.     }
      
  15.     PlotNumeric("DayMA",DayMAValue);
      
  16. End

  复制代码
  
  
• 上面的公式实际使用了未来数据，用来写技术分析是可以的，但用来进行自动交易就会出问题，为了更准确合理的使用跨周期数据，我们应该稍作修改，代码如下：
  
  1. Vars
     
  2.     NumericSeries DayMAValue;
     
  3.     StringSeries strKey;
     
  4.     string strValue;
     
  5. Begin
     
  6.     If(Date!=Date[1])
     
  7.     {
     
  8.         strKey = DateToString(Date[1]);
     
  9.     }Else
     
  10.     {
      
  11.         strKey = strKey[1];
      
  12.     }
      
  13. 
      
  14.     strValue = GetTBProfileString("DayMA",strKey);
      
  15.     If(strValue != InvalidString)
      
  16.     {
      
  17.         DayMAValue = Value(strValue);
      
  18.     }Else
      
  19.     {
      
  20.         DayMAValue = DayMAValue[1];
      
  21.     }
      
  22.     PlotNumeric("DayMA",DayMAValue);
      
  23. End

  复制代码