//+------------------------------------------------------------------+ //| ProjectName | //| Copyright 2018, CompanyName | //| http://www.companyname.net | //+------------------------------------------------------------------+ #include <stdlib.mqh> #include <stderror.mqh> #include <..\Experts\Includes\Kob_4.mq4> //+------------------------------------------------------------------+ //| Configuration | //+------------------------------------------------------------------+ input int BGColours = 1; // 20" for no background colours input color ShortColour = clrMaroon; input color LongColour = clrNavy; input color HedgeColour = clrFireBrick; input color SignalColour = clrSteelBlue; input color NoColour = clrBlack; extern bool EnableAlert = true; extern bool EnableNotification = true; double CloseOld; // Used to identify a new bar in the code. int Longposition, Shortposition; // Tells if the instrument is owned. int TradeUp, TradeDown; // Long eller Short? string Baggrund; int i; int Dato, DatoOld, Dagsluk; int Signal; //+------------------------------------------------------------------+ //| Tekst on the Screen | //+------------------------------------------------------------------+ void TekstScreen(string Tekst) { int Nummer = rand(); string Name = (Nummer); } //+------------------------------------------------------------------+ //| Init | //+------------------------------------------------------------------+ int OnInit() { return(INIT_SUCCEEDED); } //+------------------------------------------------------------------+ //| Start | //+------------------------------------------------------------------+ int start() { long TF = ChartPeriod(0); // ******************************************************************************************************************************* // From here the code is visited only at every new bar. if(Close[1] != CloseOld)// Derved kører scriptet kun én gang per brick { CloseOld = Close[1]; //En ny bar forekommer. //+------------------------------------------------------------------+ //| Data | //+------------------------------------------------------------------+ double SMA5 = iMA(NULL, 0, 5, 0, MODE_SMA, PRICE_CLOSE, 1); double SMA5OLD = iMA(NULL, 0, 5, 0, MODE_SMA, PRICE_CLOSE, 2); double EMA50 = iMA(NULL, 0, 50, 0, MODE_EMA, PRICE_CLOSE, 1); double EMA50OLD = iMA(NULL, 0, 50, 0, MODE_EMA, PRICE_CLOSE, 2); double RSIValue = MathCeil(iRSI(NULL, 0, 14, 0, 0)); double BollingerUP = iBands(NULL,0,20,2,0,PRICE_CLOSE,MODE_UPPER,0); double BollingerDown = iBands(NULL,0,20,2,0,PRICE_CLOSE,MODE_LOWER,0); double Bollinger20 = iBands(NULL,0,20,2,0,PRICE_CLOSE,MODE_MAIN,0); //+------------------------------------------------------------------+ //| Signals | //+------------------------------------------------------------------+ int i = 5; int DownSignalLoaded = 0; int UpSignalLoaded = 0; int ClearCross = 0; Signal = 0; while(i >= 0) { if(Close[i] >= iBands(NULL,0,20,2,0,PRICE_CLOSE,MODE_UPPER,i)) DownSignalLoaded = 1; if(Close[i] <= iBands(NULL,0,20,2,0,PRICE_CLOSE,MODE_LOWER,i)) UpSignalLoaded = 1; i=i-1; } string Par = "string_Symbol"; if(ClearCross == 0) { if(Close[1] <= EMA50 && High[2] >= EMA50OLD && Low[1] > BollingerDown && DownSignalLoaded == 1) { Signal = -1; if(EnableAlert == true) Alert(Symbol(), " BMA Signal Bar cross down EMA50"); if(EnableNotification == true) SendNotification("BMA Short Signal. "+ Symbol()+ " TimeFrame "+ TF); } if(Close[1] >= EMA50 && Low[2] <= EMA50OLD && High[1] < BollingerUP && UpSignalLoaded == 1) { Signal = 1; if(EnableAlert == true) Alert(Symbol(), " BMA Signal Bar cross up EMA50"); if(EnableNotification == true) SendNotification("BMA Long Signal. "+ Symbol()+ " TimeFrame "+ TF); } } } //if(Close[1] != CloseOld) ******************************************************************************************************************************************** //+------------------------------------------------------------------+ //| Background colours | //+------------------------------------------------------------------+ Longposition = 0; Shortposition = 0; for(i = OrdersTotal() - 1; i >= 0; i--) { OrderSelect(i, SELECT_BY_POS, MODE_TRADES); if(OrderSymbol() == Symbol()) { //Ejes Long. if(OrderType() == OP_BUY) { Longposition = Longposition + 1; } //Ejes Short. if(OrderType() == OP_SELL) { Shortposition = Shortposition + 1; } } } if(BGColours == 1) { if(Dagsluk == 0) { if(Longposition == 0 && Shortposition == 0) ChartSetInteger(ChartID(), CHART_COLOR_BACKGROUND, NoColour); // Not used. if(Longposition >= 1 && Shortposition == 0) ChartSetInteger(ChartID(), CHART_COLOR_BACKGROUND, LongColour); // Owned Long. if(Longposition == 0 && Shortposition >= 1) ChartSetInteger(ChartID(), CHART_COLOR_BACKGROUND, ShortColour); // Owned Short. if(Longposition == 1 && Shortposition == 1) ChartSetInteger(ChartID(), CHART_COLOR_BACKGROUND, HedgeColour);// Owned in both directions. if(Signal == 1 || Signal == -1) ChartSetInteger(ChartID(), CHART_COLOR_BACKGROUND, SignalColour);// Owned in both directions. } if(Dagsluk == 1) ChartSetInteger(ChartID(), CHART_COLOR_BACKGROUND, clrCornflowerBlue); } //+------------------------------------------------------------------+ //| Write split on screen | //+------------------------------------------------------------------+ string Split, Split2; Split = "Splitt"; Split2 = "Splitt2"; double SplitValue = NormalizeDouble((Ask - Bid) / Point / 10, 2); ObjectDelete("Splitt"); ObjectCreate("Splitt", OBJ_LABEL, 0, 0, 0); ObjectSetText("Splitt","Split", 12, "Verdana", White); ObjectSet("Splitt", OBJPROP_CORNER, CORNER_RIGHT_UPPER); ObjectSet("Splitt", OBJPROP_XDISTANCE,100); ObjectSet("Splitt", OBJPROP_YDISTANCE,20); ObjectDelete("Splitt2"); ObjectCreate("Splitt2", OBJ_LABEL, 0, 0, 0); ObjectSetText("Splitt2",SplitValue,12, "Verdana", Yellow); ObjectSet("Splitt2", OBJPROP_CORNER, CORNER_RIGHT_UPPER); ObjectSet("Splitt2", OBJPROP_XDISTANCE,25); ObjectSet("Splitt2", OBJPROP_YDISTANCE,20); } //+------------------------------------------------------------------+