//+------------------------------------------------------------------+
//| +JoGET_RSI+.mq4 |
//| masemus |
//| Gresik_JawaTimur_Indonesia |
//+------------------------------------------------------------------+
#property copyright "masemus"
#property link "Gresik_JawaTimur_Indonesia"
#property indicator_separate_window
#property indicator_minimum 0
#property indicator_maximum 100
#property indicator_level1 30
#property indicator_level2 70
#property indicator_levelcolor Gray
#property indicator_buffers 8
#property indicator_color1 White
#property indicator_color2 Red
#property indicator_color3 Magenta
#property indicator_color4 Aqua
#property indicator_color5 LimeGreen
#property indicator_color6 Gold
#property indicator_color7 Silver
#property indicator_color8 RosyBrown
//****************************************
extern bool EUR = false;
extern bool GBP = true;
extern bool CHF = false;
extern bool JPY = true;
extern bool AUD = false;
extern bool CAD = false;
//****************************************
extern int bars_limit = 100;
extern color USD_color = White;
extern color EUR_color = Red;
extern color GBP_color = Magenta;
extern color CHF_color = Aqua;
extern color JPY_color = LimeGreen;
extern color AUD_color = Gold;
extern color CAD_color = Silver;
extern color Pairs_color = RosyBrown;
extern int MyRSI = 23;
extern int Price_Type = 0;
extern int MyRSI_OB = 70;
extern int MyRSI_MID = 50;
extern int MyRSI_OS = 30;
//****************************************
double Idx1[],Idx2[],Idx3[],Idx4[],Idx5[],Idx6[],Idx7[],Idx8[];
//+------------------------------------------------------------------+
//| Custom indicator initialization function |
//+------------------------------------------------------------------+
int init()
{
//---- indicators
IndicatorShortName("+JoGET_RSI+");
//----
SetIndexStyle(0,DRAW_LINE);
SetIndexBuffer(0,Idx1);
SetIndexStyle(1,DRAW_LINE);
SetIndexBuffer(1,Idx2);
SetIndexStyle(2,DRAW_LINE);
SetIndexBuffer(2,Idx3);
SetIndexStyle(3,DRAW_LINE);
SetIndexBuffer(3,Idx4);
SetIndexStyle(4,DRAW_LINE);
SetIndexBuffer(4,Idx5);
SetIndexStyle(5,DRAW_LINE);
SetIndexBuffer(5,Idx6);
SetIndexStyle(6,DRAW_LINE);
SetIndexBuffer(6,Idx7);
SetIndexStyle(7,DRAW_LINE);
SetIndexBuffer(7,Idx8);
//----
return(0);
}
//+------------------------------------------------------------------+
//| Custor indicator deinitialization function |
//+------------------------------------------------------------------+
int deinit()
{
//----
ObjectsDeleteAll(WindowFind("+JoGET_RSI+"),OBJ_LABEL);
//----
return(0);
}
//+------------------------------------------------------------------+
//| Custom indicator iteration function |
//+------------------------------------------------------------------+
int start()
{
int counted_bars=IndicatorCounted();
//----
for (int i = 0; i < bars_limit; i++){
double EU = iRSI("EURUSD",0,MyRSI,Price_Type,i);
double GU = iRSI("GBPUSD",0,MyRSI,Price_Type,i);
double AU = iRSI("AUDUSD",0,MyRSI,Price_Type,i);
double UCF = iRSI("USDCHF",0,MyRSI,Price_Type,i);
double UCD = iRSI("USDCAD",0,MyRSI,Price_Type,i);
double UJ = iRSI("USDJPY",0,MyRSI,Price_Type,i);
double EJ = iRSI("EURJPY",0,MyRSI,Price_Type,i);
double GJ = iRSI("GBPJPY",0,MyRSI,Price_Type,i);
double AJ = iRSI("AUDJPY",0,MyRSI,Price_Type,i);
double CFJ = iRSI("CHFJPY",0,MyRSI,Price_Type,i);
double CDJ = iRSI("CADJPY",0,MyRSI,Price_Type,i);
double ECF = iRSI("EURCHF",0,MyRSI,Price_Type,i);
double GCF = iRSI("GBPCHF",0,MyRSI,Price_Type,i);
double ACF = iRSI("AUDCHF",0,MyRSI,Price_Type,i);
double CDCF = iRSI("CADCHF",0,MyRSI,Price_Type,i);
double ECD = iRSI("EURCAD",0,MyRSI,Price_Type,i);
double GCD = iRSI("GBPCAD",0,MyRSI,Price_Type,i);
double ACD = iRSI("AUDCAD",0,MyRSI,Price_Type,i);
double EG = iRSI("EURGBP",0,MyRSI,Price_Type,i);
double EA = iRSI("EURAUD",0,MyRSI,Price_Type,i);
double GA = iRSI("GBPAUD",0,MyRSI,Price_Type,i);
double iPairs = iRSI(Symbol(),0,MyRSI,Price_Type,i);
double iUSD = (EU+GU+UCF+AU+UCD+UJ)/6;
double iEUR = (EU+EG+ECF+EA+ECD+EJ)/6;
double iGBP = (GU+EG+GCF+GA+GCD+GJ)/6;
double iAUD = (EA+GA+ACF+AU+ACD+AJ)/6;
double iCAD = (ECD+GCD+CDCF+ACD+UCD+CDJ)/6;
double iCHF = (ECF+GCF+UCF+ACF+CDCF+CFJ)/6;
double iJPY = (EJ+GJ+CFJ+AJ+CDJ+UJ)/6;
Idx1[i] = iUSD;
if(EUR){
Idx2[i] = iEUR;
}
if(GBP){
Idx3[i] = iGBP;
}
if(CHF){
Idx4[i] = iCHF;
}
if(JPY){
Idx5[i] = iJPY;
}
if(AUD){
Idx6[i] = iAUD;
}
if(CAD){
Idx7[i] = iCAD;
}
Idx8[i] = iPairs;
//*****************************************************************************************************
double cEU=iRSI("EURUSD",0,MyRSI,Price_Type,0);
double cGU=iRSI("GBPUSD",0,MyRSI,Price_Type,0);
double cAU=iRSI("AUDUSD",0,MyRSI,Price_Type,0);
double cUCF=iRSI("USDCHF",0,MyRSI,Price_Type,0);
double cUCD=iRSI("USDCAD",0,MyRSI,Price_Type,0);
double cUJ=iRSI("USDJPY",0,MyRSI,Price_Type,0);
double cEJ=iRSI("EURJPY",0,MyRSI,Price_Type,0);
double cGJ=iRSI("GBPJPY",0,MyRSI,Price_Type,0);
double cAJ=iRSI("AUDJPY",0,MyRSI,Price_Type,0);
double cCFJ=iRSI("CHFJPY",0,MyRSI,Price_Type,0);
double cCDJ=iRSI("CADJPY",0,MyRSI,Price_Type,0);
double cECF=iRSI("EURCHF",0,MyRSI,Price_Type,0);
double cGCF=iRSI("GBPCHF",0,MyRSI,Price_Type,0);
double cACF=iRSI("AUDCHF",0,MyRSI,Price_Type,0);
double cCDCF=iRSI("CADCHF",0,MyRSI,Price_Type,0);
double cECD=iRSI("EURCAD",0,MyRSI,Price_Type,0);
double cGCD=iRSI("GBPCAD",0,MyRSI,Price_Type,0);
double cACD=iRSI("AUDCAD",0,MyRSI,Price_Type,0);
double cEG=iRSI("EURGBP",0,MyRSI,Price_Type,0);
double cEA=iRSI("EURAUD",0,MyRSI,Price_Type,0);
double cGA=iRSI("GBPAUD",0,MyRSI,Price_Type,0);
double cPairs = iRSI(Symbol(),0,MyRSI,Price_Type,0);
double cUSD = (cEU+cGU+cUCF+cAU+cUCD+cUJ)/6;
double cEUR = (cEU+cEG+cECF+cEA+cECD+cEJ)/6;
double cGBP = (cGU+cEG+cGCF+cGA+cGCD+cGJ)/6;
double cAUD = (cEA+cGA+cACF+cAU+cACD+cAJ)/6;
double cCAD = (cECD+cGCD+cCDCF+cACD+cUCD+cCDJ)/6;
double cCHF = (cECF+cGCF+cUCF+cACF+cCDCF+cCFJ)/6;
double cJPY = (cEJ+cGJ+cCFJ+cAJ+cCDJ+cUJ)/6;
double pEU=iRSI("EURUSD",0,MyRSI,Price_Type,1);
double pGU=iRSI("GBPUSD",0,MyRSI,Price_Type,1);
double pAU=iRSI("AUDUSD",0,MyRSI,Price_Type,1);
double pUCF=iRSI("USDCHF",0,MyRSI,Price_Type,1);
double pUCD=iRSI("USDCAD",0,MyRSI,Price_Type,1);
double pUJ=iRSI("USDJPY",0,MyRSI,Price_Type,1);
double pEJ=iRSI("EURJPY",0,MyRSI,Price_Type,1);
double pGJ=iRSI("GBPJPY",0,MyRSI,Price_Type,1);
double pAJ=iRSI("AUDJPY",0,MyRSI,Price_Type,1);
double pCFJ=iRSI("CHFJPY",0,MyRSI,Price_Type,1);
double pCDJ=iRSI("CADJPY",0,MyRSI,Price_Type,1);
double pECF=iRSI("EURCHF",0,MyRSI,Price_Type,1);
double pGCF=iRSI("GBPCHF",0,MyRSI,Price_Type,1);
double pACF=iRSI("AUDCHF",0,MyRSI,Price_Type,1);
double pCDCF=iRSI("CADCHF",0,MyRSI,Price_Type,1);
double pECD=iRSI("EURCAD",0,MyRSI,Price_Type,1);
double pGCD=iRSI("GBPCAD",0,MyRSI,Price_Type,1);
double pACD=iRSI("AUDCAD",0,MyRSI,Price_Type,1);
double pEG=iRSI("EURGBP",0,MyRSI,Price_Type,1);
double pEA=iRSI("EURAUD",0,MyRSI,Price_Type,1);
double pGA=iRSI("GBPAUD",0,MyRSI,Price_Type,1);
double pPairs = iRSI(Symbol(),0,MyRSI,Price_Type,1);
double pUSD = (pEU+pGU+pUCF+pAU+pUCD+pUJ)/6;
double pEUR = (pEU+pEG+pECF+pEA+pECD+pEJ)/6;
double pGBP = (pGU+pEG+pGCF+pGA+pGCD+pGJ)/6;
double pAUD = (pEA+pGA+pACF+pAU+pACD+pAJ)/6;
double pCAD = (pECD+pGCD+pCDCF+pACD+pUCD+pCDJ)/6;
double pCHF = (pECF+pGCF+pUCF+pACF+pCDCF+pCFJ)/6;
double pJPY = (pEJ+pGJ+pCFJ+pAJ+pCDJ+pUJ)/6;
//*****************************************************************************************************
string LvEUR = "", LvGBP = "", LvAUD = "", LvCHF = "",
LvCAD = "", LvJPY = "", LvUSD = "", LvPairs = "";
color level_clr1,level_clr2,level_clr3,level_clr4,
level_clr5,level_clr6,level_clr7,level_clr8;
if ((cEUR > MyRSI_MID) && (cEUR <= MyRSI_OB)) { LvEUR = "n"; level_clr1 = MediumSeaGreen; }
if ((cEUR < MyRSI_MID) && (cEUR >= MyRSI_OS)) { LvEUR = "n"; level_clr1 = DarkOrange; }
if (cEUR == MyRSI_MID) { LvEUR = "n"; level_clr1 = Gray; }
if ((cEUR > MyRSI_OB) && (cEUR <= 100)) { LvEUR = "n"; level_clr1 = Green; }
if ((cEUR < MyRSI_OS) && (cEUR >= 0)) { LvEUR = "n"; level_clr1 = Red; }
if ((cGBP > MyRSI_MID) && (cGBP <= MyRSI_OB)) { LvGBP = "n"; level_clr2 = MediumSeaGreen; }
if ((cGBP < MyRSI_MID) && (cGBP >= MyRSI_OS)) { LvGBP = "n"; level_clr2 = DarkOrange; }
if (cGBP == MyRSI_MID) { LvGBP = "n"; level_clr2 = Gray; }
if ((cGBP > MyRSI_OB) && (cGBP <= 100)) { LvGBP = "n"; level_clr2 = Green; }
if ((cGBP < MyRSI_OS) && (cGBP >= 0)) { LvGBP = "n"; level_clr2 = Red; }
if ((cAUD > MyRSI_MID) && (cAUD <= MyRSI_OB)) { LvAUD = "n"; level_clr3 = MediumSeaGreen; }
if ((cAUD < MyRSI_MID) && (cAUD >= MyRSI_OS)) { LvAUD = "n"; level_clr3 = DarkOrange; }
if (cAUD == MyRSI_MID) { LvAUD = "n"; level_clr3 = Gray; }
if ((cAUD > MyRSI_OB) && (cAUD <= 100)) { LvAUD = "n"; level_clr3 = Green; }
if ((cAUD < MyRSI_OS) && (cAUD >= 0)) { LvAUD = "n"; level_clr3 = Red; }
if ((cCHF > MyRSI_MID) && (cCHF <= MyRSI_OB)) { LvCHF = "n"; level_clr4 = MediumSeaGreen; }
if ((cCHF < MyRSI_MID) && (cCHF >= MyRSI_OS)) { LvCHF = "n"; level_clr4 = DarkOrange; }
if (cCHF == MyRSI_MID) { LvCHF = "n"; level_clr4 = Gray; }
if ((cCHF > MyRSI_OB) && (cCHF <= 100)) { LvCHF = "n"; level_clr4 = Green; }
if ((cCHF < MyRSI_OS) && (cCHF >= 0)) { LvCHF = "n"; level_clr4 = Red; }
if ((cCAD > MyRSI_MID) && (cCAD <= MyRSI_OB)) { LvCAD = "n"; level_clr5 = MediumSeaGreen; }
if ((cCAD < MyRSI_MID) && (cCAD >= MyRSI_OS)) { LvCAD = "n"; level_clr5 = DarkOrange; }
if (cCAD == MyRSI_MID) { LvCAD = "n"; level_clr5 = Gray; }
if ((cCAD > MyRSI_OB) && (cCAD <= 100)) { LvCAD = "n"; level_clr5 = Green; }
if ((cCAD < MyRSI_OS) && (cCAD >= 0)) { LvCAD = "n"; level_clr5 = Red; }
if ((cJPY > MyRSI_MID) && (cJPY <= MyRSI_OB)) { LvJPY = "n"; level_clr6 = MediumSeaGreen; }
if ((cJPY < MyRSI_MID) && (cJPY >= MyRSI_OS)) { LvJPY = "n"; level_clr6 = DarkOrange; }
if (cJPY == MyRSI_MID) { LvJPY = "n"; level_clr6 = Gray; }
if ((cJPY > MyRSI_OB) && (cJPY <= 100)) { LvJPY = "n"; level_clr6 = Green; }
if ((cJPY < MyRSI_OS) && (cJPY >= 0)) { LvJPY = "n"; level_clr6 = Red; }
if ((cUSD > MyRSI_MID) && (cUSD <= MyRSI_OB)) { LvUSD = "n"; level_clr7 = MediumSeaGreen; }
if ((cUSD < MyRSI_MID) && (cUSD >= MyRSI_OS)) { LvUSD = "n"; level_clr7 = DarkOrange; }
if (cUSD == MyRSI_MID) { LvUSD = "n"; level_clr7 = Gray; }
if ((cUSD > MyRSI_OB) && (cUSD <= 100)) { LvUSD = "n"; level_clr7 = Green; }
if ((cUSD < MyRSI_OS) && (cUSD >= 0)) { LvUSD = "n"; level_clr7 = Red; }
if ((cPairs > MyRSI_MID) && (cPairs <= MyRSI_OB)) { LvPairs = "n"; level_clr8 = MediumSeaGreen; }
if ((cPairs < MyRSI_MID) && (cPairs >= MyRSI_OS)) { LvPairs = "n"; level_clr8 = DarkOrange; }
if (cPairs == MyRSI_MID) { LvPairs = "n"; level_clr8 = Gray; }
if ((cPairs > MyRSI_OB) && (cPairs <= 100)) { LvPairs = "n"; level_clr8 = Green; }
if ((cPairs < MyRSI_OS) && (cPairs >= 0)) { LvPairs = "n"; level_clr8 = Red; }
//*****************************************************************************************************
string udEUR = "", udGBP = "", udAUD = "", udCHF = "",
udCAD = "", udJPY = "", udUSD = "", udPairs = "";
color updn_clr1, updn_clr2, updn_clr3, updn_clr4,
updn_clr5, updn_clr6, updn_clr7, updn_clr8;
if (cEUR > pEUR) { udEUR = "5"; updn_clr1 = Lime; }
if (cEUR < pEUR) { udEUR = "6"; updn_clr1 = Yellow; }
if (cEUR == pEUR) { udEUR = "="; updn_clr1 = Gray; }
if (cGBP > pGBP) { udGBP = "5"; updn_clr2 = Lime; }
if (cGBP < pGBP) { udGBP = "6"; updn_clr2 = Yellow; }
if (cGBP == pGBP) { udGBP = "="; updn_clr2 = Gray; }
if (cAUD > pAUD) { udAUD = "5"; updn_clr3 = Lime; }
if (cAUD < pAUD) { udAUD = "6"; updn_clr3 = Yellow; }
if (cAUD == pAUD) { udAUD = "="; updn_clr3 = Gray; }
if (cCHF > pCHF) { udCHF = "5"; updn_clr4 = Lime; }
if (cCHF < pCHF) { udCHF = "6"; updn_clr4 = Yellow; }
if (cCHF == pCHF) { udCHF = "="; updn_clr4 = Gray; }
if (cCAD > pCAD) { udCAD = "5"; updn_clr5 = Lime; }
if (cCAD < pCAD) { udCAD = "6"; updn_clr5 = Yellow; }
if (cCAD == pCAD) { udCAD = "="; updn_clr5 = Gray; }
if (cJPY > pJPY) { udJPY = "5"; updn_clr6 = Lime; }
if (cJPY < pJPY) { udJPY = "6"; updn_clr6 = Yellow; }
if (cJPY == pJPY) { udJPY = "="; updn_clr6 = Gray; }
if (cUSD > pUSD) { udUSD = "5"; updn_clr7 = Lime; }
if (cUSD < pUSD) { udUSD = "6"; updn_clr7 = Yellow; }
if (cUSD == pUSD) { udUSD = "="; updn_clr7 = Gray; }
if (cPairs > pPairs) { udPairs = "5"; updn_clr8 = Lime; }
if (cPairs < pPairs) { udPairs = "6"; updn_clr8 = Yellow; }
if (cPairs == pPairs) { udPairs = "="; updn_clr8 = Gray; }
//**********************************************************************************************
string s13EUR = "", s13GBP = "", s13AUD = "", s13CHF = "",
s13CAD = "", s13JPY = "", s13USD = "", s13Pairs = "";
color trend_clr1, trend_clr2, trend_clr3, trend_clr4,
trend_clr5, trend_clr6, trend_clr7, trend_clr8;
if (cEUR < cUSD) { s13EUR = "g"; trend_clr1 = DarkOrange; }
if (cEUR > cUSD) { s13EUR = "g"; trend_clr1 = MediumSeaGreen; }
if (cEUR == cUSD) { s13EUR = "g"; trend_clr1 = White; }
if (cGBP < cUSD) { s13GBP = "g"; trend_clr2 = DarkOrange; }
if (cGBP > cUSD) { s13GBP = "g"; trend_clr2 = MediumSeaGreen; }
if (cGBP == cUSD) { s13GBP = "g"; trend_clr2 = White; }
if (cAUD < cUSD) { s13AUD = "g"; trend_clr3 = DarkOrange; }
if (cAUD > cUSD) { s13AUD = "g"; trend_clr3 = MediumSeaGreen; }
if (cAUD == cUSD) { s13AUD = "g"; trend_clr3 = White; }
if (cCHF < cUSD) { s13CHF = "g"; trend_clr4 = DarkOrange; }
if (cCHF > cUSD) { s13CHF = "g"; trend_clr4 = MediumSeaGreen; }
if (cCHF == cUSD) { s13CHF = "g"; trend_clr4 = White; }
if (cCAD < cUSD) { s13CAD = "g"; trend_clr5 = DarkOrange; }
if (cCAD > cUSD) { s13CAD = "g"; trend_clr5 = MediumSeaGreen; }
if (cCAD == cUSD) { s13CAD = "g"; trend_clr5 = White; }
if (cJPY < cUSD) { s13JPY = "g"; trend_clr6 = DarkOrange; }
if (cJPY > cUSD) { s13JPY = "g"; trend_clr6 = MediumSeaGreen; }
if (cJPY == cUSD) { s13JPY = "g"; trend_clr6 = White; }
if (cUSD < cUSD) { s13USD = "g"; trend_clr7 = White; }
if (cUSD > cUSD) { s13USD = "g"; trend_clr7 = White; }
if (cUSD == cUSD) { s13USD = "g"; trend_clr7 = White; }
if (cPairs < cUSD) { s13Pairs = "g"; trend_clr8 = DarkOrange; }
if (cPairs > cUSD) { s13Pairs = "g"; trend_clr8 = MediumSeaGreen; }
if (cPairs == cUSD) { s13Pairs = "g"; trend_clr8 = White; }
//**********************************************************************************************
string cPrice="", Teks="", Teks_Menit, Teks_Detik;
double d_A, d_B;
//Time for Next Candle
d_B = (Time[4]-Time[5])-MathMod(CurTime(),Time[4]-Time[5]);
d_A = d_B/60;
d_B = (d_A-MathFloor(d_A))*60;
d_A = MathFloor(d_A);
Teks_Menit = DoubleToStr(d_A,0);
Teks_Detik = DoubleToStr(d_B,0);
Teks=Teks_Menit+":"+Teks_Detik;
//Price
double Price1 = iMA(Symbol(),0,1,0,MODE_EMA,PRICE_CLOSE,0);
cPrice=DoubleToStr(Price1,Digits);
string HI="",LO="",SPREAD="",PIPS="",HILO="",Pips="",D1OPEN="",HiLo_Yest="",HLY="";
color clr_pip,clr_HLY;
double Open_Today = iOpen(NULL,1440,0);
double CLOSE = iClose(NULL,1440,0);
double SPRD = (Ask - Bid)/Point;
double High_Today = iHigh(NULL,1440,0);
double Low_Today = iLow(NULL,1440,0);
D1OPEN = (DoubleToStr(Open_Today,Digits));
PIPS = DoubleToStr((CLOSE-Open_Today)/Point,0);
SPREAD = (DoubleToStr(SPRD,Digits-5));
HILO = DoubleToStr((High_Today-Low_Today)/Point,0);
HI = (DoubleToStr(High_Today,Digits));
LO = (DoubleToStr(Low_Today,Digits));
double Open_Yest = iOpen(NULL,1440,1);
double Close_Yest = iClose(NULL,1440,1);
HiLo_Yest = DoubleToStr((iHigh(NULL,PERIOD_D1,1)-iLow(NULL,PERIOD_D1,1))/Point,0);
if (Price1 > Open_Today) {Pips= "-";clr_pip = MediumSeaGreen; }
if (Price1 < Open_Today) {Pips= "-";clr_pip = DarkOrange; }
if (Price1 == Open_Today) {Pips= "-";clr_pip = Gray; }
if (Close_Yest > Open_Yest) {HLY= "-";clr_HLY = MediumSeaGreen; }
if (Close_Yest < Open_Yest) {HLY= "-";clr_HLY = DarkOrange; }
if (Close_Yest == Open_Yest) {HLY= "-";clr_HLY = Gray; }
//**********************************************************************************************
ObjectCreate("USD2a1", OBJ_LABEL, WindowFind("+JoGET_RSI+"), 0, 0);
ObjectSet("USD2a1", OBJPROP_CORNER, 1);
ObjectSetText("USD2a1", "n", 17, "Webdings",White);
ObjectSet("USD2a1", OBJPROP_XDISTANCE, 73);
ObjectSet("USD2a1", OBJPROP_YDISTANCE, 43);
ObjectCreate("USD2b1", OBJ_LABEL, WindowFind("+JoGET_RSI+"), 0, 0);
ObjectSet("USD2b1", OBJPROP_CORNER, 1);
ObjectSetText("USD2b1", LvUSD, 14, "Webdings",level_clr7);
ObjectSet("USD2b1", OBJPROP_XDISTANCE, 75);
ObjectSet("USD2b1", OBJPROP_YDISTANCE, 45);
ObjectCreate("USD3a1", OBJ_LABEL, WindowFind("+JoGET_RSI+"), 0, 0);
ObjectSet("USD3a1", OBJPROP_CORNER, 1);
ObjectSetText("USD3a1", udUSD, 17, "Webdings",updn_clr7);
ObjectSet("USD3a1", OBJPROP_XDISTANCE, 72);
ObjectSet("USD3a1", OBJPROP_YDISTANCE, 42);
ObjectCreate("USD2ab", OBJ_LABEL, WindowFind("+JoGET_RSI+"), 0, 0);
ObjectSet("USD2ab", OBJPROP_CORNER, 1);
ObjectSetText("USD2ab", "n", 17, "Webdings",White);
ObjectSet("USD2ab", OBJPROP_XDISTANCE, 27);
ObjectSet("USD2ab", OBJPROP_YDISTANCE, 43);
ObjectCreate("USD2bb", OBJ_LABEL, WindowFind("+JoGET_RSI+"), 0, 0);
ObjectSet("USD2bb", OBJPROP_CORNER, 1);
ObjectSetText("USD2bb", LvUSD, 14, "Webdings",level_clr7);
ObjectSet("USD2bb", OBJPROP_XDISTANCE, 29);
ObjectSet("USD2bb", OBJPROP_YDISTANCE, 45);
ObjectCreate("USD3ab", OBJ_LABEL, WindowFind("+JoGET_RSI+"), 0, 0);
ObjectSet("USD3ab", OBJPROP_CORNER, 1);
ObjectSetText("USD3ab", udUSD, 17, "Webdings",updn_clr7);
ObjectSet("USD3ab", OBJPROP_XDISTANCE, 26);
ObjectSet("USD3ab", OBJPROP_YDISTANCE, 42);
ObjectCreate("EUR1", OBJ_LABEL, WindowFind("+JoGET_RSI+"), 0, 0);
ObjectSet("EUR1", OBJPROP_CORNER, 1);
ObjectSetText("EUR1", "EUR", 9, "Arial Bold", EUR_color);
ObjectSet("EUR1", OBJPROP_XDISTANCE, 4);
ObjectSet("EUR1", OBJPROP_YDISTANCE, 15);
ObjectCreate("EUR2", OBJ_LABEL, WindowFind("+JoGET_RSI+"), 0, 0);
ObjectSet("EUR2", OBJPROP_CORNER, 1);
ObjectSetText("EUR2", LvEUR, 14, "Webdings",level_clr1);
ObjectSet("EUR2", OBJPROP_XDISTANCE, 8);
ObjectSet("EUR2", OBJPROP_YDISTANCE, 28);
ObjectCreate("EUR3", OBJ_LABEL, WindowFind("+JoGET_RSI+"), 0, 0);
ObjectSet("EUR3", OBJPROP_CORNER, 1);
ObjectSetText("EUR3", udEUR, 17, "Webdings",updn_clr1);
ObjectSet("EUR3", OBJPROP_XDISTANCE, 5);
ObjectSet("EUR3", OBJPROP_YDISTANCE, 25);
ObjectCreate("EUR4", OBJ_LABEL, WindowFind("+JoGET_RSI+"), 0, 0);
ObjectSet("EUR4", OBJPROP_CORNER, 1);
ObjectSetText("EUR4", s13EUR, 5, "Webdings",trend_clr1);
ObjectSet("EUR4", OBJPROP_XDISTANCE, 31);
ObjectSet("EUR4", OBJPROP_YDISTANCE, 20);
ObjectCreate("GBP1", OBJ_LABEL, WindowFind("+JoGET_RSI+"), 0, 0);
ObjectSet("GBP1", OBJPROP_CORNER, 1);
ObjectSetText("GBP1", "GBP", 9, "Arial Bold", GBP_color);
ObjectSet("GBP1", OBJPROP_XDISTANCE, 48);
ObjectSet("GBP1", OBJPROP_YDISTANCE, 15);
ObjectCreate("GBP2", OBJ_LABEL, WindowFind("+JoGET_RSI+"), 0, 0);
ObjectSet("GBP2", OBJPROP_CORNER, 1);
ObjectSetText("GBP2", LvGBP, 14, "Webdings",level_clr2);
ObjectSet("GBP2", OBJPROP_XDISTANCE, 52);
ObjectSet("GBP2", OBJPROP_YDISTANCE, 28);
ObjectCreate("GBP3", OBJ_LABEL, WindowFind("+JoGET_RSI+"), 0, 0);
ObjectSet("GBP3", OBJPROP_CORNER, 1);
ObjectSetText("GBP3", udGBP, 17, "Webdings",updn_clr2);
ObjectSet("GBP3", OBJPROP_XDISTANCE, 49);
ObjectSet("GBP3", OBJPROP_YDISTANCE, 25);
ObjectCreate("GBP4", OBJ_LABEL, WindowFind("+JoGET_RSI+"), 0, 0);
ObjectSet("GBP4", OBJPROP_CORNER, 1);
ObjectSetText("GBP4", s13GBP, 5, "Webdings",trend_clr2);
ObjectSet("GBP4", OBJPROP_XDISTANCE, 75);
ObjectSet("GBP4", OBJPROP_YDISTANCE, 20);
ObjectCreate("AUD1", OBJ_LABEL, WindowFind("+JoGET_RSI+"), 0, 0);
ObjectSet("AUD1", OBJPROP_CORNER, 1);
ObjectSetText("AUD1", "AUD", 9, "Arial Bold", AUD_color);
ObjectSet("AUD1", OBJPROP_XDISTANCE, 92);
ObjectSet("AUD1", OBJPROP_YDISTANCE, 15);
ObjectCreate("AUD2", OBJ_LABEL, WindowFind("+JoGET_RSI+"), 0, 0);
ObjectSet("AUD2", OBJPROP_CORNER, 1);
ObjectSetText("AUD2", LvAUD, 14, "Webdings",level_clr3);
ObjectSet("AUD2", OBJPROP_XDISTANCE, 96);
ObjectSet("AUD2", OBJPROP_YDISTANCE, 28);
ObjectCreate("AUD3", OBJ_LABEL, WindowFind("+JoGET_RSI+"), 0, 0);
ObjectSet("AUD3", OBJPROP_CORNER, 1);
ObjectSetText("AUD3", udAUD, 17, "Webdings",updn_clr3);
ObjectSet("AUD3", OBJPROP_XDISTANCE, 93);
ObjectSet("AUD3", OBJPROP_YDISTANCE, 25);
ObjectCreate("AUD4", OBJ_LABEL, WindowFind("+JoGET_RSI+"), 0, 0);
ObjectSet("AUD4", OBJPROP_CORNER, 1);
ObjectSetText("AUD4", s13AUD, 5, "Webdings",trend_clr3);
ObjectSet("AUD4", OBJPROP_XDISTANCE, 119);
ObjectSet("AUD4", OBJPROP_YDISTANCE, 20);
ObjectCreate("CAD1", OBJ_LABEL, WindowFind("+JoGET_RSI+"), 0, 0);
ObjectSet("CAD1", OBJPROP_CORNER, 1);
ObjectSetText("CAD1", "CAD", 9, "Arial Bold", CAD_color);
ObjectSet("CAD1", OBJPROP_XDISTANCE, 92);
ObjectSet("CAD1", OBJPROP_YDISTANCE, 82);
ObjectCreate("CAD2", OBJ_LABEL, WindowFind("+JoGET_RSI+"), 0, 0);
ObjectSet("CAD2", OBJPROP_CORNER, 1);
ObjectSetText("CAD2", LvCAD, 14, "Webdings",level_clr5);
ObjectSet("CAD2", OBJPROP_XDISTANCE, 96);
ObjectSet("CAD2", OBJPROP_YDISTANCE, 62);
ObjectCreate("CAD3", OBJ_LABEL, WindowFind("+JoGET_RSI+"), 0, 0);
ObjectSet("CAD3", OBJPROP_CORNER, 1);
ObjectSetText("CAD3", udCAD, 17, "Webdings",updn_clr5);
ObjectSet("CAD3", OBJPROP_XDISTANCE, 93);
ObjectSet("CAD3", OBJPROP_YDISTANCE, 59);
ObjectCreate("CAD4", OBJ_LABEL, WindowFind("+JoGET_RSI+"), 0, 0);
ObjectSet("CAD4", OBJPROP_CORNER, 1);
ObjectSetText("CAD4", s13CAD, 5, "Webdings",trend_clr5);
ObjectSet("CAD4", OBJPROP_XDISTANCE, 119);
ObjectSet("CAD4", OBJPROP_YDISTANCE, 87);
ObjectCreate("CHF1", OBJ_LABEL, WindowFind("+JoGET_RSI+"), 0, 0);
ObjectSet("CHF1", OBJPROP_CORNER, 1);
ObjectSetText("CHF1", "CHF", 9, "Arial Bold", CHF_color);
ObjectSet("CHF1", OBJPROP_XDISTANCE, 48);
ObjectSet("CHF1", OBJPROP_YDISTANCE, 82);
ObjectCreate("CHF2", OBJ_LABEL, WindowFind("+JoGET_RSI+"), 0, 0);
ObjectSet("CHF2", OBJPROP_CORNER, 1);
ObjectSetText("CHF2", LvCHF, 14, "Webdings",level_clr4);
ObjectSet("CHF2", OBJPROP_XDISTANCE, 52);
ObjectSet("CHF2", OBJPROP_YDISTANCE, 62);
ObjectCreate("CHF3", OBJ_LABEL, WindowFind("+JoGET_RSI+"), 0, 0);
ObjectSet("CHF3", OBJPROP_CORNER, 1);
ObjectSetText("CHF3", udCHF, 17, "Webdings",updn_clr4);
ObjectSet("CHF3", OBJPROP_XDISTANCE, 49);
ObjectSet("CHF3", OBJPROP_YDISTANCE, 59);
ObjectCreate("CHF4", OBJ_LABEL, WindowFind("+JoGET_RSI+"), 0, 0);
ObjectSet("CHF4", OBJPROP_CORNER, 1);
ObjectSetText("CHF4", s13CHF, 5, "Webdings",trend_clr4);
ObjectSet("CHF4", OBJPROP_XDISTANCE, 75);
ObjectSet("CHF4", OBJPROP_YDISTANCE, 87);
ObjectCreate("JPY1", OBJ_LABEL, WindowFind("+JoGET_RSI+"), 0, 0);
ObjectSet("JPY1", OBJPROP_CORNER, 1);
ObjectSetText("JPY1", "JPY", 9, "Arial Bold", JPY_color);
ObjectSet("JPY1", OBJPROP_XDISTANCE, 4);
ObjectSet("JPY1", OBJPROP_YDISTANCE, 82);
ObjectCreate("JPY2", OBJ_LABEL, WindowFind("+JoGET_RSI+"), 0, 0);
ObjectSet("JPY2", OBJPROP_CORNER, 1);
ObjectSetText("JPY2", LvJPY, 14, "Webdings",level_clr6);
ObjectSet("JPY2", OBJPROP_XDISTANCE, 8);
ObjectSet("JPY2", OBJPROP_YDISTANCE, 62);
ObjectCreate("JPY3", OBJ_LABEL, WindowFind("+JoGET_RSI+"), 0, 0);
ObjectSet("JPY3", OBJPROP_CORNER, 1);
ObjectSetText("JPY3", udJPY, 17, "Webdings",updn_clr6);
ObjectSet("JPY3", OBJPROP_XDISTANCE, 5);
ObjectSet("JPY3", OBJPROP_YDISTANCE, 59);
ObjectCreate("JPY4", OBJ_LABEL, WindowFind("+JoGET_RSI+"), 0, 0);
ObjectSet("JPY4", OBJPROP_CORNER, 1);
ObjectSetText("JPY4", s13JPY, 5, "Webdings",trend_clr6);
ObjectSet("JPY4", OBJPROP_XDISTANCE, 31);
ObjectSet("JPY4", OBJPROP_YDISTANCE, 87);
ObjectCreate("USD1a", OBJ_LABEL, WindowFind("+JoGET_RSI+"), 0, 0);
ObjectSet("USD1a", OBJPROP_CORNER, 1);
ObjectSetText("USD1a", "USD", 9, "Arial Bold", USD_color);
ObjectSet("USD1a", OBJPROP_XDISTANCE, 48);
ObjectSet("USD1a", OBJPROP_YDISTANCE, 49);
ObjectCreate("Pairs1a", OBJ_LABEL, WindowFind("+JoGET_RSI+"), 0, 0);
ObjectSet("Pairs1a", OBJPROP_CORNER, 1);
ObjectSetText("Pairs1a", Symbol(), 12, "Arial Bold", Pairs_color);
ObjectSet("Pairs1a", OBJPROP_XDISTANCE, 48);
ObjectSet("Pairs1a", OBJPROP_YDISTANCE, 107);
ObjectCreate("Pairs2a", OBJ_LABEL, WindowFind("+JoGET_RSI+"), 0, 0);
ObjectSet("Pairs2a", OBJPROP_CORNER, 1);
ObjectSetText("Pairs2a", LvPairs, 14, "Webdings",level_clr8);
ObjectSet("Pairs2a", OBJPROP_XDISTANCE, 8);
ObjectSet("Pairs2a", OBJPROP_YDISTANCE, 105);
ObjectCreate("Pairs3a", OBJ_LABEL, WindowFind("+JoGET_RSI+"), 0, 0);
ObjectSet("Pairs3a", OBJPROP_CORNER, 1);
ObjectSetText("Pairs3a", udPairs, 17, "Webdings",updn_clr8);
ObjectSet("Pairs3a", OBJPROP_XDISTANCE, 5);
ObjectSet("Pairs3a", OBJPROP_YDISTANCE, 102);
ObjectCreate("Pairs4a", OBJ_LABEL, WindowFind("+JoGET_RSI+"), 0, 0);
ObjectSet("Pairs4a", OBJPROP_CORNER, 1);
ObjectSetText("Pairs4a", s13Pairs, 5, "Webdings",trend_clr8);
ObjectSet("Pairs4a", OBJPROP_XDISTANCE, 31);
ObjectSet("Pairs4a", OBJPROP_YDISTANCE, 114);
ObjectCreate("Pric3", OBJ_LABEL, WindowFind("+JoGET_RSI+"), 0, 0);
ObjectSetText("Pric3",""+cPrice+"", 23, "Arial Narrow", trend_clr8);
ObjectSet("Pric3", OBJPROP_CORNER, 1);
ObjectSet("Pric3", OBJPROP_XDISTANCE, 9);
ObjectSet("Pric3", OBJPROP_YDISTANCE, 127);
ObjectCreate("HiLoYest", OBJ_LABEL, WindowFind("+JoGET_RSI+"), 0, 0);
ObjectSetText("HiLoYest",""+HiLo_Yest+"", 9, "Arial Bold", clr_HLY);
ObjectSet("HiLoYest", OBJPROP_CORNER, 1);
ObjectSet("HiLoYest", OBJPROP_XDISTANCE, 92);
ObjectSet("HiLoYest", OBJPROP_YDISTANCE, 142);
ObjectCreate("PTO", OBJ_LABEL, WindowFind("+JoGET_RSI+"), 0, 0);
ObjectSetText("PTO",""+PIPS+"", 9, "Arial Bold", clr_pip);
ObjectSet("PTO", OBJPROP_CORNER, 1);
ObjectSet("PTO", OBJPROP_XDISTANCE, 40);
ObjectSet("PTO", OBJPROP_YDISTANCE, 157);
ObjectCreate("HiLow", OBJ_LABEL, WindowFind("+JoGET_RSI+"), 0, 0);
ObjectSetText("HiLow",""+HILO+"", 9, "Arial Bold", USD_color);
ObjectSet("HiLow", OBJPROP_CORNER, 1);
ObjectSet("HiLow", OBJPROP_XDISTANCE, 9);
ObjectSet("HiLow", OBJPROP_YDISTANCE, 157);
ObjectCreate("NxCandle", OBJ_LABEL, WindowFind("+JoGET_RSI+"), 0, 0);
ObjectSet("NxCandle", OBJPROP_CORNER, 1);
ObjectSetText("NxCandle", Teks_Menit+":"+Teks_Detik, 9, "Arial Bold", GBP_color);
ObjectSet("NxCandle", OBJPROP_XDISTANCE, 70);
ObjectSet("NxCandle", OBJPROP_YDISTANCE, 157);
ObjectCreate("Spr3ad", OBJ_LABEL, WindowFind("+JoGET_RSI+"), 0, 0);
ObjectSetText("Spr3ad",""+SPREAD+"", 9, "Arial Bold", CAD_color);
ObjectSet("Spr3ad", OBJPROP_CORNER, 1);
ObjectSet("Spr3ad", OBJPROP_XDISTANCE, 92);
ObjectSet("Spr3ad", OBJPROP_YDISTANCE, 127);
}
//*****************************************************************************************************
//----
return(0);
}
//+------------------------------------------------------------------+