Форум по Forex Tester 5

fbslim писал(а):Тут есть кто живой?

Terranin писал(а):

fbslim писал(а):Тут есть кто живой?

После Нового Года жизни нет.

Terranin писал(а):Ордеров можно открывать сколько угодно, в примере было OrdersTotal = 0 как условие чтобы открывать ордер только тогда, когда никаких других ордеров не открыто.

Чтобы понять что начался новый день нужно сохранить дату текущего бара, и если дата нулевого бара изменилась по сравнению с сохраненной - значит начался новый день.

Код: Выделить всё

var
  tm: TDateTime;    // глобальная переменная

// если время последнего бара не равно сохраненному значению
if time(0) <> tm then
  begin
    // значит новый бар, сохраним его время
    tm := time(0);
    открыть ордер 1
    открыть ордер 2
  end;

library DemoStrategy.dll;

 uses
   SysUtils, DateUtils, StrategyInterfaceUnit, TechnicalFunctions;

var
   Currency: PChar;
   OpenTime: integer= 00;
   StopLoss: integer = 25;
   TakeProfit: integer = 50;
   LotSize: double = 0.1;

 procedure InitStrategy; stdcall;
 begin
   StrategyShortName('Demo');
   StrategyDescription('Strategy opens orders at 8 a.m.');

   RegOption('Currency', ot_Currency, Currency);
   RegOption('OpenTime', ot_Integer, OpenTime);
   RegOption('StopLoss', ot_Integer, StopLoss);
   RegOption('TakeProfit', ot_Integer, TakeProfit);
   RegOption('LotSize', ot_Double, LotSize); 
   SetOptionDigits('LotSize', 1);
   RegOption('Currency', ot_Currency, Currency);
 end;

 procedure DoneStrategy; stdcall;
 begin
   FreeMem(Currency);
 end;

 procedure ResetStrategy; stdcall;
 begin

 end;

 procedure GetSingleTick; stdcall;
 var
   time: TDateTime;
   OrderHandle: integer;
 begin
   if Symbol <> Currency then
     exit; 

   time := iTime(Symbol, PERIOD_M1, 0);

   if (HourOf(time) = OpenTime) and (OrdersTotal = 0) then
     SendInstantOrder(Symbol, op_Sell, LotSize, Ask + StopLoss*Point, Ask - TakeProfit*Point, '', 0, OrderHandle);
   end;

 exports
   InitStrategy,
   DoneStrategy, 
   ResetStrategy,
   GetSingleTick;

 end.

procedure GetSingleTick; stdcall;
var
time: TDateTime;
OrderHandle: integer;
tm: TDateTime; // глобальная переменная

begin
if Symbol <> Currency then
exit;

time := iTime(Symbol, PERIOD_M1, 0);

// если время последнего бара не равно сохраненному значению
if time(0) <> tm then
begin
// значит новый бар, сохраним его время
tm := time(0);
SendInstantOrder(Symbol, op_Sell, LotSize, Ask + StopLoss*Point, Ask - TakeProfit*Point, '', 0, OrderHandle);
SendInstantOrder(Symbol, op_Sell, LotSize, Ask + StopLoss*Point, Ask - TakeProfit*Point, '', 0, OrderHandle);
end;

Terranin писал(а):Только непонятно зачем 2 абсолютно одинаковых ордера открывать.

fbslim писал(а):

Terranin писал(а):Только непонятно зачем 2 абсолютно одинаковых ордера открывать.

Я просто привёл это в качестве примера. Иногда нужно будет открывать два разных ордера, потом например 2 в одну сторону, один в другую и т.д.
Я был уверен что это достаточно элементарные действия и для них не понадобится никаких новых условий.
А оказалось что на Вашем последнем примере два ордера в одну сторону работают а два в противоположную уже нет...
И это очень грустно и печально. И потрачена куча времени... безрезультатно. И мне за каждым новым действом придётся обращаться к Вам за помощью, а это мягко говоря неудобно ни Вам ни мне.
Очень жаль что всё настолько усложнено для понимания в Вашей чудесной программе. Очевидно что четырьмя уроками и одним примером исходника стратегии тут не обойтись, не на учить. Очевидно надо идти на курсы программеров....
Потому что... разгуляться фантазии нет возможности. Слишком много условий нужно выполнить, которые мне неизвестны. Это нужно досконально знать Делфи, как Вы. Я к сожалению вижу что не тяну. Тут разобраться будет слишком сложно простому обывателю не владеющему языками.
В любом случае, спасибо Вам за попытку научить, но... это слишком сложно и неудобно. Может когда-нибудь я буду мыслить на Делфи как Вы и тогда получится. Но я не программист на сейчас и... не потяну...

Придётся искать что-то попроще...

Terranin писал(а):Попробуйте так:
SendInstantOrder(Currency, op_Buy, LotSize, Ask - point*StopLoss, Ask + point*TakeProfit, 0, '', OrderHandle);
И это тоже не к дельфи относится а к заморочкам рынка.

SendInstantOrder(Symbol, op_Buy, LotSize, Ask - point*StopLoss, Ask + point*TakeProfit, '', 0, OrderHandle);

// необходимо вызывать эту процедуру без нее не работают функции Open, Low, High ..., Time
SetCurrencyAndTimeframe(Currency, 60*24);

fbslim писал(а): Вот в справке я такой информации не нашёл. Как же я могу даже начать догадываться, если никаких входящих данных у меня нет. Только случайные Ваши ответы и наводки на форумах. А все ли это ответы и почему все эти тонкости не изложены в руководстве?!
Возможно Вы правы и 80% переходят с MQL на Вашу платформу без проблем. Возможно в руководстве по MQL все эти тонкости описаны. Я его действительно не читал и не учил MQL. Я просто не вижу КАК наглядно увидеть результат работы своего советника на истории. Только если вывести его на демо счёт.
Тут же всё могло бы быть гораздо быстрее и удобнее но......
Так что... видимо придётся читать справку MQL дабы выяснить какие-то моменты.
Но вообще насколько я знаю, если уж выпускаешь такой замечательный продукт, очень похожий на МетатТрейдер, то почему бы уже не зайти дальше и не написать такое же подробное руководство по программированию на Делфи для конкретно Вашей программы, тем более что всё на 80% одинаково. Я сомневаюсь что кто-то подаст на Вас в суд, т.к. врядли у них есть патент на изобретение интерфейса, в том числе и интерфейса и структуры справочного руководства.

В общем... видимо придётся это всё оставить на время. И собраться с духом для чтения справки MQL

Спасибо Вам ещё раз что уделили время. Надеюсь я найду в себе моральные силы в будущем для этой работы...

Terranin писал(а):Сделаем как разгребемся с делами.