GeneralTradingSarl
74 lines
2.9 KiB
Plaintext
74 lines
2.9 KiB
Plaintext
//+------------------------------------------------------------------+
|
|
//defines
|
|
#define VERSION "1.00"
|
|
//properties
|
|
#property copyright "Copyright 2017, Diogo 'Quebralim' Seca"
|
|
#property link "https://www.mql5.com/en/users/quebralim"
|
|
#property version VERSION
|
|
#property description "The following Script iterates throughout all indicators attached to a given Chart."
|
|
#property description "The output is in the following form:\n"
|
|
#property description "INDICATOR_NAME [BUFFER_INDEX] [POSITION_INDEX] = VALUE"
|
|
#property script_show_inputs
|
|
//inputs
|
|
input int ValuesPerBuffer = 1; //Values Per Buffer
|
|
input uint DigitsToShow = 5; //Digits to Show
|
|
|
|
//+------------------------------------------------------------------+
|
|
//| Start
|
|
//+------------------------------------------------------------------+
|
|
void OnStart(){
|
|
//verifiy the input ValuesPerBuffer
|
|
if (ValuesPerBuffer < 1 || ValuesPerBuffer > 10){
|
|
MessageBox("BufferInspector Input Error!\n\n"+
|
|
"Please input a 'Values Per Buffer' between 1 and 10.",
|
|
"BufferInspector "+VERSION, MB_ICONERROR|MB_OK);
|
|
return;
|
|
}
|
|
|
|
//compute DigitsToShow_
|
|
int Digits = DigitsToShow ? (int)DigitsToShow : _Digits;
|
|
|
|
//initialize buffer & chart
|
|
double buffer[];
|
|
ArrayResize(buffer,ValuesPerBuffer);
|
|
long chart = ChartID();
|
|
|
|
//loop until stopped by user
|
|
while(!_StopFlag){
|
|
string result_output = "";
|
|
//iterate throughout all windows
|
|
long n_windows = ChartGetInteger(ChartID(),CHART_WINDOWS_TOTAL);
|
|
for(int w=0; w<n_windows && !_StopFlag; ++w){
|
|
//iterate throughout all indicators
|
|
long n_indicators = ChartIndicatorsTotal(chart,w);
|
|
for(int i=0; i<n_indicators && !_StopFlag; i++){
|
|
string name = ChartIndicatorName(chart,w,i);
|
|
int ind_handle = ChartIndicatorGet(chart,w,name);
|
|
//iterate throughout buffers
|
|
int buffer_index = 0;
|
|
while (CopyBuffer(ind_handle,buffer_index,0,ValuesPerBuffer,buffer) == ValuesPerBuffer && !_StopFlag){
|
|
//iterate throughout all requested values
|
|
for (int v=0; v<ValuesPerBuffer; ++v)
|
|
result_output +="\n"+name
|
|
+"["+IntegerToString(buffer_index)+"]"
|
|
+"["+IntegerToString(v)+"]"
|
|
+"="+DoubleToString(NormalizeDouble(buffer[v],Digits),Digits);
|
|
++buffer_index;
|
|
}
|
|
result_output += "\n";
|
|
}
|
|
}
|
|
//comment the result
|
|
if (result_output != "")
|
|
Comment("BufferInspector "+VERSION+":\n"+result_output);
|
|
else
|
|
Comment("BufferInspector "+VERSION+":\n\nNo Buffers have been found.");
|
|
//rerun every 1000 milisecs
|
|
Sleep(1000);
|
|
}
|
|
|
|
//clean up
|
|
Comment("");
|
|
}
|
|
//+------------------------------------------------------------------+
|