GlobalVariableSet("gr1_var1",1.2);
   GlobalVariableSet("gr1_var2",3.4);   
   GlobalVariableSet("gr2_var1",5.6);
   GlobalVariableSet("gr2_var2",7.8);   
   
   GlobalVariablesFlush();

В приложении этот код находится в файле "sGVTestFlush". 

Хотелось бы продемонстрировать эффект от действия функции GlobalVariableFlush(), однако в результате экспериментов по аварийному закрытию терминала так и не удалось получить пропадания глобальных переменных. Выполнялось завершение работы терминала через диспетчер задач, вкладку "Процессы". Возможно, глобальные переменные пропадут при резком обесточивании компьютера. В настоящее время резкое отключение питания компьютера — явление нечастое, ведь подавляющее большинство пользователей — обладатели ноутбуков, на стационарных компьютерах используются устройства бесперебойного питания, а если терминал работает на специальном выделенном сервере, то там тем более приняты все меры по обеспечению бесперебойного питания. Так что и без функции GlobalVariableFlush() глобальные переменные являются достаточно надежным средством сохранения данных.    

Временная переменная, функция GlobalVariableTemp

Функция GlobalVariableTemp() выполняет создание временной глобальной переменной (которая будет существовать только до завершения работы терминала). За несколько лет разработки экспертов на MQL5 у автора статьи ни разу не возникало необходимости в использовании такой переменной. Более того, само явление временной глобальной переменой противоречит основному принципу, ради которого они используются — для длительного хранения данных независимо от перезапуска терминала. Но поскольку функция существует в языке MQL5, уделим ей немного внимания, на случай, если она всё-таки кому-нибудь пригодится.

При вызове функции в нее передается один параметр — имя переменной. Если переменой с таким именем не существует, то будет создана временная переменная со значением 0. После этого ей нужно присвоить значение функцией GlobalVariableSet() и дальше пользоваться ею как обычно. Если же переменная уже существовала (была создана ранее функцией GlobalVariableSet()), она не будет преобразована во временную:

   GlobalVariableSet("test",1.2); // установка переменной значения, чтобы убедиться в том, что переменная существует
   GlobalVariableTemp("temp"); // создание временной переменной
   Alert("Значение переменной temp сразу после создания - ",GlobalVariableGet("temp"));
   GlobalVariableSet("temp",3.4); // установка значения временной переменной
   GlobalVariableTemp("test"); // попытка преобразовать переменную "test" во временную

В приложении данный пример находится в файле "sGVTestTemp". После запуска скрипта откройте окно глобальных переменных, в нем должна быть переменная "temp" со значением 3.4 и "test" со значением 1.2. Закройте окно глобальных переменных, перезапустите терминал и снова откройте окно. Переменная "test" сохранится, а "temp" исчезнет.

Изменение переменной по условию, функция GlobalVariableSetOnCondition

Осталось рассмотреть последнюю и, на мой взгляд, самую интересную функцию: GlobalVariableSetOnCondition(). В функцию передается три параметра: имя, новое значение и проверочное значение. Если переменная имеет значение, равное проверочному, ей устанавливается новое значение и функция возвращает true, иначе она возвращает false (кроме того, false возвращается и при отсутствии переменной).

По принципу своей работы функция идентична следующему коду:

   double check_value=1;
   double value=2;

   if(GlobalVariableGet("test")==check_value){
      GlobalVariableSet("test",value);
      return(true);
   }
   else {
      return(false);
   }

Если значение глобальной переменной "test" равно значению check_value, ей устанавливается значение value и возвращается значение true, иначе — возвращается значение false. Переменной check_value по умолчанию присвоено значение 1, чтобы в случае отсутствия глобальной переменной "test" конструкция возвращала значение false.

Основное назначение функции GlobalVariableSetOnCondition() — обеспечение последовательного выполнения нескольких экспертов. Поскольку современная операционная система является многозадачной, а каждый эксперт представляет собой отдельный поток, нет гарантии, что один эксперт за раз выполнит всю свою работу от начала до конца, затем это же сделает второй, и т.д.

