_DIGISTOCH-1

Download script
Author: Copyright � 2006, MetaQuotes Software Corp.
_DIGISTOCH-1

This script is a professional technical analysis tool designed for the MetaTrader 4 platform. Its primary purpose is to provide traders with a comprehensive "Multi-Timeframe" view of market momentum without requiring them to switch between different charts manually.

Overview of Functionality

The logic of this tool centers on the Stochastic Oscillator, a common momentum indicator used to identify overbought or oversold conditions. Instead of showing just one timeframe, this script simultaneously tracks and displays data for six different timeframes: M1, M5, M15, M30, H1, and H4.

Key Features and Logic

1. Simultaneous Multi-Timeframe Monitoring The script pulls real-time data from all six requested timeframes. This allows a trader to see "the big picture" (like the H4 trend) alongside "the immediate action" (like the M1 trend) in a single, unified window.

2. Dynamic Color Coding for Trend Analysis To make information easy to digest at a glance, the script uses a sophisticated color-coding system. It evaluates the relationship between the primary stochastic line and its signal line across all timeframes:

  • Bullish/Upward Trends: These are highlighted in variations of Green and Lime, indicating positive momentum.
  • Bearish/Downward Trends: These are highlighted in variations of Red and Tomato, indicating negative momentum.
  • Extreme Zones: The script specifically identifies when the market is entering "Overbought" or "Oversold" territory, changing colors to warn the user of potential price exhaustion.

3. Visual Indicators and Alerts In addition to color-coded labels for each timeframe, the script includes:

  • Directional Arrows: It generates visual arrows (pointing up or down) to clearly indicate the immediate direction of the trend for every timeframe monitored.
  • Live Values: If enabled, the tool displays the exact numerical value of the stochastic oscillator for each period, providing precision alongside the visual cues.

4. Integrated Dashboard Legend The script features a built-in "Legend" that remains visible on the screen. This acts as a constant reference guide, defining exactly what each color and symbol represents (e.g., distinguishing between a standard trend, an overbought condition, or a bullish/bearish start).

Summary for the User

In simple terms, this tool transforms complex data into a visual dashboard. Rather than looking at six different charts to figure out if the market is trending up or down, you can look at one window. The script does the heavy lifting of calculating the momentum across various timeframes and tells you—via colors and arrows—where the market is heading right now.

