VideoBourse

Code : Tout sélectionner

#define __NOM "EA_FxBlue_Sentiment_Archive.V1.0"
#property   copyright __NOM
#property   strict
#property   description "Archive le Sentiment indicator pour back test ulterieur"
#property   description "La periodicite de stockage est la bougie du Time Frame, PAS les ticks"
#property   description "Lancer sur un graphique, le fichier est append ad vitam eternaem"
#property   description "Si on veut partir de zero, penser a flinguer le fichier - il est cree si existe pas"
#property   description "Le nom du fichier est FXBSentiment_Symbol(), deduit du graphique"
#property   description "Le fichier est open et closed a chaque bougie pour pouvoir l'utiliser pendant que ca tourne"
#property   description "2018.10.25 08:00;25;8;47;13;32;55"

// V1.0
// On lit tous les buffer de l'indic et l'on stocke en commencant par le datetime de l'open de la Bar[1]
// Pour faciliter l'exploit tous les % sont en string et non en num

#include <stdlib.mqh>
#include <stderror.mqh>

extern   string   UserName;   // Le compte FxBlue
extern   string   PassWord;   

static   string   CommentStringCompil;
static   string   NomFic;
static   int      Traders, LongWin, LongLoss, ShortWin, ShortLoos, PerLong;
enum     EnumBuffer { bTraders = 0, bLongWin = 1, bLongLoss = 2, bShortWin = 3, bShortLoos = 4, bPerLong = 5 };

int OnInit(void)  
{
// Cosmétique : on règle le look du graphique (facultatif)
   ChartSetInteger(0,CHART_SHOW_PERIOD_SEP,false);  ChartSetInteger(0,CHART_SHOW_GRID,false);
   ChartSetInteger(0,CHART_MODE,CHART_CANDLES);
   ChartSetInteger(0,CHART_AUTOSCROLL,true);
   ChartSetInteger(0,CHART_SHOW_PERIOD_SEP,true);
   ChartSetInteger(0,CHART_SCALEFIX,false);
   ChartSetInteger(0,CHART_SHIFT,true);  ChartSetDouble(0,CHART_SHIFT_SIZE,15);
   ChartSetInteger(0,CHART_SCALE,3);   // De 1 à 5, c'est le zoom dezoom, + et -
   ChartSetInteger(0,CHART_SHOW_VOLUMES,CHART_VOLUME_HIDE);
   ChartSetInteger(0,CHART_SHOW_OHLC,false);  
   
   CommentStringCompil = "\r"+"Compil :"+ TimeToString(__DATETIME__);   
   Comment(CommentStringCompil);   
  
// Creation file si existe pas
   NomFic = "FXBSentiment_" + Symbol() + ".csv";
   if ( !FileIsExist(NomFic) ) {
      int Handle = FileOpen(NomFic, FILE_CSV|FILE_WRITE|FILE_READ, ';' );    // Va créer le fichier
      if( Handle < 0 ) Print("Erreur FileOpen, NomFic :",NomFic, " Error code ",GetLastError());
      FileClose( Handle);
   }

// explore une peu d'historique pour voir   
   for ( int i = 1; i < 10; i++ ) {
      LitLesBuffersDuneBougie(i);
      Print("Buffers de la bougie ",i," : ",Traders," , ", LongWin," , ", LongLoss," , ", ShortWin," , ", ShortLoos," , ", PerLong);
   }
   
   return(INIT_SUCCEEDED);
}