Кто раньше имел дело с терминалом MetaTrader 4, могут помнить такое явление, как занятость торгового потока. Сейчас несколько экспертов могут одновременно отсылать торговые заявки на сервер, и они будут исполнены, а тогда в один момент только один эксперт мог отсылать заявку. Если в терминале работало несколько экспертов, при попытках выполнения рыночных операций часто возникала ошибка занятости торгового потока. При открытии и закрытии ордеров ошибка не доставляла неприятностей, правильно написанный эксперт повторит попытку закрытия или открытия позиции, да и само совпадение моментов открытия и закрытия у разных экспертов — нечастое явление. Если же у нескольких экспертов активизировалась функция трейлинг-стопа (имеется в виду функция в эксперте, а не стандартная функция терминала), на одном тике только у одного эксперта удавалось выполнить модификацию стоп-лосса, а это уже становилось проблемой. Несмотря на отсутствие данной проблемы в настоящее время, все равно могут возникнуть задачи, требующие последовательного выполнения некоторых экспертов. 

Для обеспечения последовательной работы группы экспертов мы и используем описываемую глобальную переменную. В начале выполнения функции OnTick() присвоим переменной значение value, после этого другие эксперты, выполнив проверку значения переменной и увидев в ней значение value, поймут, что какой-то эксперт уже работает, и прервут выполнение своих функций OnTick() или войдут в ожидающий цикл. После завершения всех действий эксперта мы присвоим переменной значение check_value, и теперь уже другой советник может начать выполнение своей функции OnTick(), и т.д.

В принципе, вышеприведенный код подходит для решения данной задачи, но он не дает гарантии, что после выполнения строки:

