//+------------------------------------------------------------------+
//| Sidus Lambat.mq4 |
//| Copyright © 2012, MetaQuotes Software Corp. |
//| http://www.metaquotes.net |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2012, MetaQuotes Software Corp."
#property link "http://www.metaquotes.net"
//+------------------------------------------------------------------+
//| expert initialization function |
//+------------------------------------------------------------------+
int init()
{
//----
//----
return(0);
}
//+------------------------------------------------------------------+
//| expert deinitialization function |
//+------------------------------------------------------------------+
int deinit()
{
//----
//----
return(0);
}
//+------------------------------------------------------------------+
//| expert start function |
//+------------------------------------------------------------------+
int start()
{
HideTestIndicators(true);
//----
string Kondisi ="";
double Tunel1801=iMA(NULL,0,18,0,MODE_EMA,PRICE_CLOSE,1);
double Tunel1802=iMA(NULL,0,18,0,MODE_EMA,PRICE_CLOSE,2);
double Tunel2801=iMA(NULL,0,28,0,MODE_EMA,PRICE_CLOSE,1);
double Tunel2802=iMA(NULL,0,28,0,MODE_EMA,PRICE_CLOSE,2);
if(Tunel1802<Tunel2802 && Tunel1801>Tunel2801)
Kondisi="Crossing Tunel Naik";
if(Tunel1802>Tunel2802 && Tunel1801<Tunel2801)
Kondisi="Crossing Tunel Turun";
double Signal501=iMA(NULL,0,5,0,MODE_LWMA,PRICE_CLOSE,1);
double Signal502=iMA(NULL,0,5,0,MODE_LWMA,PRICE_CLOSE,2);
double Signal801=iMA(NULL,0,8,0,MODE_LWMA,PRICE_CLOSE,1);
double Signal802=iMA(NULL,0,8,0,MODE_LWMA,PRICE_CLOSE,2);
if ( ( Signal502<Tunel1802 ||Signal502<Tunel2802|| Signal802<Tunel1802 ||Signal802<Tunel2802 )&&Signal501>Tunel1801 && Signal501>Tunel2801 &&Signal801>Tunel1801 && Signal801>Tunel2801 )
Kondisi ="Crossing Naik Signal dan Tunel ";
if ( ( Signal502>Tunel1802 ||Signal502>Tunel2802|| Signal802>Tunel1802 ||Signal802>Tunel2802 )&&Signal501<Tunel1801 && Signal501<Tunel2801 &&Signal801<Tunel1801 && Signal801<Tunel2801 )
Kondisi ="Crossing Turun Signal dan Tunel ";
if(Signal502<Signal802 && Signal501>Signal801 )
Kondisi="Crossing Signal Naik";
if(Signal502>Signal802 && Signal501<Signal801 )
Kondisi="Crossing Signal Turun";
string ArahTrend="";
if (Tunel1801 > Tunel2801)
ArahTrend="Naik";
if (Tunel1801 < Tunel2801)
ArahTrend="Turun";
if( ArahTrend=="Naik")
{
ObjectCreate("Arah", OBJ_LABEL, 0, 0, 0);
ObjectSet("Arah", OBJPROP_XDISTANCE, 10);
ObjectSet("Arah", OBJPROP_YDISTANCE, 50);
ObjectSetText("Arah", "Arah Tunel : ", 16,"Times New Roman", Yellow);
ObjectCreate("Trend", OBJ_LABEL, 0, 0, 0);
ObjectSet("Trend", OBJPROP_XDISTANCE, 120);
ObjectSet("Trend", OBJPROP_YDISTANCE, 50);
ObjectSetText("Trend", "Naik", 16,"Times New Roman", Green);
}
if( ArahTrend=="Turun")
{
ObjectCreate("Arah", OBJ_LABEL, 0, 0, 0);
ObjectSet("Arah", OBJPROP_XDISTANCE, 10);
ObjectSet("Arah", OBJPROP_YDISTANCE, 50);
ObjectSetText("Arah", "Arah Tunel : ", 16,"Times New Roman", Yellow);
ObjectCreate("Trend", OBJ_LABEL, 0, 0, 0);
ObjectSet("Trend", OBJPROP_XDISTANCE, 120);
ObjectSet("Trend", OBJPROP_YDISTANCE, 50);
ObjectSetText("Trend", "Turun", 16,"Times New Roman", Red);
}
if( Kondisi=="Crossing Tunel Naik")
{ ObjectCreate("label_object", OBJ_LABEL, 0, 0, 0);
ObjectSet("label_object", OBJPROP_XDISTANCE, 300);
ObjectSet("label_object", OBJPROP_YDISTANCE, 100);
ObjectSetText("label_object", "BUY ", 60,"Times New Roman", Aqua);
ObjectCreate("Alasan", OBJ_LABEL, 0, 0, 0);
ObjectSet("Alasan", OBJPROP_XDISTANCE, 10);
ObjectSet("Alasan", OBJPROP_YDISTANCE, 20);
ObjectSetText("Alasan", "Alasan : Tunel berpotongan mengarah naik ", 18,"Times New Roman", Aqua);
PlaySound("alert.wav");
}
if( Kondisi=="Crossing Tunel Turun")
{ ObjectCreate("label_object", OBJ_LABEL, 0, 0, 0);
ObjectSet("label_object", OBJPROP_XDISTANCE, 300);
ObjectSet("label_object", OBJPROP_YDISTANCE, 100);
ObjectSetText("label_object", "SELL ", 60,"Times New Roman", Red);
ObjectCreate("Alasan", OBJ_LABEL, 0, 0, 0);
ObjectSet("Alasan", OBJPROP_XDISTANCE, 10);
ObjectSet("Alasan", OBJPROP_YDISTANCE, 20);
ObjectSetText("Alasan", "Alasan :Tunel berpotongan mengarah turun", 18,"Times New Roman", Red);
PlaySound("alert.wav");
}
if( Kondisi =="Crossing Naik Signal dan Tunel ")
{ ObjectCreate("label_object", OBJ_LABEL, 0, 0, 0);
ObjectSet("label_object", OBJPROP_XDISTANCE, 300);
ObjectSet("label_object", OBJPROP_YDISTANCE, 100);
ObjectSetText("label_object", "BUY ", 60,"Times New Roman", Aqua);
ObjectCreate("Alasan", OBJ_LABEL, 0, 0, 0);
ObjectSet("Alasan", OBJPROP_XDISTANCE, 10);
ObjectSet("Alasan", OBJPROP_YDISTANCE, 20);
ObjectSetText("Alasan", "Alasan : Garis signal memotong tunel dari bawah ", 18,"Times New Roman", Aqua);
PlaySound("alert.wav");
}
if( Kondisi =="Crossing Turun Signal dan Tunel ")
{ ObjectCreate("label_object", OBJ_LABEL, 0, 0, 0);
ObjectSet("label_object", OBJPROP_XDISTANCE, 300);
ObjectSet("label_object", OBJPROP_YDISTANCE, 100);
ObjectSetText("label_object", "SELL ", 60,"Times New Roman", Red);
ObjectCreate("Alasan", OBJ_LABEL, 0, 0, 0);
ObjectSet("Alasan", OBJPROP_XDISTANCE, 10);
ObjectSet("Alasan", OBJPROP_YDISTANCE, 20);
ObjectSetText("Alasan", "Alasan : Garis signal memotong tunel dari atas ", 18,"Times New Roman", Red);
PlaySound("alert.wav");
}
if( Kondisi =="Crossing Signal Naik")
{
ObjectCreate("Alasan", OBJ_LABEL, 0, 0, 0);
ObjectSet("Alasan", OBJPROP_XDISTANCE, 10);
ObjectSet("Alasan", OBJPROP_YDISTANCE, 20);
ObjectSetText("Alasan", "Tutup posisi sell jika ada yang terbuka", 18,"Times New Roman", Aqua);
PlaySound("alert.wav");
}
if( Kondisi =="Crossing Signal Turun")
{
ObjectCreate("Alasan", OBJ_LABEL, 0, 0, 0);
ObjectSet("Alasan", OBJPROP_XDISTANCE, 10);
ObjectSet("Alasan", OBJPROP_YDISTANCE, 20);
ObjectSetText("Alasan", "Tutup posisi buy jika ada yang terbuka ", 18,"Times New Roman", Red);
PlaySound("alert.wav");
}
if(Kondisi=="")
{
ObjectDelete("Alasan");
ObjectDelete("label_object");
}
if ( 1==1)
{
ObjectCreate("Copyright", OBJ_LABEL, 0, 0, 0);
ObjectSet("Copyright", OBJPROP_XDISTANCE, 350);
ObjectSet("Copyright", OBJPROP_YDISTANCE, 1);
ObjectSetText("Copyright", " www.Siembah.com", 9,"Times New Roman", White);
}
//----
return(0);
}
//+------------------------------------------------------------------+
Tidak ada komentar:
Posting Komentar