Форум по Forex Tester 5

Mike писал(а):Всем здравствуйте!

Поясню, нужно закрыть позицию по тейку или по достижению определенного времени.
Возможно ли так писать вообще:
.....

if (OrderProfitPips = TakeProfit) or (HourOf(Time(0)) = 23) then

CloseOrder(OrderHandle);
.....

Программер из меня мягко говоря не очень, так что если глупый вопрос то не обижайтесь.

Спасибо.

if OrderSelect(OrderHandle, SELECT_BY_TICKET, MODE_TRADES) then 
  if (OrderProfitPips >= TakeProfit) or (HourOf(Time(0)) = 23) then 
    CloseOrder(OrderHandle);

Mike писал(а):Тогда еще вопрос?

if OrderSelect(OrderHandle, SELECT_BY_TICKET, MODE_TRADES) then
if (OrderProfitPips >= TakeProfit) or (HourOf(Time(0)) = 23) then
CloseOrder(OrderHandle);

В этой конструкции у меня работает только условие по тейку, а по условии времени никак действий не происходит.
Пробовал вот так:

............

if Time(0) <> LastTime then
begin
LastTime := Time(0);

...............

if OrderSelect(OrderHandle, SELECT_BY_TICKET, MODE_TRADES) then
if (OrderProfitPips >= TakeProfit) or (HourOf(Time(0)) = 23) then
CloseOrder(OrderHandle);

Собственно у меня есть две программульки(стратегии) которые по отдельности делают то, что мне надо, а вместе соединить их не могу.
Либо работает только по тейку, либо по времени. Что не так?

Terranin писал(а):

Mike писал(а):Всем здравствуйте!

Поясню, нужно закрыть позицию по тейку или по достижению определенного времени.
Возможно ли так писать вообще:
.....

if (OrderProfitPips = TakeProfit) or (HourOf(Time(0)) = 23) then

CloseOrder(OrderHandle);
.....

Программер из меня мягко говоря не очень, так что если глупый вопрос то не обижайтесь.

Спасибо.

Возможно, но сначала надо выбрать ордер с помощью OrderSelect

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

if OrderSelect(OrderHandle, SELECT_BY_TICKET, MODE_TRADES) then 
  if (OrderProfitPips >= TakeProfit) or (HourOf(Time(0)) = 23) then 
    CloseOrder(OrderHandle);

Лучше использовать >= чем = потому что цена может проскочить через пару пипсов и условие = не сработает.

TakeProfit в данном случае это профит в пунктах а не значение цены типа 1.2340.

Mike писал(а):А если использовать MinuteOf(Currtime), то в каком формате будет время записываться, т.е. понятно что не 9 и не 23(установленный таймфрейм понятно будет М15). Или ткни где почитать об этом. Спасибо.
Кстати перегенерил тики, результат равен предыдущему!

Mike писал(а):1.Ну не уверен что геп, попробовал другой месяц, снова картина не меняется. Причем по стопу в ручную как ты рекомендовал, все работает как надо. Отсюда собственно вопрос назрел: почему по установке стопа в ручную все срабатывает точно, а программно с "косяками"? И как можно это исправить?

2.А если сменить таймфрейм до минуты или 5 минут, не может ли это помочь с проскоками, я предполагаю что на меньшем таймфрейме вероятность проскока меньше, чем на большем?

Спасибо.

Mike писал(а):Ну спасибо тебе Terranin! Твои советы не пропали зря. Замутил наконец именно то, что мне надо было. Открытие прямо как надо "часы-минуты" и Стопы практически не проскальзывают.
Вот самый главный кусок:

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

procedure GetSingleTick; stdcall;
begin
  // проверяем нашу валюту
  if Symbol <> Currency then
    exit;
  // устанавливаем валюту и таймфрейм
  SetCurrencyAndTimeFrame(Symbol, Timeframe);
  // проверяем время последнего бара
  if Time(0) <> LastTime then
    begin
     LastTime := Time(0);
   if HourOf(Time(0)) = 9 then
   CurrTime := iTime(Currency, PERIOD_M1, 0);

   if MinuteOf(CurrTime) = 45 then
   SendInstantOrder(Symbol, op_Buy, 0.1, 0, 0, OrderHandle);

   if OrderSelect(OrderHandle, SELECT_BY_TICKET, MODE_TRADES) then
   if (OrderProfitPips >= TakeProfit) or (HourOf(Time(0)) = 16) then
    CloseOrder(OrderHandle);

if HourOf(Time(0)) = 9 then
   CurrTime := iTime(Currency, PERIOD_M1, 0);

   if Symbol <> Currency then
     exit;
  
   SetCurrencyAndTimeFrame(Currency, Timeframe);
   CurrTime := iTime(Currency, PERIOD_M1, 0);

   if (OrderHandle = -1) and (HourOf(CurrTime) = 9) and (MinuteOf(CurrTime) = 45) then
     SendInstantOrder(Symbol, op_Buy, 0.1, 0, Ask + TakeProfit*Point, OrderHandle);

   if OrderClosed(OrderHandle) then 
     OrderHandle := -1;

Mike писал(а):Как не парадоксально, но этот кусок в принципе делает что мне надо.
Но твой пример безусловно правильней!
А если подобную вещь замутить с отложенным ордером, т.е код тот же, только вместо рыночного ордера - отложенный. Как установить цену открытия у него вычислимой, т.е что-то аналогичное выделенному:

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

SendInstantOrder(Symbol, op_Buy, 0.1, 0, [b]Ask + TakeProfit*Point[/b], OrderHandle); 

и можно ли так вообще сделать? Для пример: есть какой либо хай(ближайший или самый больший) нужно чтобы цена открытия была Хай + 5 пунктов, как в скальпинге Парамона.

Спасибо.

Mike писал(а):Поторопился чуток с постом, всё - нашел как получить 4 цифры!

А со строкой не проканало, там вообще 2 параметра не лишних случаем, выделены ниже?

SendPendingOrder(Symbol, op_SellLimit, 0.1, price + StopLoss*Point, price - TakeProfit*Point, price, "", 0, OrderHandle);
Когда я их убираю, компилится на ура, иначе ошибка.

В хелпах программы так написано:

if SendPendingOrder('USDCAD', op_SellLimit, 0.2, 1.2200, 1.2100, 1.2150, OrderHandle)

получается в хелпах 7 параметров, а которую ты дал - 9. Или я чето не то пишу??

Спасибо