if(GlobalVariableGet("test")==check_value){

будет сразу выполнена строка: 

GlobalVariableSet("test",value);

Вполне возможно, что между ними "вклинится" другой эксперт, "увидит", что переменная имеет значение check_value, начнет свою работу, выполнит часть ее, но в это время продолжит работу первый эксперт. Таким образом параллельно фактически будут работать два эксперта. Для решения этой проблемы и нужна функция GlobalVariableSetOnCondition(). Как написано в документации, "функция обеспечивает атомарный доступ к глобальной переменной". Атомарный означает "неделимый". Это значит, что между проверкой значения переменной и установкой ей нового значения гарантированно не вклинится никакая другая программа.

Один неудобный момент при использовании функции состоит в том, что она сама не создает переменную при ее отсутствии. Значит, нужно выполнять дополнительную проверку (желательно делать это при инициализации эксперта) и создавать переменную. 

Напишем двух советников для эксперимента. Оба эксперта совершенно идентичны, в начале функции OnTick() открывается окно с с сообщением "Начало EA1", делается пауза в три секунды (при помощи функции Sleep()), в конце выводится сообщение "Окончание EA1":

void OnTick(){
   Alert("Начало EA1");   
   Sleep(3000);   
   Alert("Окончание EA1");
}

Второй эксперт идентичен, только сообщения будут другими: "Начало EA2" и "Окончание EA2". В приложении эксперты имеют имена "eGVTestEA1" и "eGVTestEA2". Откройте в терминале два одинаковых графика и прикрепите на них экспертов. По окну сообщений увидим, что эксперты начинают и заканчивают работу одновременно, то есть работают параллельно (рис. 8).

Рис. 8. Сообщения экспертов о начале из окончании выполнения функции OnTick()

Теперь применим функцию GlobalVariableSetOnCondition() для обеспечения последовательной работы экспертов. Доработка будет совершенно идентична для обеих экспертов, поэтому будем писать код в подключаемом файле. В приложении файл имеет имя "GVTestMutex.mqh".

Рассмотрим функции файла "GVTestMutex.mqh". При инициализации эксперта нужно проверить существование глобальной переменной, создать ее, если надо (функция Mutex_Init()), в функцию будет передаваться один параметр — имя переменной:

void Init(string name){
   if(!GlobalVariableCheck(name)){
      GlobalVariableSet(name,0);
   }
}

Второй функцией будет функция проверки: Mutex_Check(). В функции будет выполняться цикл с ожиданием освобождения глобальной переменной. Как только переменная освободится, функция вернет true, и эксперт продолжит выполнение своей функции OnTick(). Если же дождаться освобождения переменной за заданное время не удастся, функция вернет false, при этом надо будет прервать выполнение функции OnTick():

bool Mutex_Check(string name,int timeout){   
   datetime end_time=TimeLocal()+timeout; // время окончания ожидания
   while(TimeLocal()<end_time){ // цикл в течение заданного времени
      if(IsStopped()){
         return(false); // если эксперт снимают с графика
      }
      if(GlobalVariableSetOnCondition(name,1,0)){ 
         return(true);
      }
      Sleep(1); // небольшая пауза
   }   
   return(false); // не удалось дождаться освобождения
}

В функцию передается имя глобальной переменной и время ожидания в секундах.

Третья функция — Mutex_Release(), в ней глобальной переменной устанавливается значение 0, то есть "отпускание", чтобы другие эксперты могли начать свою работу:

void Mutex_Release(string name){
   GlobalVariableSet(name,0);
}

Сделаем копию одного эксперта, подключим к нему файл и добавим в него вызов функций. Имя переменной будет "mutex_test", функцию Mutex_Check() будем вызывать с таймаутом 30 сек, ниже приведен полный код эксперта:

#include <GVTestMutex.mqh>

int OnInit(){
   Mutex_Init("mutex_test");
   return(INIT_SUCCEEDED);
}

void OnTick(){

   if(!Mutex_Check("mutex_test",30)){
      return;
   }

   Alert("Начало EA1");
   Sleep(3000);
   Alert("Окончание EA1");

   Mutex_Release("mutex_test");

}

Сделаем копию этого эксперта и изменим текст выводимых сообщений. В приложении эксперты имеют имена "eGVTestEA1-2" и "eGVTestEA2-2". Запустим этих экспертов на двух одинаковых графиках и увидим, что теперь они работают по очереди (рис. 9).

 
Рис. 9. Эксперты работают по очереди

Класс для удобной работы с глобальными переменными

class CGlobalVariables{
   private:
      string m_common_prefix; // префикс общих переменых
      string m_order_prefix; // префикс ордерных переменных
   public:
      // конструктор
      void CGlobalVariables(){}
      // деструктор
      void ~CGlobalVariables(){}
}

void Init(string symbol,int magic){
   m_order_prefix="order_";
   m_common_prefix=MQLInfoString(MQL_PROGRAM_NAME)+"_"+symbol+"_"+IntegerToString(magic)+"_";
   if(MQLInfoInteger(MQL_TESTER)){
      m_order_prefix="tester_"+m_order_prefix;
      m_common_prefix="t_"+m_common_prefix;
      DeleteAll();
   }         
}

string Prefix(){
   return(m_common_prefix);
} 

// для общих переменных
bool Check(string name){
   return(GlobalVariableCheck(m_common_prefix+name));
}
void Set(string name,double value){
   GlobalVariableSet(m_common_prefix+name,value);      
}      
double Get(string name){
   return(GlobalVariableGet(m_common_prefix+name));
} 
void Delete(string name){
   GlobalVariableDel(m_common_prefix+name); 
}
// для ордерных переменных
bool Check(ulong ticket,string name){
   return(GlobalVariableCheck(m_order_prefix+IntegerToString(ticket)+"_"+name));
}
void Set(ulong ticket,string name,double value){
   GlobalVariableSet(m_order_prefix+IntegerToString(ticket)+"_"+name,value);      
}      
double Get(ulong ticket,string name){
   return(GlobalVariableGet(m_order_prefix+IntegerToString(ticket)+"_"+name));
} 
void Delete(ulong ticket,string name){
   GlobalVariableDel(m_order_prefix+IntegerToString(ticket)+"_"+name); 
} 

GlobalVariablesDeleteAll(m_common_prefix);
GlobalVariablesDeleteAll(m_order_prefix);  

 void Deinit(){
    if(MQLInfoInteger(MQL_TESTER)){
        DeleteByPrefix();
    }
 }

void Flush(){
   GlobalVariablesFlush();
} 

void DeleteByPrefix(string prefix){
   GlobalVariablesDeleteAll(m_common_prefix+prefix);
}

#include <CGlobalVariables.mqh>

CGlobalVariables gv;

gv.Init(Symbol(),123);

gv.Deinit();

   gv.Set("name1",123.456);
   double val=gv.Get("name1");

void CGlobalVariables(string symbol="",int magic=0){
   Init(symbol,magic);
}
// деструктор
void ~CGlobalVariables(){
   Deinit();
}

CGlobalVariables gv(Symbol(),123);