kirillovyv/LIP
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions
LIP/Arch/RU/LIP_v01.002/Include/LIP_Man_5_v1.002.mqh

555 lines
57 KiB
MQL5
Raw Permalink Normal View History

convert
2025-05-30 15:03:51 +02:00
<EFBFBD><EFBFBD>//============================================================================================= MQL5 ===
// LibreInfoPDO Main_5 v1.002 MQL5
// >4C;L >1@01>B:8 A>1KB89
// LibreCoin (c)2014-2017
//======================================================================================================
#property strict
//============================================================================================= MQL5 ===
// INCLUDE - ?>4:;NG05<K5 <>4C;8
//------------------------------------------------------------------------------------------------------
//----- 1@0B=K5 AAK;:8 =0 >A=>2=>9 D09; ?@>5:B0
#include "LIP_Ref_5_v1.002.mqh"
//============================================================================================= MQL5 ===
// EVENT PROCESSING MODULE
//------------------------------------------------------------------------------------------------------
//
//============================================================================================= MQL5 ===
// On_Init() - 8=8F80;870F8O A>25B=8:0
//------------------------------------------------------------------------------------------------------
ENUM_INIT_RETCODE On_Init(){
//----- !G5BG8:8 8 =0AB@>9:8 AG5BG8:>2
gnTick=0;
gInTimer=false;
//----- ?@545;O5< 8<O ?@>3@0<<K
ProgramName=MQLInfoString(MQL_PROGRAM_NAME);
//----- 0AAG8BK205< :>@>B:>5 8<O 8=48:0B>@0
ChartID_Str=IntegerToString(ChartID());
IndicatorShortName=vers+" "+StringSubstr(ChartID_Str,StringLen(ChartID_Str)-3);
IndicatorSetString(INDICATOR_SHORTNAME,IndicatorShortName);
//----- ;>10;L=K5 ?0@0<5B@K
TheSymbol=Symbol();
//----- 0AB@>9:8 4;O >B1>@0 ?> 8=AB@C<5=BC
{switch(SymSel)
{
case SymSel_all:
{
inSymbolSelector="";
break;
}
case SymSel_curr:
{
inSymbolSelector=TheSymbol;
break;
}
case SymSel_user:
{
inSymbolSelector=SymbolSelector;
break;
}
case SymSel_but:
{
inSymbolSelector=SymbolSelector;
break;
}
default:
{
inSymbolSelector="";
}
}}//switch(SymSel)
//----- 0AB@>9:8 4;O >B1>@0 ?> <038:C
{switch(MagSel)
{
case MagSel_all:
{
inMagicSelector=0;
break;
}
case MagSel_user:
{
inMagicSelector=MagicSelector;
break;
}
case MagSel_but:
{
inMagicSelector=MagicSelector;
break;
}
default:
{
inMagicSelector=0;
}
}}//switch(MagSel)
//----- 0AB@>9:8 4;O >B1>@0 ?> B8:5BC
{switch(TickSel)
{
case TickSel_all:
{
inTickSelector=0;
break;
}
case TickSel_user:
{
inTickSelector=TicketSelector;
break;
}
case TickSel_but:
{
inTickSelector=TicketSelector;
break;
}
default:
{
inTickSelector=0;
}
}}//switch(MagSel)
//----- 0AB@>9:8 B09<5@0
{if(!MQLInfoInteger(MQL_TESTER))//5 B5AB8@>20=85
{
int err=-1;
int count=50;
{while((err!=0)&&(count>0))
{
ResetLastError();
EventSetMillisecondTimer(MSTimerSet); //#AB0=>2:0 B09<5@0 XXX <8;;8A5:C=4
err=GetLastError();
{if(err!=0)
{
Sleep(50);
Print("EventSetMillisecondTimer n=",count," err >>",err);
}}//if(err!=0)
count--;
}}//while((err!=0)&&(count>0))
}}//if(!MQLInfoInteger(MQL_TESTER))
//----- #AB0=>2:0 8 @0AG5B ?0@0<5B@>2 >:=0 8=48:0B>@0
IndicatorSetInteger(INDICATOR_DIGITS,0);
nSubWindow=ChartWindowFind(0,IndicatorShortName);//'B> AB@0==>, >6840;>AL GB> 1C45B @01>B0BL ProgramName
IndHeigh=ChartGetInteger(0,CHART_HEIGHT_IN_PIXELS,nSubWindow);
IndicatorSetDouble(INDICATOR_MINIMUM,0.0);
IndicatorSetDouble(INDICATOR_MAXIMUM,IndHeigh);
nFirstBar=(int)ChartGetInteger(0,CHART_FIRST_VISIBLE_BAR);
kScale=(double)ChartGetInteger(0,CHART_WIDTH_IN_BARS)/ChartGetInteger(0,CHART_WIDTH_IN_PIXELS);// 0AG5B <0AHB010 3@0D8:0 (10@>2 =0 ?8:A5;)
//----- 0?@0H8205< 8AB>@8N A45;>: 8 >@45@>2 70 C:070==K9 ?5@8>4 A5@25@=>3> 2@5<5=8.
{if(!HistorySelect(0,TimeCurrent()))
{
Print("HistorySelect Error!");
return(INIT_FAILED);
}}//A;8 =5C40G=> - 2KE>48<
//----- ?@545;5=85 :>;8G5AB20 >@45@>2, A45;>:, ?>78F89. !>740=85 3@0D8G5A:8E >1J5:B>2.
nColo=0; //!G5BG8: :>;>=>: 2K2>40
//----- B:@KBK5 ?>78F88
{if(PositionsView)
{
Positions_Total=PositionsTotal(); //"5:CI85 ?>78F88
Positions_Total_Sel=PositionsTotalSel(inSymbolSelector,SymSel,
inMagicSelector,MagSel,
inTickSelector,TickSel);//"5:CI85 ?>78F88 >B>1@0==K5
ColoLabelCreate("LIP",ColoStep*nColo,
"Position="+IntegerToString(Positions_Total_Sel)+"/"+IntegerToString(Positions_Total));//!>740Q< 3@0D8G5A:89 >1J5:B 703>;>2:0 :>;>=:8
ColoCreate("LIP",ColoStep*nColo,Positions_Total); //!>740Q< 3@0D8G5A:89 >1J5:B 4;O :>;>=:8 ?>78F89
Positions_Total_Old=Positions_Total; //"5:CI85 ?>78F88 2 1CD5@
Positions_Total_Sel_Old=Positions_Total_Sel; //"5:CI85 ?>78F88 >B>1@0==K5 2 1CD5@
nColo++;
}}//if(PositionsView)
//----- B:@KBK5 >B;>65==K5 >@45@0
{if(OrdersView)
{
Orders_Total=OrdersTotal(); //"5:CI85 ;8<8B=K5 >@45@0
Orders_Total_Sel=OrdersTotalSel(inSymbolSelector,SymSel,
inMagicSelector,MagSel,
inTickSelector,TickSel); //"5:CI85 ;8<8B=K5 >@45@0 >B>1@0==K5
ColoLabelCreate("LIO",ColoStep*nColo,
"Order="+IntegerToString(Orders_Total_Sel)+"/"+IntegerToString(Orders_Total));//!>740Q< 3@0D8G5A:89 >1J5:B 703>;>2:0 :>;>=:8
ColoCreate("LIO",ColoStep*nColo,Orders_Total); //!>740Q< 3@0D8G5A:89 >1J5:B 4;O :>;>=:8 >@45@>2
Orders_Total_Old=Orders_Total; //"5:CI85 ;8<8B=K5 >@45@0 2 1CD5@
Orders_Total_Sel_Old=Orders_Total_Sel; //"5:CI85 ;8<8B=K5 >@45@0 >B>1@0==K5 2 1CD5@
nColo++;
}}//if(OrdersView)
//----- K?>;=5==K5 >@45@0 2 8AB>@88
{if(HistoryOrdersView)
{
History_Orders_Total=HistoryOrdersTotal(); //0:@KBK5 @K=>G=K5 >@45@0
History_Orders_Total_Sel=HistoryOrdersTotalSel(inSymbolSelector,SymSel,
inMagicSelector,MagSel,
inTickSelector,TickSel);//0:@KBK5 @K=>G=K5 >@45@0 >B>1@0==K5
ColoLabelCreate("LHO",ColoStep*nColo,
"History_Order="+IntegerToString(History_Orders_Total_Sel)+"/"+IntegerToString(History_Orders_Total));//!>740Q< 3@0D8G5A:89 >1J5:B 703>;>2:0 :>;>=:8
ColoCreate("LHO",ColoStep*nColo,History_Orders_Total); //!>740Q< 3@0D8G5A:89 >1J5:B 4;O :>;>=:8 >@45@>2 2 8AB>@88
History_Orders_Total_Old=History_Orders_Total; //0:@KBK5 @K=>G=K5 >@45@0 2 1CD5@
History_Orders_Total_Sel_Old=History_Orders_Total_Sel; //0:@KBK5 @K=>G=K5 >@45@0 >B>1@0==K5 2 1CD5@
nColo++;
}}//if(HistoryOrdersView)
//----- !45;:8 2 8AB>@88
{if(HistoryDealsView)
{
History_Deals_Total=HistoryDealsTotal(); //!>25@H5==K5 A45;:8 (2K?>;=5==K5 >@45@0)
History_Deals_Total_Sel=HistoryDealsTotalSel(inSymbolSelector,SymSel,
inMagicSelector,MagSel,
inTickSelector,TickSel);//!>25@H5==K5 A45;:8 (2K?>;=5==K5 >@45@0) >B>1@0==K5
ColoLabelCreate("LHD",ColoStep*nColo,
"History_Deal="+IntegerToString(History_Deals_Total_Sel)+"/"+IntegerToString(History_Deals_Total));//!>740Q< 3@0D8G5A:89 >1J5:B 703>;>2:0 :>;>=:8
ColoCreate("LHD",ColoStep*nColo,History_Deals_Total); //!>740Q< 3@0D8G5A:89 >1J5:B 4;O :>;>=:8 A45;>: 2 8AB>@88
History_Deals_Total_Old=History_Deals_Total; //!>25@H5==K5 A45;:8 (2K?>;=5==K5 >@45@0) 2 1CD5@
History_Deals_Total_Sel_Old=History_Deals_Total_Sel; //!>25@H5==K5 A45;:8 (2K?>;=5==K5 >@45@0) >B>1@0==K5 2 1CD5@
nColo++;
}}//if(HistoryDealsView)
//-----
return(INIT_SUCCEEDED);
}//On_Init()
//
//============================================================================================= MQL5 ===
// On_Tick() - A=>2=>9 >1@01>BG8: B8:>2
//------------------------------------------------------------------------------------------------------
void On_Tick(){
//----- @5@K205< 703@C7:C, 5A;8 8=48:0B>@ C65 5ABL
{if((ChartWindowFind(0,IndicatorShortName)>=0)&&(ChartWindowFind(0,ProgramName)>=0))
{
Print("Abort loading indicator: ",ProgramName);
ChartIndicatorDelete(0,ChartWindowFind(0,ProgramName),ProgramName);
}}//if(ChartWindowFind(0,IndicatorShortName)>=0)
//-----
//{if(!gInTimer)
//{
gnTick++;
// gInTimer=false;
//}}//if(!InTimer)
{if(gnTick>4294967000)
{
gnTick=100;
}}//if(gnTick>4294967000)
//----- #AB0=>2:0 8 @0AG5B ?0@0<5B@>2 >:=0 8=48:0B>@0
nSubWindow=ChartWindowFind(0,IndicatorShortName);
IndHeigh=ChartGetInteger(0,CHART_HEIGHT_IN_PIXELS,nSubWindow);
IndicatorSetDouble(INDICATOR_MINIMUM,0.0);
IndicatorSetDouble(INDICATOR_MAXIMUM,IndHeigh);
nFirstBar=(int)ChartGetInteger(0,CHART_FIRST_VISIBLE_BAR);
kScale=(double)ChartGetInteger(0,CHART_WIDTH_IN_BARS)/ChartGetInteger(0,CHART_WIDTH_IN_PIXELS);
//----- 0?@0H8205< 8AB>@8N A45;>: 8 >@45@>2 70 C:070==K9 ?5@8>4 A5@25@=>3> 2@5<5=8.
{if(!HistorySelect(0,TimeCurrent()))
{
Print("HistorySelect Error!");
return;
}}//A;8 =5C40G=> - 2KE>48<
//----- ?@545;5=85 :>;8G5AB20 >@45@>2, A45;>:, ?>78F89. K2>4 3@0D8G5A:8E >1J5:B>2.
nColo=0; //!G5BG8: :>;>=>: 2K2>40
//----- !?8A>: >B:@KBKE ?>78F89
{if(PositionsView)
{
Positions_Total=PositionsTotal(); //"5:CI85 ?>78F88
Positions_Total_Sel=PositionsTotalSel(inSymbolSelector,SymSel,
inMagicSelector,MagSel,
inTickSelector,TickSel);//"5:CI85 ?>78F88 >B>1@0==K5
{if(Positions_Total_Sel!=Positions_Total_Sel_Old) //5@5AG5B - ?5@5@8A>2:0 ?@8 87<5=5=88 :>;8G5AB20
{
ColoDelete("LIP",Positions_Total_Old); //>;>=:0 ?>78F89
ColoCreate("LIP",ColoStep*nColo,Positions_Total);
}}//if(Positions_Total_Sel!=Positions_Total_Sel_Old)
ColoLabelMove("LIP",ColoStep*nColo,"Position="+IntegerToString(Positions_Total_Sel)+"/"+IntegerToString(Positions_Total));//03>;>2>: :>;>=:8
//-----
{if(Positions_Total>=0)
{
nRow=0;
CopyTime(TheSymbol,PERIOD_CURRENT,(nFirstBar-(int)((ColoStep*nColo+ColoShift)*kScale)),1,gTime);
{for(int i=Positions_Total-1;i>=0;i--)
{
sTXW="LIP_"+IntegerToString(i); //#AB0=02;8205< 8<O 4;O B5:cB>2>3> >1J5:B0
ObjectSetString(0,sTXW,OBJPROP_TEXT," "); //1=C;5=85 AB@>:8 2K2>40
ulong Pos_Tick=PositionGetTicket(i); //K18@05< ?>78F8N ?> =><5@C 2 A?8A:5
{if(Pos_Tick<=0){continue;}} //5C40G=> - A;54CNI89
{if(!SymCheck(PositionGetString(POSITION_SYMBOL),inSymbolSelector,SymSel)){continue;}}//5 B>B A8<2>; - A;54CNI89
{if(!MagCheck(PositionGetInteger(POSITION_MAGIC),inMagicSelector,MagSel)){continue;}}//@>25@:0 A>>B25BAB28O <038:0 <>45;8 ?> :@8B5@8N 2K1>@0
{if(!TickCheck(PositionGetInteger(POSITION_TICKET),inTickSelector,TickSel)){continue;}}//@>25@:0 A>>B25BAB28O B8:5B0 <>45;8 ?> :@8B5@8N 2K1>@0
ENUM_POSITION_TYPE OrdType=(ENUM_POSITION_TYPE)PositionGetInteger(POSITION_TYPE);
PosTypeString=EnumToString(OrdType);
StringReplace(PosTypeString,"POSITION_TYPE_","");
PositionDataString= " "+
IntegerToString(i)+"."+
PositionGetString(POSITION_SYMBOL)+" "+
PosTypeString+" ["+
IntegerToString(Pos_Tick)+"-"+
IntegerToString(PositionGetInteger(POSITION_MAGIC))+"-"+
DoubleToString(PositionGetDouble(POSITION_VOLUME),2)+"-"+
DoubleToString(PositionGetDouble(POSITION_PRICE_OPEN),
(int)SymbolInfoInteger(PositionGetString(POSITION_SYMBOL),SYMBOL_DIGITS))+"]="+
DoubleToString(PositionGetDouble(POSITION_PROFIT),2)+" "+
"";
ResetLastError();
{if(!ObjectSetInteger(
0, //45=B8D8:0B>@ G0@B0
sTXW, //<O >1J5:B0
OBJPROP_TIME, //7<5=O5< :>>@48=0BC 2@5<5=8 >1J5:B0
gTime[0]
))
{
Print("ObjectSetInteger0 Error=",GetLastError());
continue;
}}//if(!ObjectSetInteger(...
ResetLastError();
{if(!ObjectSetDouble(
0, //45=B8D8:0B>@ G0@B0
sTXW, //<O >1J5:B0
OBJPROP_PRICE, //7<5=O5< :>>@48=0BC F5=K >1J5:B0
IndHeigh-11*(nRow+1)
))
{
Print("ObjectSetDouble0 Error=",GetLastError());
continue;
}else{
nRow++;
}}//if(!ObjectSetDouble(...
ObjectSetString(0,sTXW,OBJPROP_TEXT,PositionDataString+"");
}}//for(int i=Positions_Total-1;i>=0;i--)
}}//if(Positions_Total>=0)
//----- 0?><=8< B5:CI85 AG5BG8:8
Positions_Total_Old=Positions_Total; //"5:CI85 ?>78F88
Positions_Total_Sel_Old=Positions_Total_Sel; //"5:CI85 ?>78F88 >B>1@0==K5
//----- =:@5<5=B AG5BG8:0 :>;>=>:
nColo++;
}}//if(PositionsView)
//----- !?8A>: >B:@KBKE >B;>65==KE >@45@>2
{if(OrdersView)
{
Orders_Total=OrdersTotal(); //"5:CI85 ;8<8B=K5 >@45@0
Orders_Total_Sel=OrdersTotalSel(inSymbolSelector,SymSel,
inMagicSelector,MagSel,
inTickSelector,TickSel); //"5:CI85 ;8<8B=K5 >@45@0 >B>1@0==K5
{if(Orders_Total_Sel!=Orders_Total_Sel_Old) //5@5AG5B - ?5@5@8A>2:0 ?@8 87<5=5=88 :>;8G5AB20
{
ColoDelete("LIO",Orders_Total_Old); //>;>=:0 >@45@>2
ColoCreate("LIO",ColoStep*nColo,Orders_Total);
}}//if(Orders_Total_Sel!=Orders_Total_Sel_Old)
ColoLabelMove("LIO",ColoStep*nColo,"Order="+IntegerToString(Orders_Total_Sel)+"/"+IntegerToString(Orders_Total));//03>;>2>: :>;>=:8
//-----
{if(Orders_Total>=0)
{
nRow=0;
CopyTime(TheSymbol,PERIOD_CURRENT,(nFirstBar-(int)((ColoStep*nColo+ColoShift)*kScale)),1,gTime);
{for(int i=Orders_Total-1;i>=0;i--)
{
sTXW="LIO_"+IntegerToString(i); //#AB0=02;8205< 8<O 4;O B5:cB>2>3> >1J5:B0
ObjectSetString(0,sTXW,OBJPROP_TEXT," "); //1=C;5=85 AB@>:8 2K2>40
ulong Ord_Tick=OrderGetTicket(i); //K18@05< >@45@ ?> =><5@C 2 A?8A:5
{if(Ord_Tick<=0){continue;}} //5C40G=> - A;54CNI89
{if((SymSel!=SymSel_all)&&(inSymbolSelector!=OrderGetString(ORDER_SYMBOL))){continue;}}//5 B>B A8<2>; - A;54CNI89
ENUM_ORDER_TYPE OrdType=(ENUM_ORDER_TYPE)OrderGetInteger(ORDER_TYPE);
OrdTypeString=EnumToString(OrdType);
StringReplace(OrdTypeString,"ORDER_TYPE_","");
OrderDataString= " "+
IntegerToString(i)+"."+
OrderGetString(ORDER_SYMBOL)+" "+
OrdTypeString+" ["+
IntegerToString(Ord_Tick)+"-"+
IntegerToString(OrderGetInteger(ORDER_MAGIC))+"-"+
DoubleToString(OrderGetDouble(ORDER_VOLUME_CURRENT),2)+"-"+
DoubleToString(OrderGetDouble(ORDER_PRICE_OPEN),(int)SymbolInfoInteger(OrderGetString(ORDER_SYMBOL),SYMBOL_DIGITS))+"]"+
"";
ResetLastError();
{if(!ObjectSetInteger(
0, //45=B8D8:0B>@ G0@B0
sTXW, //<O >1J5:B0
OBJPROP_TIME, //7<5=O5< :>>@48=0BC 2@5<5=8 >1J5:B0
gTime[0]
))
{
Print("ObjectSetInteger1 Error=",GetLastError());
continue;
}}//if(!ObjectSetInteger(...
ResetLastError();
{if(!ObjectSetDouble(
0, //45=B8D8:0B>@ G0@B0
sTXW, //<O >1J5:B0
OBJPROP_PRICE, //7<5=O5< :>>@48=0BC F5=K >1J5:B0
IndHeigh-11*(nRow+1)
))
{
Print("ObjectSetDouble1 Error=",GetLastError());
continue;
}else{
nRow++;
}}//if(!ObjectSetDouble(...
ObjectSetString(0,sTXW,OBJPROP_TEXT,OrderDataString+"");
}}//for(int i=Orders_Total-1;i>=0;i--)
}}//if(Orders_Total>=0)
//----- 0?><=8< B5:CI85 AG5BG8:8
Orders_Total_Old=Orders_Total; //"5:CI85 ;8<8B=K5 >@45@0
Orders_Total_Sel_Old=Orders_Total_Sel; //"5:CI85 ;8<8B=K5 >@45@0 >B>1@0==K5
//----- =:@5<5=B AG5BG8:0 :>;>=>:
nColo++;
}}//if(OrdersView)
//----- !?8A>: >@45@>2 2 8AB>@88
{if(HistoryOrdersView)
{
History_Orders_Total=HistoryOrdersTotal(); //0:@KBK5 @K=>G=K5 >@45@0
History_Orders_Total_Sel=HistoryOrdersTotalSel(inSymbolSelector,SymSel,
inMagicSelector,MagSel,
inTickSelector,TickSel);//0:@KBK5 @K=>G=K5 >@45@0 >B>1@0==K5
{if(History_Orders_Total_Sel!=History_Orders_Total_Sel_Old) //5@5AG5B - ?5@5@8A>2:0 ?@8 87<5=5=88 :>;8G5AB20
{
ColoDelete("LHO",History_Orders_Total_Old); //>;>=:0 8AB>@88 >@45@>2
ColoCreate("LHO",ColoStep*nColo,History_Orders_Total);
}}//if(History_Orders_Total_Sel!=History_Orders_Total_Sel_Old)
ColoLabelMove("LHO",ColoStep*nColo,"History Order="+IntegerToString(History_Orders_Total_Sel)+"/"+IntegerToString(History_Orders_Total));//03>;>2>: :>;>=:8
//-----
{if(History_Orders_Total>=0)
{
nRow=0;
CopyTime(TheSymbol,PERIOD_CURRENT,(nFirstBar-(int)((ColoStep*nColo+ColoShift)*kScale)),1,gTime);
{for(int i=History_Orders_Total-1;i>=0;i--)
{
sTXW="LHO_"+IntegerToString(i); //#AB0=02;8205< 8<O 4;O B5:cB>2>3> >1J5:B0
ObjectSetString(0,sTXW,OBJPROP_TEXT," "); //1=C;5=85 AB@>:8 2K2>40
ulong Ord_Tick=HistoryOrderGetTicket(i); //K18@05< >@45@ ?> =><5@C 2 A?8A:5
{if(Ord_Tick<=0){continue;}} //5C40G=> - A;54CNI89
{if((SymSel!=SymSel_all)&&(inSymbolSelector!=HistoryOrderGetString(Ord_Tick,ORDER_SYMBOL))){continue;}}//5 B>B A8<2>; - A;54CNI89
ENUM_ORDER_TYPE OrdType=(ENUM_ORDER_TYPE)HistoryOrderGetInteger(Ord_Tick,ORDER_TYPE);
OrdTypeString=EnumToString(OrdType);
StringReplace(OrdTypeString,"ORDER_TYPE_","");
OrderDataString= " "+
IntegerToString(i)+"."+
HistoryOrderGetString(Ord_Tick,ORDER_SYMBOL)+" "+
OrdTypeString+" ["+
IntegerToString(Ord_Tick)+"-"+
IntegerToString(HistoryOrderGetInteger(Ord_Tick,ORDER_MAGIC))+"-"+
DoubleToString(HistoryOrderGetDouble(Ord_Tick,ORDER_VOLUME_INITIAL),2)+"-"+
DoubleToString(HistoryOrderGetDouble(Ord_Tick,ORDER_PRICE_OPEN),
(int)SymbolInfoInteger(HistoryOrderGetString(Ord_Tick,ORDER_SYMBOL),SYMBOL_DIGITS))+"]"+
"";
ResetLastError();
{if(!ObjectSetInteger(
0, //45=B8D8:0B>@ G0@B0
sTXW, //<O >1J5:B0
OBJPROP_TIME, //7<5=O5< :>>@48=0BC 2@5<5=8 >1J5:B0
gTime[0]
))
{
Print("ObjectSetInteger2 Error=",GetLastError());
continue;
}}//if(!ObjectSetInteger(...
ResetLastError();
{if(!ObjectSetDouble(
0, //45=B8D8:0B>@ G0@B0
sTXW, //<O >1J5:B0
OBJPROP_PRICE, //7<5=O5< :>>@48=0BC F5=K >1J5:B0
IndHeigh-11*(nRow+1)
))
{
Print("ObjectSetDouble2 Error=",GetLastError());
continue;
}else{
nRow++;
}}//if(!ObjectSetDouble(...
ObjectSetString(0,sTXW,OBJPROP_TEXT,OrderDataString+"");
}}//for(int i=History_Orders_Total-1;i>=0;i--)
}}//if(History_Orders_Total>=0)
//----- 0?><=8< B5:CI85 AG5BG8:8
History_Orders_Total_Old=History_Orders_Total; //0:@KBK5 @K=>G=K5 >@45@0
History_Orders_Total_Sel_Old=History_Orders_Total_Sel;//0:@KBK5 @K=>G=K5 >@45@0 >B>1@0==K5
//----- =:@5<5=B AG5BG8:0 :>;>=>:
nColo++;
}}//if(HistoryOrdersView)
//----- !?8A>: A45;>: 2 8AB>@88
{if(HistoryDealsView)
{
History_Deals_Total=HistoryDealsTotal(); //!>25@H5==K5 A45;:8 (2K?>;=5==K5 >@45@0)
History_Deals_Total_Sel=HistoryDealsTotalSel(inSymbolSelector,SymSel,
inMagicSelector,MagSel,
inTickSelector,TickSel);//!>25@H5==K5 A45;:8 (2K?>;=5==K5 >@45@0) >B>1@0==K5
{if(History_Deals_Total_Sel!=History_Deals_Total_Sel_Old) //5@5AG5B - ?5@5@8A>2:0 ?@8 87<5=5=88 :>;8G5AB20
{
ColoDelete("LHD",History_Deals_Total_Old); //>;>=:0 8AB>@88 ?>78F89
ColoCreate("LHD",ColoStep*nColo,History_Deals_Total);
}}//if(History_Deals_Total_Sel!=History_Deals_Total_Sel_Old)
ColoLabelMove("LHD",ColoStep*nColo,"History Dial="+IntegerToString(History_Deals_Total_Sel)+"/"+IntegerToString(History_Deals_Total));//03>;>2>: :>;>=:8
//-----
{if(History_Deals_Total>=0)
{
nRow=0;
CopyTime(TheSymbol,PERIOD_CURRENT,(nFirstBar-(int)((ColoStep*nColo+ColoShift)*kScale)),1,gTime);
{for(int i=History_Deals_Total-1;i>=0;i--)
{
sTXW="LHD_"+IntegerToString(i); //#AB0=02;8205< 8<O 4;O B5:cB>2>3> >1J5:B0
ObjectSetString(0,sTXW,OBJPROP_TEXT," "); //1=C;5=85 AB@>:8 2K2>40
ulong Deal_Tick=HistoryDealGetTicket(i); //K18@05< >@45@ ?> =><5@C 2 A?8A:5
{if(Deal_Tick<=0){continue;}} //5C40G=> - A;54CNI89
{if((SymSel!=SymSel_all)&&(inSymbolSelector!=HistoryDealGetString(Deal_Tick,DEAL_SYMBOL))){continue;}}//5 B>B A8<2>; - A;54CNI89
ENUM_DEAL_TYPE DealType=(ENUM_DEAL_TYPE)HistoryDealGetInteger(Deal_Tick,DEAL_TYPE);
DealTypeString=EnumToString(DealType);
StringReplace(DealTypeString,"DEAL_TYPE_","");
DealDataString= " "+
IntegerToString(i)+"."+
HistoryDealGetString(Deal_Tick,DEAL_SYMBOL)+" "+
DealTypeString+" ["+
IntegerToString(Deal_Tick)+"-"+
IntegerToString(HistoryDealGetInteger(Deal_Tick,DEAL_MAGIC))+"-"+
DoubleToString(HistoryDealGetDouble(Deal_Tick,DEAL_VOLUME),2)+"-"+
DoubleToString(HistoryDealGetDouble(Deal_Tick,DEAL_PRICE),
(int)SymbolInfoInteger(HistoryDealGetString(Deal_Tick,DEAL_SYMBOL),SYMBOL_DIGITS))+"]="+
DoubleToString(HistoryDealGetDouble(Deal_Tick,DEAL_PROFIT),2)+" "+
"";
ResetLastError();
{if(!ObjectSetInteger(
0, //45=B8D8:0B>@ G0@B0
sTXW, //<O >1J5:B0
OBJPROP_TIME, //7<5=O5< :>>@48=0BC 2@5<5=8 >1J5:B0
gTime[0]
))
{
Print("ObjectSetInteger3 Error=",GetLastError());
continue;
}}//if(!ObjectSetInteger(...
ResetLastError();
{if(!ObjectSetDouble(
0, //45=B8D8:0B>@ G0@B0
sTXW, //<O >1J5:B0
OBJPROP_PRICE, //7<5=O5< :>>@48=0BC F5=K >1J5:B0
IndHeigh-11*(nRow+1)
))
{
Print("ObjectSetDouble3 Error=",GetLastError());
continue;
}else{
nRow++;
}}//if(!ObjectSetDouble(...
ObjectSetString(0,sTXW,OBJPROP_TEXT,DealDataString+"");
}}//for(int i=History_Deals_Total-1;i>=0;i--)
}}//if(History_Deals_Total>=0)
//----- 0?><=8< B5:CI85 AG5BG8:8
History_Deals_Total_Old=History_Deals_Total; //!>25@H5==K5 A45;:8 (2K?>;=5==K5 >@45@0)
History_Deals_Total_Sel_Old=History_Deals_Total_Sel; //!>25@H5==K5 A45;:8 (2K?>;=5==K5 >@45@0) >B>1@0==K5
//----- =:@5<5=B AG5BG8:0 :>;>=>:
nColo++;
}}//if(HistoryDealsView)
//----- $>@<8@C5< AB@>:C :><<5=B0@8O =0 G0@B5
{if(CommentView)
{
CommentLine[0]=""+
"PositionsTotal="+IntegerToString(Positions_Total)+" "+
"OrdersTotal="+IntegerToString(Orders_Total)+" "+
"";
CommentLine[1]=""+
"HistoryOrdersTotal="+IntegerToString(History_Orders_Total)+" "+
"HistoryDealsTotal="+IntegerToString(History_Deals_Total)+" "+
"";
Comment( CommentLine[0]+" "+CommentLine[1]+" "+
(string)(datetime)(TimeCurrent()-ChartGetInteger(0,CHART_FIRST_VISIBLE_BAR,0)*PeriodSeconds(PERIOD_CURRENT))+" "+
_n+"Ticks>>"+IntegerToString(gnTick)+" Tims>>"+IntegerToString(gnTimer));
}}//if(CommentView)
//----- 5@5@8A>2:0 G0@B0
ChartRedraw();
//-----
return;
}//On_Tick()
//
//============================================================================================= MQL5 ===
// On_Timer - 1@01>B:0 A>1KB89 ?> B09<5@C
//------------------------------------------------------------------------------------------------------
void On_Timer(){
//-----
gnTimer++;
{if(gnTimer>4294967000)
{
gnTimer=100;
}}//if(gnTimer>4294967000)
gInTimer=true;
On_Tick();
}//On_Timer()
Reference in a new issue Copy permalink