Код: Выделить всё
if (HourOf(time) = OpenTime) and (OrdersTotal = 0) then
SendInstantOrder
После Нового Года жизни нет.fbslim писал(а):Тут есть кто живой?
Terranin, С Новым Годом Вас и с Рождеством!!! Замечательный Вы изготовили продукт, но пока нехватает мозга чтобы реализовать в нём всё то что мне лично нужно для дальнейшей с ним работы, взаимовыгодной понятноTerranin писал(а):После Нового Года жизни нет.fbslim писал(а):Тут есть кто живой?
Код: Выделить всё
var
tm: TDateTime; // глобальная переменная
// если время последнего бара не равно сохраненному значению
if time(0) <> tm then
begin
// значит новый бар, сохраним его время
tm := time(0);
открыть ордер 1
открыть ордер 2
end;Простите, но я даже скомпилировать с этим кодом не могу. В точке где (0) - пишет что недостаточно аргументов.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;
Код: Выделить всё
var
tm: TDateTime; // я ж писал это глобальная а не локальная переменная
procedure GetSingleTick; stdcall;
var
OrderHandle: integer;
begin
if Symbol <> Currency then
exit;
// работаем по заданной валюте на таймфрейме 1 день
// необходимо вызывать эту процедуру без нее не работают функции Open, Low, High ..., Time
SetCurrencyAndTimeframe(Currency, 60*24);
// без этой проверки ордера откроются сразу на первом тике первого бара
// а так дождемся формирования первого бара (регулируя это число можно начать работать например с 10го бара)
if Bars < 2 then
exit;
// если время последнего бара не равно сохраненному значению
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;
end;Я просто привёл это в качестве примера. Иногда нужно будет открывать два разных ордера, потом например 2 в одну сторону, один в другую и т.д.Terranin писал(а):Только непонятно зачем 2 абсолютно одинаковых ордера открывать.
Дельфи тут вроде не при чем, те же самые проблемы возникли бы у Вас и при изучении языка MQL для метатрейдера. Поскольку все функции на 80% совместимы с ним, поэтому если кто-то программировал для метатрейдера без проблем переходит на нашу систему. Но конечно надо уметь программировать или учиться.fbslim писал(а):Я просто привёл это в качестве примера. Иногда нужно будет открывать два разных ордера, потом например 2 в одну сторону, один в другую и т.д.Terranin писал(а):Только непонятно зачем 2 абсолютно одинаковых ордера открывать.
Я был уверен что это достаточно элементарные действия и для них не понадобится никаких новых условий.
А оказалось что на Вашем последнем примере два ордера в одну сторону работают а два в противоположную уже нет...
И это очень грустно и печально. И потрачена куча времени... безрезультатно. И мне за каждым новым действом придётся обращаться к Вам за помощью, а это мягко говоря неудобно ни Вам ни мне.
Очень жаль что всё настолько усложнено для понимания в Вашей чудесной программе. Очевидно что четырьмя уроками и одним примером исходника стратегии тут не обойтись, не на учить. Очевидно надо идти на курсы программеров....
Потому что... разгуляться фантазии нет возможности. Слишком много условий нужно выполнить, которые мне неизвестны. Это нужно досконально знать Делфи, как Вы. Я к сожалению вижу что не тяну. Тут разобраться будет слишком сложно простому обывателю не владеющему языками.
В любом случае, спасибо Вам за попытку научить, но... это слишком сложно и неудобно. Может когда-нибудь я буду мыслить на Делфи как Вы и тогда получится. Но я не программист на сейчас и... не потяну...
Придётся искать что-то попроще...
А проще системы не найдете, везде свои языки и свои условия которых Вы не знаете.Ошибка после 0,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 писал(а):Сделаем как разгребемся с делами.
