lease:
Где то там запятая стоит которая не даёт второй кнопке работать..
extern int dec=1;
extern int TP=10;
extern double Lots=0.6;
extern int MaxOrders=10;
//--------------------------------
extern int Per=20;
//---------------------------------
extern bool MARTINGAYL=true;
extern int Mpip=1;
extern int LotExp=1;
//---------------------------------
extern int slippage=3;
extern int Magic=123;
int init()
{
return(0);
}
int deinit(){
return(0);
}
//--------------------------------------------------------------------------------+
int start()
{
if(MARTINGAYL)Martin();
//-----------------------
RefreshRates();
double ma=iMA(Symbol(),0,Per,0,3,0,0);
//-----------------------------
if(OrdersTotal()<MaxOrders)
{
//-----------------------------1---------------------------------------------------+
if(Ask < ma)
{
OrderSend(Symbol(),OP_BUY,Lots,Ask,slippage,0,Ask+TP*Point,"",Magic,0,Aqua);
}
//---------------------------
if(Bid > ma)
{
OrderSend(Symbol(),OP_SELL,Lots,Bid,slippage,0,Bid-TP*Point,"",Magic,0,Magenta);
}
//----------------------------------------------------------------------------------+
}
return(0);
}
//------------------------------------MARTINGAYL-------------------------------------------------------+
void Martin()
{
int LastTicket = 0;
int LastType =-1;
double LastOpenPr = 0;
double LastLot = 0;
//---------------------------------------
for(int i=OrdersTotal()-1;i>=0; i--)
{
if(OrderSelect(i, SELECT_BY_POS, MODE_TRADES)) // Проверяем только рыночные ордера
{ //
if(OrderSymbol()==Symbol() && OrderMagicNumber()==Magic) // Только по данному символу с заданным меджиком
{ //
if(OrderType()==OP_BUY || OrderType()==OP_SELL) // Проверку производим только по ордерам BUY/SELL
{ //
if(LastTicket<OrderTicket()) // Если тикет найденного ордера больше за предыдущий
{ // значит он последний среди уже проверенных
LastTicket = OrderTicket(); // запомним его значение
LastType = OrderType(); // запомним его тип
LastOpenPr = OrderOpenPrice(); // запомним его цену открытия
LastLot = OrderLots(); // и запомним его лот
}
}
}
}
}
//---------------------------
if(LastTicket==0) return; // Перебрали все ордера, если LastTicket=0 - ордеров
// в рынке нет - выход из функции
if(LastType!=-1 && LastOpenPr!=0 && LastLot!=0) // иначе проверим наличие полученных данных
{ //
if(LastType==OP_BUY) // если последний ордер BUY
{ //
if(Ask<=LastOpenPr-Mpip*Point) // проверим на условие дистанции
{ // если условие выполняется - установим новый ордер
double OOL = NormalizeDouble(LastLot*LotExp,dec); // зададим лот
double OOP = NormalizeDouble(Ask,Digits); // зададим цену открытия
double OTP = NormalizeDouble(Ask+TP*Point,Digits); // зададим значение ТР
if(!OrderSend(Symbol(),OP_BUY,OOL,OOP,slippage,0,OTP,"",Magic,0,Aqua))// Установка ордера не для ECN счета!!!
Print("Ошибка установки ордера BUY, код ошибки - ",GetLastError()); // если ордер не установился, узнаем по какой ошибке
}
}
//--------------------------
if(LastType==OP_SELL) // если последний ордер SELL
{ //
if(Bid>=LastOpenPr+Mpip*Point) // проверим на условие дистанции
{ // если условие выполняется - установим новый ордер
double OOL = NormalizeDouble(LastLot*LotExp,dec); // зададим лот
double OOP = NormalizeDouble(Bid,Digits); // зададим цену открытия
double OTP = NormalizeDouble(Bid-TP*Point,Digits); // зададим значение ТР
if(!OrderSend(Symbol(),OP_SELL,OOL,OOP,slippage,0,OTP,"",Magic,0,Aqua))// Установка ордера не для ECN счета!!!
Print("Ошибка установки ордера SELL, код ошибки - ",GetLastError()); // если ордер не установился, узнаем по какой ошибке
}
}
}
}
//--------------------------------------end---------------------------------------вот сам сов,ничего в вашем варианте мартина не менял,кроме того что сменил 2 на переменную dec, в числе знаков Lots,посмотрите свежим взглядом - на что ругается компилятор, правда он у меня старого билда 509,новый еще не освоил,хотя и старый еще учить и учить..
п.с. - еще вопрос - как вы делаете текст кода свернутым?
PHP:extern int dec=1; extern int TP=10; extern double Lots=0.6; extern int MaxOrders=10; //-------------------------------- extern int Per=20; //--------------------------------- extern bool MARTINGAYL=true; extern int Mpip=1; extern int LotExp=1; //--------------------------------- extern int slippage=3; extern int Magic=123; int init() { return(0); } int deinit(){ return(0); } //--------------------------------------------------------------------------------+ int start() { if(MARTINGAYL)Martin(); //----------------------- RefreshRates(); double ma=iMA(Symbol(),0,Per,0,3,0,0); //----------------------------- if(OrdersTotal()<MaxOrders) { //-----------------------------1---------------------------------------------------+ if(Ask < ma) { OrderSend(Symbol(),OP_BUY,Lots,Ask,slippage,0,Ask+TP*Point,"",Magic,0,Aqua); } //--------------------------- if(Bid > ma) { OrderSend(Symbol(),OP_SELL,Lots,Bid,slippage,0,Bid-TP*Point,"",Magic,0,Magenta); } //----------------------------------------------------------------------------------+ } return(0); } //------------------------------------MARTINGAYL-------------------------------------------------------+ void Martin() { int LastTicket = 0; int LastType =-1; double LastOpenPr = 0; double LastLot = 0; //--------------------------------------- for(int i=OrdersTotal()-1;i>=0; i--) { if(OrderSelect(i, SELECT_BY_POS, MODE_TRADES)) // Проверяем только рыночные ордера { // if(OrderSymbol()==Symbol() && OrderMagicNumber()==Magic) // Только по данному символу с заданным меджиком { // if(OrderType()==OP_BUY || OrderType()==OP_SELL) // Проверку производим только по ордерам BUY/SELL { // if(LastTicket<OrderTicket()) // Если тикет найденного ордера больше за предыдущий { // значит он последний среди уже проверенных LastTicket = OrderTicket(); // запомним его значение LastType = OrderType(); // запомним его тип LastOpenPr = OrderOpenPrice(); // запомним его цену открытия LastLot = OrderLots(); // и запомним его лот } } } } } //--------------------------- if(LastTicket==0) return; // Перебрали все ордера, если LastTicket=0 - ордеров // в рынке нет - выход из функции if(LastType!=-1 && LastOpenPr!=0 && LastLot!=0) // иначе проверим наличие полученных данных { // if(LastType==OP_BUY) // если последний ордер BUY { // if(Ask<=LastOpenPr-Mpip*Point) // проверим на условие дистанции { // если условие выполняется - установим новый ордер double OOL = NormalizeDouble(LastLot*LotExp,dec); // зададим лот double OOP = NormalizeDouble(Ask,Digits); // зададим цену открытия double OTP = NormalizeDouble(Ask+TP*Point,Digits); // зададим значение ТР if(!OrderSend(Symbol(),OP_BUY,OOL,OOP,slippage,0,OTP,"",Magic,0,Aqua))// Установка ордера не для ECN счета!!! Print("Ошибка установки ордера BUY, код ошибки - ",GetLastError()); // если ордер не установился, узнаем по какой ошибке } } //-------------------------- if(LastType==OP_SELL) // если последний ордер SELL { // if(Bid>=LastOpenPr+Mpip*Point) // проверим на условие дистанции { // если условие выполняется - установим новый ордер double OOL = NormalizeDouble(LastLot*LotExp,dec); // зададим лот double OOP = NormalizeDouble(Bid,Digits); // зададим цену открытия double OTP = NormalizeDouble(Bid-TP*Point,Digits); // зададим значение ТР if(!OrderSend(Symbol(),OP_SELL,OOL,OOP,slippage,0,OTP,"",Magic,0,Aqua))// Установка ордера не для ECN счета!!! Print("Ошибка установки ордера SELL, код ошибки - ",GetLastError()); // если ордер не установился, узнаем по какой ошибке } } } } //--------------------------------------end---------------------------------------
extern int dec=1;
extern int TP=10;
extern double Lots=0.6;
extern int MaxOrders=10;
//--------------------------------
extern int Per=20;
//---------------------------------
extern bool MARTINGAYL=true;
extern int Mpip=1;
extern int LotExp=1;
//---------------------------------
extern int slippage=3;
extern int Magic=123;
int init()
{
return(0);
}
int deinit(){
return(0);
}
//--------------------------------------------------------------------------------+
int start()
{
if(MARTINGAYL)Martin();
//-----------------------
RefreshRates();
double ma=iMA(Symbol(),0,Per,0,3,0,0);
//-----------------------------
if(OrdersTotal()<MaxOrders)
{
//-----------------------------1---------------------------------------------------+
if(Ask < ma)
{
if(!OrderSend(Symbol(),OP_BUY,Lots,Ask,slippage,0,Ask+TP*Point,"",Magic,0,Aqua))
Print("Ошибка установки ордера BUY, код ошибки - ",GetLastError());
}
//---------------------------
if(Bid > ma)
{
if(!OrderSend(Symbol(),OP_SELL,Lots,Bid,slippage,0,Bid-TP*Point,"",Magic,0,Magenta))
Print("Ошибка установки ордера SELL, код ошибки - ",GetLastError());
}
//----------------------------------------------------------------------------------+
}
return(0);
}
//------------------------------------MARTINGAYL-------------------------------------------------------+
void Martin()
{
int LastTicket = 0;
int LastType =-1;
double LastOpenPr = 0;
double LastLot = 0;
//---------------------------------------
for(int i=OrdersTotal()-1;i>=0; i--)
{
if(OrderSelect(i, SELECT_BY_POS, MODE_TRADES)) // Проверяем только рыночные ордера
{ //
if(OrderSymbol()==Symbol() && OrderMagicNumber()==Magic) // Только по данному символу с заданным меджиком
{ //
if(OrderType()==OP_BUY || OrderType()==OP_SELL) // Проверку производим только по ордерам BUY/SELL
{ //
if(LastTicket<OrderTicket()) // Если тикет найденного ордера больше за предыдущий
{ // значит он последний среди уже проверенных
LastTicket = OrderTicket(); // запомним его значение
LastType = OrderType(); // запомним его тип
LastOpenPr = OrderOpenPrice(); // запомним его цену открытия
LastLot = OrderLots(); // и запомним его лот
}
}
}
}
}
//---------------------------
if(LastTicket==0) return; // Перебрали все ордера, если LastTicket=0 - ордеров
// в рынке нет - выход из функции
double OOL = 0;
double OOP = 0;
double OTP = 0;
if(LastType!=-1 && LastOpenPr!=0 && LastLot!=0) // иначе проверим наличие полученных данных
{ //
if(LastType==OP_BUY) // если последний ордер BUY
{ //
if(Ask<=LastOpenPr-Mpip*Point) // проверим на условие дистанции
{ // если условие выполняется - установим новый ордер
OOL = NormalizeDouble(LastLot*LotExp,dec); // зададим лот
OOP = NormalizeDouble(Ask,Digits); // зададим цену открытия
OTP = NormalizeDouble(Ask+TP*Point,Digits); // зададим значение ТР
if(!OrderSend(Symbol(),OP_BUY,OOL,OOP,slippage,0,OTP,"",Magic,0,Aqua))// Установка ордера не для ECN счета!!!
Print("Ошибка установки ордера BUY, код ошибки - ",GetLastError()); // если ордер не установился, узнаем по какой ошибке
}
}
//--------------------------
if(LastType==OP_SELL) // если последний ордер SELL
{ //
if(Bid>=LastOpenPr+Mpip*Point) // проверим на условие дистанции
{ // если условие выполняется - установим новый ордер
OOL = NormalizeDouble(LastLot*LotExp,dec); // зададим лот
OOP = NormalizeDouble(Bid,Digits); // зададим цену открытия
OTP = NormalizeDouble(Bid-TP*Point,Digits); // зададим значение ТР
if(!OrderSend(Symbol(),OP_SELL,OOL,OOP,slippage,0,OTP,"",Magic,0,Aqua))// Установка ордера не для ECN счета!!!
Print("Ошибка установки ордера SELL, код ошибки - ",GetLastError()); // если ордер не установился, узнаем по какой ошибке
}
}
}
}
//--------------------------------------end---------------------------------------ну вот отлично,спасибо за помощь,теперь 0 ошибок и 0 предупреждений,будем посмотреть что за зверь этот мартини
int init()
{
return(0);
}
int deinit(){
return(0);
}
//---
int start()
{
if(A>B) int K=P;
return(0);
}
//-------------end--------ну вот отлично,спасибо за помощь,теперь 0 ошибок и 0 предупреждений,будем посмотреть что за зверь этот мартини
на счет спойлера спасибо,будем знать, а чем отличаются между собой функционально эти кнопки - та и та спойлер делает вроде?
еще вопрос -как можно прописать в коде запоминание переменной в какое то время,например переменная P меняется все время,а мне надо ее запомнить в константе K,как это сделать не могу понять,
если написать
то и константа тоже будет все время менять свои значения..:facepalm:PHP:int init() { return(0); } int deinit(){ return(0); } //--- int start() { if(A>B) int K=P; return(0); } //-------------end--------
уж извините за ассоциации...ну еще сложность с новыми билдами,я то еще в старом сижу в 509, где не было OnTick(), а был Start() или это по сути синонимы, если писать под новый билд просто менять их и все?
int init()
{
int K=0;
return(0);
}
int deinit(){
return(0);
}
//---
int start()
{
if(A>B) K=P;
return(0);
}
//-------------end--------int init()
{
int K=0;
if(A>B) K=P;
return(0);
}
//---------
int deinit(){
return(0);
}
//---
int start()
{
return(0);
}
//-------------end--------не могли бы вы показать на примере того куска кода что я давал в своем примере,как запомнить переменную P, при выполнении условия ,в константе K, а то мне лучше один раз увидеть в коде, чем сто раз прочесть про флаги, для меня флаг это знамя
переменную P не надо приравнивать к нулю, это по сути сигнал,например с индикатора,и мне его нужно запомнить при условии, что в скобках, то есть записать его значение в переменную или константу K, запутался уже с этими названиями:facepalm:
все ж таки рискну написать в старом билде, чтобы не путаться, если я правильно вас понял ,то код будет такой?
но на каждом тике мы имеем разное значение K, если условие выполняется, а мне надо запомнить первое значение при выполнении условия в 1-й раз, и далее чтобы уже ничто не влияло на значение К, чтобы там было тоже самое число!
может я торможу сильно...:facepalm:
PHP:int init() { int K=0; return(0); } int deinit(){ return(0); } //--- int start() { if(A>B) K=P; return(0); } //-------------end--------
//+------------------------------------------------------------------+
//| TEST_Flag.mq4 |
//| Mobidik |
//| https://www.mql5.com |
//+------------------------------------------------------------------+
#property copyright "Mobidik"
#property link "https://www.mql5.com"
#property version "1.00"
#property strict
int Flag;
double Data;
//+------------------------------------------------------------------+
//| Expert initialization function |
//+------------------------------------------------------------------+
int OnInit()
{
//---
Flag = 0;
Data = 0;
//---
return(INIT_SUCCEEDED);
}
//+------------------------------------------------------------------+
//| Expert deinitialization function |
//+------------------------------------------------------------------+
void OnDeinit(const int reason)
{
//---
Comment("");
}
//+------------------------------------------------------------------+
//| Expert tick function |
//+------------------------------------------------------------------+
void OnTick()
{
//---
double RSI = iRSI(NULL,0,3,PRICE_CLOSE,1);
string msg = "RSI находиться между уровнями.";
if(RSI > 70 && Flag!=1)
{
Data = Close[0];
Flag = 1;
}
if(RSI < 30 && Flag!=-1)
{
Data = Close[0];
Flag = -1;
}
//---
if(RSI > 30 && RSI < 70) Flag = 0;
//---
if(Flag== 1) msg = "RSI находиться выше уровня 70.";
if(Flag==-1) msg = "RSI находиться ниже уровня 30.";
//---
Comment(
"\n RSI = ",DoubleToStr(RSI,1),
"\n Data = ",DoubleToStr(Data,Digits),
"\n Flag = ",IntegerToString(Flag),
"\n ",msg
);
}
//+------------------------------------------------------------------+Подобные вопросы довольно таки странно слышать от человека который когда-то что-то делал, пусть и давно, это элементарные вещи. Это все равно, что если в детстве умел кататься на велосипеде, то и 50 поедешь...... сам потерял малость форму в кодировании, половину позабыл что знал из-за большого перерыва,остальную половину по сей день осваиваю..
int init() - int OnInit()
int deinit() - void OnDeinit()
int start() - void OnTick()
А вообще какой смысл что-то писать на старых билдах? На последних все прекрасно работает. Это если использовать закрытый код, который был скмпилирован на таких старых билдах, тогда хоть какой-то есть смысл, но это в случае использования какого-то древнего индюка, чей открытый код не известен и его автор не переписал код под последние билды. Объясни хоть в чем у тебя необходимость использовать именно старый билд.
Подскажите пожалуйста где ошибка и как её исправить чтоб закрыть половину лота кнопкой "PullZAKR" ??? :facepalm:
Всё заглушенное перепробовал ...с разных сторон....с разными словами
6 менял от нуля до 6... чуток не дотянул.....так и предполагал что в этой строчке проблема.
int init() - int OnInit()
int deinit() - void OnDeinit()
int start() - void OnTick()Что-то примерно так как на скрине?
Во первых все старые функции без проблем компилируются в новых билдах. Новые появились после объединения 4-го и 5-го языков и может и была идея все переделать в один язык под один терминал, но все на данный момент остановилось на том, что и все старое и все привнесенное из 5-ки на 4-ке работает. В 4-ке появился режим компиляции strict, при котором производится более углубленная проверка кода и она включается как доп команда. Короче все работает и я не мало старых прог переписал под новые билды и сложного там ничего нет.