Indicators Used
Stochastic oscillator
14 Views
0 Downloads
0 Favorites
_DIGISTOCH-1
//+------------------------------------------------------------------+
//|                                                    DIGISTOCH.mq4 |
//|                      Copyright © 2006, MetaQuotes Software Corp. |
//|                                        http://www.metaquotes.net |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2006, MetaQuotes Software Corp."
#property link      "http://www.metaquotes.net"
//+---------------------------------------------------------------------+
//| Author: Muhammad Hamizi Jaminan                                     |
//| Nick: hymns                                                         |
//|                                                                     |
//| Date: December 13, 2006                                             |
//| Custom Indicator: DigiStoch.mq4                                     |
//| Version: 1.0.1"                                                     |
//| Description: Multi TimeFrame Digital Stochastic Indicator           |
//|                                                                     |
//| Change Logs                                                         |
//| Version 1.0.1                                                       |
//|  - Fix little bugs for color and arrow. When price overbought or    |
//|  oversold color change to bearish or bullish begin color. Should be | 
//|  overbought or oversold color and arrow.                            |
//|                                                                     |
//| Version 1.0                                                         |
//| Release DigiStoch ;)                                                |
//+---------------------------------------------------------------------+
#property indicator_separate_window
//----
extern int K_period=8;
extern int D_period=3;
extern int S_period=3;
extern bool Show_Stoch_Value=true;
extern bool Show_Legend=true;
//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
int init()
  {
//---- indicators
   IndicatorShortName("DIGISTOCH");
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| Custom indicator deinitialization function                       |
//+------------------------------------------------------------------+
int deinit()
  {
//----
   ObjectsDeleteAll(0,OBJ_LABEL);
   ObjectDelete("ObjLabel1"); ObjectDelete("ObjLabel2"); ObjectDelete("ObjLabel3"); ObjectDelete("ObjLabel4");
   ObjectDelete("ObjLabel5"); ObjectDelete("ObjLabel6"); ObjectDelete("ObjLabel7"); ObjectDelete("ObjLabel8");
   ObjectDelete("ObjLabel9"); ObjectDelete("ObjLabel10"); ObjectDelete("ObjLabel11"); ObjectDelete("ObjLabel12");
   ObjectDelete("ObjLabel9a"); ObjectDelete("ObjLabel10a"); ObjectDelete("ObjLabel11a"); ObjectDelete("ObjLabel12a");
   ObjectDelete("ObjLabel13"); ObjectDelete("ObjLabel14"); ObjectDelete("ObjLabel15"); ObjectDelete("ObjLabel16");
   ObjectDelete("ObjLabel13a"); ObjectDelete("ObjLabel14a"); ObjectDelete("ObjLabel15a"); ObjectDelete("ObjLabel16a");
   ObjectDelete("SSIG1"); ObjectDelete("SSIG2"); ObjectDelete("SSIG3"); ObjectDelete("SSIG4"); ObjectDelete("SSIG5"); ObjectDelete("SSIG6");
//----
   return(0);
  }
//+------------------------------------------------------------------+
//| Custom indicator iteration function                              |
//+------------------------------------------------------------------+
int start()
  {
   //m1 data
   double stoch_main_m1=iStochastic(NULL,PERIOD_M1,K_period,D_period,S_period,MODE_SMA,1,MODE_MAIN,0);
   double stoch_sig_m1=iStochastic(NULL,PERIOD_M1,K_period,D_period,S_period,MODE_SMA,1,MODE_SIGNAL,0);
   //m5 data
   double stoch_main_m5=iStochastic(NULL,PERIOD_M5,K_period,D_period,S_period,MODE_SMA,1,MODE_MAIN,0);
   double stoch_sig_m5=iStochastic(NULL,PERIOD_M5,K_period,D_period,S_period,MODE_SMA,1,MODE_SIGNAL,0);
   //m15 data
   double stoch_main_m15=iStochastic(NULL,PERIOD_M15,K_period,D_period,S_period,MODE_SMA,1,MODE_MAIN,0);
   double stoch_sig_m15=iStochastic(NULL,PERIOD_M15,K_period,D_period,S_period,MODE_SMA,1,MODE_SIGNAL,0);
   //m30 data
   double stoch_main_m30=iStochastic(NULL,PERIOD_M30,K_period,D_period,S_period,MODE_SMA,1,MODE_MAIN,0);
   double stoch_sig_m30=iStochastic(NULL,PERIOD_M30,K_period,D_period,S_period,MODE_SMA,1,MODE_SIGNAL,0);
   //h1 data
   double stoch_main_h1=iStochastic(NULL,PERIOD_H1,K_period,D_period,S_period,MODE_SMA,1,MODE_MAIN,0);
   double stoch_sig_h1=iStochastic(NULL,PERIOD_H1,K_period,D_period,S_period,MODE_SMA,1,MODE_SIGNAL,0);
   //h4 data
   double stoch_main_h4=iStochastic(NULL,PERIOD_H4,K_period,D_period,S_period,MODE_SMA,1,MODE_MAIN,0);
   double stoch_sig_h4=iStochastic(NULL,PERIOD_H4,K_period,D_period,S_period,MODE_SMA,1,MODE_SIGNAL,0);
   //define color
   color stoch_color_m1, stoch_color_m5, stoch_color_m15, stoch_color_m30, stoch_color_h1, stoch_color_h4;
   //define string    
   string stoch_level_m1, stoch_level_m5, stoch_level_m15, stoch_level_m30, stoch_level_h1, stoch_level_h4,
   stoch_arrow_m1, stoch_arrow_m5, stoch_arrow_m15, stoch_arrow_m30, stoch_arrow_h1, stoch_arrow_h4;
   //m1 up trend
   if ((stoch_main_m1>=stoch_sig_m1) && (stoch_sig_m1 < 20) && (stoch_sig_m1!=0)) { stoch_color_m1=YellowGreen; }
   if ((stoch_main_m1>=stoch_sig_m1) && (stoch_sig_m1>=20) && (stoch_sig_m1<=80)) { stoch_color_m1=Lime; }
   if ((stoch_main_m1>=stoch_sig_m1) && (stoch_sig_m1 > 80)) { stoch_color_m1=Green; }
   //m1 down trend
   if ((stoch_main_m1<=stoch_sig_m1) && (stoch_sig_m1 > 80) && (stoch_sig_m1!=100)) { stoch_color_m1=Tomato; }
   if ((stoch_main_m1<=stoch_sig_m1) && (stoch_sig_m1>=20) && (stoch_sig_m1<=80)) { stoch_color_m1=Red; }
   if ((stoch_main_m1<=stoch_sig_m1) && (stoch_sig_m1 < 20)) { stoch_color_m1=FireBrick; }
   //m5 up trend
   if ((stoch_main_m5>=stoch_sig_m5) && (stoch_sig_m5 < 20) && (stoch_sig_m5!=0)) { stoch_color_m5=YellowGreen; }
   if ((stoch_main_m5>=stoch_sig_m5) && (stoch_sig_m5>=20) && (stoch_sig_m5<=80)) { stoch_color_m5=Lime; }
   if ((stoch_main_m5>=stoch_sig_m5) && (stoch_sig_m5 > 80)) { stoch_color_m5=Green; }
   //m5 down trend
   if ((stoch_main_m5<=stoch_sig_m5) && (stoch_sig_m5 > 80) && (stoch_sig_m5!=100)) { stoch_color_m5=Tomato; }
   if ((stoch_main_m5<=stoch_sig_m5) && (stoch_sig_m5>=20) && (stoch_sig_m5<=80)) { stoch_color_m5=Red; }
   if ((stoch_main_m5<=stoch_sig_m5) && (stoch_sig_m5 < 20)) { stoch_color_m5=FireBrick; }
   //m15 up trend
   if ((stoch_main_m15>=stoch_sig_m15) && (stoch_sig_m15 < 20) && (stoch_sig_m15!=0)) { stoch_color_m15=YellowGreen; }
   if ((stoch_main_m15>=stoch_sig_m15) && (stoch_sig_m15>=20) && (stoch_sig_m15<=80)) { stoch_color_m15=Lime; }
   if ((stoch_main_m15>=stoch_sig_m15) && (stoch_sig_m15 > 80)) { stoch_color_m15=Green; }
   //m15 down trend
   if ((stoch_main_m15<=stoch_sig_m15) && (stoch_sig_m15 > 80) && (stoch_sig_m15!=100)) { stoch_color_m15=Tomato; }
   if ((stoch_main_m15<=stoch_sig_m15) && (stoch_sig_m15>=20) && (stoch_sig_m15<=80)) { stoch_color_m15=Red; }
   if ((stoch_main_m15<=stoch_sig_m15) && (stoch_sig_m15 < 20)) { stoch_color_m15=FireBrick; }
   //m30 up trend
   if ((stoch_main_m30>=stoch_sig_m30) && (stoch_sig_m30 < 20) && (stoch_sig_m30!=0)) { stoch_color_m30=YellowGreen; }
   if ((stoch_main_m30>=stoch_sig_m30) && (stoch_sig_m30>=20) && (stoch_sig_m30<=80)) { stoch_color_m30=Lime; }
   if ((stoch_main_m30>=stoch_sig_m30) && (stoch_sig_m30 > 80)) { stoch_color_m30=Green; }
   //m30 down trend
   if ((stoch_main_m30<=stoch_sig_m30) && (stoch_sig_m30 > 80) && (stoch_sig_m30!=100)) { stoch_color_m30=Tomato; }
   if ((stoch_main_m30<=stoch_sig_m30) && (stoch_sig_m30>=20) && (stoch_sig_m30<=80)) { stoch_color_m30=Red; }
   if ((stoch_main_m30<=stoch_sig_m30) && (stoch_sig_m30 < 20)) { stoch_color_m30=FireBrick; }
   //h1 up trend
   if ((stoch_main_h1>=stoch_sig_h1) && (stoch_sig_h1 < 20) && (stoch_sig_h1!=0)) { stoch_color_h1=YellowGreen; }
   if ((stoch_main_h1>=stoch_sig_h1) && (stoch_sig_h1>=20) && (stoch_sig_h1<=80)) { stoch_color_h1=Lime; }
   if ((stoch_main_h1>=stoch_sig_h1) && (stoch_sig_h1 > 80)) { stoch_color_h1=Green; }
   //h1 down trend
   if ((stoch_main_h1<=stoch_sig_h1) && (stoch_sig_h1 > 80) && (stoch_sig_h1!=100)) { stoch_color_h1=Tomato; }
   if ((stoch_main_h1<=stoch_sig_h1) && (stoch_sig_h1>=20) && (stoch_sig_h1<=80)) { stoch_color_h1=Red; }
   if ((stoch_main_h1<=stoch_sig_h1) && (stoch_sig_h1 < 20)) { stoch_color_h1=FireBrick; }
   //h4 up trend
   if ((stoch_main_h4>=stoch_sig_h4) && (stoch_sig_h4 < 20) && (stoch_sig_h4!=0)) { stoch_color_h4=YellowGreen; }
   if ((stoch_main_h4>=stoch_sig_h4) && (stoch_sig_h4>=20) && (stoch_sig_h4<=80)) { stoch_color_h4=Lime; }
   if ((stoch_main_h4>=stoch_sig_h4) && (stoch_sig_h4 > 80)) { stoch_color_h4=Green; }
   //h4 down trend
   if ((stoch_main_h4<=stoch_sig_h4) && (stoch_sig_h4 > 80) && (stoch_sig_h4!=100)) { stoch_color_h4=Tomato; }
   if ((stoch_main_h4<=stoch_sig_h4) && (stoch_sig_h4>=20) && (stoch_sig_h4<=80)) { stoch_color_h4=Red; }
   if ((stoch_main_h4<=stoch_sig_h4) && (stoch_sig_h4 < 20)) { stoch_color_h4=FireBrick; }
   //Signal Labels           
   ObjectCreate("ObjLabel1", OBJ_LABEL, WindowFind("DIGISTOCH"), 0, 0); //LABEL
   ObjectSetText("ObjLabel1","SIGNAL",8, "Arial Bold", Silver);
   ObjectSet("ObjLabel1", OBJPROP_CORNER, 0);
   ObjectSet("ObjLabel1", OBJPROP_XDISTANCE, 105);
   ObjectSet("ObjLabel1", OBJPROP_YDISTANCE, 3);
   //
   ObjectCreate("SSIG1", OBJ_LABEL, WindowFind("DIGISTOCH"), 0, 0);//M1 SIGNAL
   ObjectSetText("SSIG1","M1",9, "Arial Bold", stoch_color_m1);
   ObjectSet("SSIG1", OBJPROP_CORNER, 0);
   ObjectSet("SSIG1", OBJPROP_XDISTANCE, 150);
   ObjectSet("SSIG1", OBJPROP_YDISTANCE, 3);
   //
   ObjectCreate("SSIG2", OBJ_LABEL, WindowFind("DIGISTOCH"), 0, 0);//M5 SIGNAL
   ObjectSetText("SSIG2","M5",9, "Arial Bold", stoch_color_m5);
   ObjectSet("SSIG2", OBJPROP_CORNER, 0);
   ObjectSet("SSIG2", OBJPROP_XDISTANCE, 175);
   ObjectSet("SSIG2", OBJPROP_YDISTANCE, 3);
   //
   ObjectCreate("SSIG3", OBJ_LABEL, WindowFind("DIGISTOCH"), 0, 0);//M15 SIGNAL
   ObjectSetText("SSIG3","M15",9, "Arial Bold", stoch_color_m15);
   ObjectSet("SSIG3", OBJPROP_CORNER, 0);
   ObjectSet("SSIG3", OBJPROP_XDISTANCE, 200);
   ObjectSet("SSIG3", OBJPROP_YDISTANCE, 3);
   //
   ObjectCreate("SSIG4", OBJ_LABEL, WindowFind("DIGISTOCH"), 0, 0);//M30 SIGNAL
   ObjectSetText("SSIG4","M30",9, "Arial Bold", stoch_color_m30);
   ObjectSet("SSIG4", OBJPROP_CORNER, 0);
   ObjectSet("SSIG4", OBJPROP_XDISTANCE, 230);
   ObjectSet("SSIG4", OBJPROP_YDISTANCE, 3);
   //
   ObjectCreate("SSIG5", OBJ_LABEL, WindowFind("DIGISTOCH"), 0, 0);//H1 SIGNAL
   ObjectSetText("SSIG5","H1",9, "Arial Bold", stoch_color_h1);
   ObjectSet("SSIG5", OBJPROP_CORNER, 0);
   ObjectSet("SSIG5", OBJPROP_XDISTANCE, 260);
   ObjectSet("SSIG5", OBJPROP_YDISTANCE, 3);
   //
   ObjectCreate("SSIG6", OBJ_LABEL, WindowFind("DIGISTOCH"), 0, 0);//H4 SIGNAL
   ObjectSetText("SSIG6","H4",9, "Arial Bold", stoch_color_h4);
   ObjectSet("SSIG6", OBJPROP_CORNER, 0);
   ObjectSet("SSIG6", OBJPROP_XDISTANCE, 280);
   ObjectSet("SSIG6", OBJPROP_YDISTANCE, 3);
   //Show Digital Stochastic Value
   if (Show_Stoch_Value==true)
     {
      //stochastic value
      string stoch_m1_val=stoch_sig_m1;
      string stoch_m5_val=stoch_sig_m5;
      string stoch_m15_val=stoch_sig_m15;
      string stoch_m30_val=stoch_sig_m30;
      string stoch_h1_val=stoch_sig_h1;
      string stoch_h4_val=stoch_sig_h4;
//----
      if (stoch_main_m1>=stoch_sig_m1 && stoch_sig_m1 > 0) { stoch_arrow_m1="Ù"; }
      if (stoch_main_m1<=stoch_sig_m1 && stoch_sig_m1 < 100) { stoch_arrow_m1="Ú"; }
      if (stoch_main_m5>=stoch_sig_m5 && stoch_sig_m5 > 0) { stoch_arrow_m5="Ù"; }
      if (stoch_main_m5<=stoch_sig_m5 && stoch_sig_m5 < 100) { stoch_arrow_m5="Ú"; }
      if (stoch_main_m15>=stoch_sig_m15 && stoch_sig_m15 > 0) { stoch_arrow_m15="Ù"; }
      if (stoch_main_m15<=stoch_sig_m15 && stoch_sig_m15 < 100) { stoch_arrow_m15="Ú"; }
      if (stoch_main_m30>=stoch_sig_m30 && stoch_sig_m30 > 0) { stoch_arrow_m30="Ù"; }
      if (stoch_main_m30<=stoch_sig_m30 && stoch_sig_m30 < 100) { stoch_arrow_m30="Ú"; }
      if (stoch_main_h1>=stoch_sig_h1 && stoch_sig_h1 > 0) { stoch_arrow_h1="Ù"; }
      if (stoch_main_h1<=stoch_sig_h1 && stoch_sig_h1 < 100) { stoch_arrow_h1="Ú"; }
      if (stoch_main_h4>=stoch_sig_h4 && stoch_sig_h4 > 0) { stoch_arrow_h4="Ù"; }
      if (stoch_main_h4<=stoch_sig_h4 && stoch_sig_h4 < 100) { stoch_arrow_h4="Ú"; }
      //stochastic value
      ObjectCreate("ObjLabel15", OBJ_LABEL, WindowFind("DIGISTOCH"), 0, 0);
      ObjectSetText("ObjLabel15","STOCHASTIC",8, "Arial Bold", Silver);
      ObjectSet("ObjLabel15", OBJPROP_CORNER, 0);
      ObjectSet("ObjLabel15", OBJPROP_XDISTANCE, 310);
      ObjectSet("ObjLabel15", OBJPROP_YDISTANCE, 3);
      //stoch m1 value
      ObjectCreate("ObjLabel9", OBJ_LABEL, WindowFind("DIGISTOCH"), 0, 0);
      ObjectSetText("ObjLabel9","M1  : "+StringSubstr(stoch_m1_val,0,5)+" ",8, "Arial Bold", stoch_color_m1);
      ObjectSet("ObjLabel9", OBJPROP_CORNER, 0);
      ObjectSet("ObjLabel9", OBJPROP_XDISTANCE, 380);
      ObjectSet("ObjLabel9", OBJPROP_YDISTANCE, 2);
      //arrow m1
      ObjectCreate("ObjLabel9a", OBJ_LABEL, WindowFind("DIGISTOCH"), 0, 0);
      ObjectSetText("ObjLabel9a",stoch_arrow_m1,8, "Wingdings", stoch_color_m1);
      ObjectSet("ObjLabel9a", OBJPROP_CORNER, 0);
      ObjectSet("ObjLabel9a", OBJPROP_XDISTANCE, 435);
      ObjectSet("ObjLabel9a", OBJPROP_YDISTANCE, 3);
      //stoch m30 value
      ObjectCreate("ObjLabel10", OBJ_LABEL, WindowFind("DIGISTOCH"), 0, 0);
      ObjectSetText("ObjLabel10","M30: "+StringSubstr(stoch_m30_val,0,5),8, "Arial Bold", stoch_color_m30);
      ObjectSet("ObjLabel10", OBJPROP_CORNER, 0);
      ObjectSet("ObjLabel10", OBJPROP_XDISTANCE, 380);
      ObjectSet("ObjLabel10", OBJPROP_YDISTANCE, 12);
      //arrow m30
      ObjectCreate("ObjLabel10a", OBJ_LABEL, WindowFind("DIGISTOCH"), 0, 0);
      ObjectSetText("ObjLabel10a",stoch_arrow_m30,8, "Wingdings", stoch_color_m30);
      ObjectSet("ObjLabel10a", OBJPROP_CORNER, 0);
      ObjectSet("ObjLabel10a", OBJPROP_XDISTANCE, 435);
      ObjectSet("ObjLabel10a", OBJPROP_YDISTANCE, 13);
      //stoch m5 value            
      ObjectCreate("ObjLabel11", OBJ_LABEL, WindowFind("DIGISTOCH"), 0, 0);
      ObjectSetText("ObjLabel11","M5: "+StringSubstr(stoch_m5_val,0,5),8, "Arial Bold", stoch_color_m5);
      ObjectSet("ObjLabel11", OBJPROP_CORNER, 0);
      ObjectSet("ObjLabel11", OBJPROP_XDISTANCE, 460);
      ObjectSet("ObjLabel11", OBJPROP_YDISTANCE, 2);
      //arrow m5
      ObjectCreate("ObjLabel11a", OBJ_LABEL, WindowFind("DIGISTOCH"), 0, 0);
      ObjectSetText("ObjLabel11a",stoch_arrow_m5,8, "Wingdings", stoch_color_m5);
      ObjectSet("ObjLabel11a", OBJPROP_CORNER, 0);
      ObjectSet("ObjLabel11a", OBJPROP_XDISTANCE, 510);
      ObjectSet("ObjLabel11a", OBJPROP_YDISTANCE, 3);
      //stoch h1 value
      ObjectCreate("ObjLabel12", OBJ_LABEL, WindowFind("DIGISTOCH"), 0, 0);
      ObjectSetText("ObjLabel12","H1 : "+StringSubstr(stoch_h1_val,0,5),8, "Arial Bold", stoch_color_h1);
      ObjectSet("ObjLabel12", OBJPROP_CORNER, 0);
      ObjectSet("ObjLabel12", OBJPROP_XDISTANCE, 460);
      ObjectSet("ObjLabel12", OBJPROP_YDISTANCE, 12);
      //arrow h1
      ObjectCreate("ObjLabel12a", OBJ_LABEL, WindowFind("DIGISTOCH"), 0, 0);
      ObjectSetText("ObjLabel12a",stoch_arrow_h1,8, "Wingdings", stoch_color_h1);
      ObjectSet("ObjLabel12a", OBJPROP_CORNER, 0);
      ObjectSet("ObjLabel12a", OBJPROP_XDISTANCE, 510);
      ObjectSet("ObjLabel12a", OBJPROP_YDISTANCE, 13);
      //stoch m15 value        
      ObjectCreate("ObjLabel13", OBJ_LABEL, WindowFind("DIGISTOCH"), 0, 0);
      ObjectSetText("ObjLabel13","M15: "+StringSubstr(stoch_m15_val,0,5),8, "Arial Bold", stoch_color_m15);
      ObjectSet("ObjLabel13", OBJPROP_CORNER, 0);
      ObjectSet("ObjLabel13", OBJPROP_XDISTANCE, 535);
      ObjectSet("ObjLabel13", OBJPROP_YDISTANCE, 2);
      //arrow m15
      ObjectCreate("ObjLabel13a", OBJ_LABEL, WindowFind("DIGISTOCH"), 0, 0);
      ObjectSetText("ObjLabel13a",stoch_arrow_m15,8, "Wingdings", stoch_color_m15);
      ObjectSet("ObjLabel13a", OBJPROP_CORNER, 0);
      ObjectSet("ObjLabel13a", OBJPROP_XDISTANCE, 590);
      ObjectSet("ObjLabel13a", OBJPROP_YDISTANCE, 3);
      //stoch h4 value
      ObjectCreate("ObjLabel14", OBJ_LABEL, WindowFind("DIGISTOCH"), 0, 0);
      ObjectSetText("ObjLabel14","H4   : "+StringSubstr(stoch_h4_val,0,5),8, "Arial Bold", stoch_color_h4);
      ObjectSet("ObjLabel14", OBJPROP_CORNER, 0);
      ObjectSet("ObjLabel14", OBJPROP_XDISTANCE, 535);
      ObjectSet("ObjLabel14", OBJPROP_YDISTANCE, 12);
      //arrow h4
      ObjectCreate("ObjLabel14a", OBJ_LABEL, WindowFind("DIGISTOCH"), 0, 0);
      ObjectSetText("ObjLabel14a",stoch_arrow_h4,8, "Wingdings", stoch_color_h4);
      ObjectSet("ObjLabel14a", OBJPROP_CORNER, 0);
      ObjectSet("ObjLabel14a", OBJPROP_XDISTANCE, 590);
      ObjectSet("ObjLabel14a", OBJPROP_YDISTANCE, 13);
     }
   //Show Legend
   if (Show_Legend==true)
     {
      ObjectCreate("ObjLabel2", OBJ_LABEL, WindowFind("DIGISTOCH"), 0, 0);
      ObjectSetText("ObjLabel2","LEGEND",8, "Arial Bold", Silver);
      ObjectSet("ObjLabel2", OBJPROP_CORNER, 0);
      ObjectSet("ObjLabel2", OBJPROP_XDISTANCE, 615);
      ObjectSet("ObjLabel2", OBJPROP_YDISTANCE, 3);
      //
      ObjectCreate("ObjLabel3", OBJ_LABEL, WindowFind("DIGISTOCH"), 0, 0);
      ObjectSetText("ObjLabel3","* TREND UP",8, "Arial Bold", Lime);
      ObjectSet("ObjLabel3", OBJPROP_CORNER, 0);
      ObjectSet("ObjLabel3", OBJPROP_XDISTANCE, 665);
      ObjectSet("ObjLabel3", OBJPROP_YDISTANCE, 2);
      //
      ObjectCreate("ObjLabel4", OBJ_LABEL, WindowFind("DIGISTOCH"), 0, 0);
      ObjectSetText("ObjLabel4","* TREND DN",8, "Arial Bold", Red);
      ObjectSet("ObjLabel4", OBJPROP_CORNER, 0);
      ObjectSet("ObjLabel4", OBJPROP_XDISTANCE, 665);
      ObjectSet("ObjLabel4", OBJPROP_YDISTANCE, 12);
      //
      ObjectCreate("ObjLabel5", OBJ_LABEL, WindowFind("DIGISTOCH"), 0, 0);
      ObjectSetText("ObjLabel5","* OVERBOUGHT",8, "Arial Bold", Green);
      ObjectSet("ObjLabel5", OBJPROP_CORNER, 0);
      ObjectSet("ObjLabel5", OBJPROP_XDISTANCE, 735);
      ObjectSet("ObjLabel5", OBJPROP_YDISTANCE, 2);
      //
      ObjectCreate("ObjLabel6", OBJ_LABEL, WindowFind("DIGISTOCH"), 0, 0);
      ObjectSetText("ObjLabel6","* OVERSOLD",8, "Arial Bold", FireBrick);
      ObjectSet("ObjLabel6", OBJPROP_CORNER, 0);
      ObjectSet("ObjLabel6", OBJPROP_XDISTANCE, 735);
      ObjectSet("ObjLabel6", OBJPROP_YDISTANCE, 12);
      //
      ObjectCreate("ObjLabel7", OBJ_LABEL, WindowFind("DIGISTOCH"), 0, 0);
      ObjectSetText("ObjLabel7","* BULLISH START",8, "Arial Bold", YellowGreen);
      ObjectSet("ObjLabel7", OBJPROP_CORNER, 0);
      ObjectSet("ObjLabel7", OBJPROP_XDISTANCE, 825);
      ObjectSet("ObjLabel7", OBJPROP_YDISTANCE, 2);
      //
      ObjectCreate("ObjLabel8", OBJ_LABEL, WindowFind("DIGISTOCH"), 0, 0);
      ObjectSetText("ObjLabel8","* BEARISH START",8, "Arial Bold", Tomato);
      ObjectSet("ObjLabel8", OBJPROP_CORNER, 0);
      ObjectSet("ObjLabel8", OBJPROP_XDISTANCE, 825);
      ObjectSet("ObjLabel8", OBJPROP_YDISTANCE, 12);
     }
//----
   return(0);
  }
//+------------------------------------------------------------------+

Comments