void OnTick() 
{
   static   datetime MyPreviousTime = 0;

//                                                                                  N E W     B A R 
   if ( MyPreviousTime != Time[0] ) {     
      MyPreviousTime = Time[0];

// Acquisiton indicateurs
      LitLesBuffersDuneBougie(1);   // Bar[1] closed

/*
      Traders =(int)MathRound( iCustom(   NULL,       // Symbol
                                          0,          // TF du graphique
                                          "",         // separateur
                                          UserName,   // Le compte FxBlue
                                          PassWord,   
                                          "",         // separateur
                                          true, true, true, true, true, true,   // affichage de tous les buffers
                                          0,          // Buffer 0 : Trader (% de trader chez FxBlues qui sont en pose)
                                          1)          // Bar[1], bar closed                                                                              
                                          );        
      LongWin =   (int)MathRound( iCustom(   NULL,0,"",UserName,PassWord,"",true, true, true, true, true, true,1,1)  );
      LongLoss=   (int)MathRound( iCustom(   NULL,0,"",UserName,PassWord,"",true, true, true, true, true, true,2,1)  );
      ShortWin =  (int)MathRound( iCustom(   NULL,0,"",UserName,PassWord,"",true, true, true, true, true, true,3,1)  );
      ShortLoos = (int)MathRound( iCustom(   NULL,0,"",UserName,PassWord,"",true, true, true, true, true, true,4,1)  );
      PerLong =   (int)MathRound( iCustom(   NULL,0,"",UserName,PassWord,"",true, true, true, true, true, true,5,1)  );
*/

// Open, Write file et Close

      int Handle = FileOpen(NomFic, FILE_CSV|FILE_WRITE|FILE_READ, ';' );
      if( Handle < 0 ) Print("Erreur FileOpen, NomFic :",NomFic, " Error code ",GetLastError());
      FileSeek(Handle, 0, SEEK_END); // a la fin pour append
      FileWriteString(Handle,TimeToString(Time[1],TIME_DATE|TIME_MINUTES));         // Une bougie est définie par le time de son open
      FileWriteString(Handle,";" + IntegerToString(Traders));
      FileWriteString(Handle,";" + IntegerToString(LongWin));
      FileWriteString(Handle,";" + IntegerToString(LongLoss));
      FileWriteString(Handle,";" + IntegerToString(ShortWin));
      FileWriteString(Handle,";" + IntegerToString(ShortLoos));
      FileWrite(Handle,";" + IntegerToString(PerLong));           // finis par crlf contrairement à FileWriteString (sinon SEEK_END marche pas)
      FileClose( Handle);
   }  // New bar
}
int  LitUnBufferDuneBougie(int _iBougie, int _Buffer)    // On s'intéresse à la Bougie[1], mais il y a aussi un historique de 4 heures au lancement
{

// debug - verifie double a zero ??
      double tmp = iCustom(   
                                          NULL,       // Symbol
                                          0,          // TF du graphique
                                          "",         // separateur
                                          UserName,   // Le compte FxBlue
                                          PassWord,   
                                          "",         // separateur
                                          true, true, true, true, true, true,   // affichage de tous les buffers
                                          _Buffer,    // Buffer 0 : Trader (% de trader chez FxBlues qui sont en pose)
                                          _iBougie)   // Bar[1], bar closed                                                                              
                                          ;
Print( "double tmp :", tmp );
Print( "Last Error code ",GetLastError() );  // 4072 ERR_INDICATOR_CANNOT_LOAD Cannot load custom indicator                                       

      int ValeurIndic = (int)MathRound( iCustom(   
                                          NULL,       // Symbol
                                          0,          // TF du graphique
                                          "",         // separateur
                                          UserName,   // Le compte FxBlue
                                          PassWord,   
                                          "",         // separateur
                                          true, true, true, true, true, true,   // affichage de tous les buffers
                                          _Buffer,    // Buffer 0 : Trader (% de trader chez FxBlues qui sont en pose)
                                          _iBougie)   // Bar[1], bar closed                                                                              
                                          );
      return(ValeurIndic);                                                  
}
void  LitLesBuffersDuneBougie(int _iBougie)       
{
   Traders     = LitUnBufferDuneBougie(_iBougie, bTraders);     // Variables globale afin d'éviter la ribanbelle de params
   LongWin     = LitUnBufferDuneBougie(_iBougie, bLongWin);
   LongLoss    = LitUnBufferDuneBougie(_iBougie, bLongLoss);
   ShortWin    = LitUnBufferDuneBougie(_iBougie, bShortWin);
   ShortLoos   = LitUnBufferDuneBougie(_iBougie, bShortLoos);
   PerLong     = LitUnBufferDuneBougie(_iBougie, bPerLong);