Список форумов AmiSite.ru AmiSite.ru
Форум по Ами
 FAQ  •  Поиск  •  Пользователи  •  Группы   •  Регистрация  •  Профиль  •  Войти и проверить личные сообщения  •  Вход
 Торговый автомат Амиброкер+АльфаДирект Следующая тема
Предыдущая тема
Начать новую тему  Ответить на тему
Автор Сообщение
Apple



Зарегистрирован: 24.09.2014
Сообщения: 39

СообщениеДобавлено: Чт Окт 02, 2014 10:59 pm Ответить с цитатой Вернуться к началу

000 писал(а):
Попробуй вот этот код прогнать в АА 1 раз на последнем баре "Explore"
Код:

Filter = 1;

Acco = "11111-000"   ;         // ваш счет
Mar = "MICEX_SHR";            // Код площадки
Emi = "LKOH";               // обозначение бумаги

Lot = 1;
Price = 2000;

Dat = Now(1) + " 23:45";

AD = CreateObject("ADLite.AlfaDirect");
OrderNo = AD.CreateLimitOrder (Acco, Mar, Emi, Dat, "Buy comment", "RUR", "B", Lot, Price,
Null, Null, Null, Null,
Null, Null, Null, Null,
Null, Null, Null, Null,
Null, Null, Null, Null, 10);

Msg = "";
if(OrderNo == 0)
   Msg = LastResultMsg;
   
AddColumn(OrderNo, "Ордер", 1.0);
AddTextColumn(Msg, "Сообщение", 1.0);

Скажи потом что напишет. Я на счет Dat не уверен.


что такое AA?
Посмотреть профиль Отправить личное сообщение
000
Site Admin


Зарегистрирован: 10.12.2007
Сообщения: 9106

СообщениеДобавлено: Чт Окт 02, 2014 11:13 pm Ответить с цитатой Вернуться к началу

Ну как тут написано
http://www.amisite.ru/afl/exp/0001.htm

_________________
ceterum censeo carthaginem esse delendam
Удачи. Олег.
Посмотреть профиль Отправить личное сообщение Посетить сайт автора
Apple



Зарегистрирован: 24.09.2014
Сообщения: 39

СообщениеДобавлено: Чт Окт 02, 2014 11:14 pm Ответить с цитатой Вернуться к началу

Выдает ошибку LastResultMsg.
Посмотреть профиль Отправить личное сообщение
000
Site Admin


Зарегистрирован: 10.12.2007
Сообщения: 9106

СообщениеДобавлено: Чт Окт 02, 2014 11:20 pm Ответить с цитатой Вернуться к началу

Какая ошибка. Подробнее.

_________________
ceterum censeo carthaginem esse delendam
Удачи. Олег.
Посмотреть профиль Отправить личное сообщение Посетить сайт автора
000
Site Admin


Зарегистрирован: 10.12.2007
Сообщения: 9106

СообщениеДобавлено: Чт Окт 02, 2014 11:21 pm Ответить с цитатой Вернуться к началу

О, бля...
У меня ошибка. Вот так надо
Код:

Filter = 1;

Acco = "11111-000"   ;         // ваш счет
Mar = "MICEX_SHR";            // Код площадки
Emi = "LKOH";               // обозначение бумаги

Lot = 1;
Price = 2000;

Dat = Now(1) + " 23:45";

AD = CreateObject("ADLite.AlfaDirect");
OrderNo = AD.CreateLimitOrder (Acco, Mar, Emi, Dat, "Buy comment", "RUR", "B", Lot, Price,
Null, Null, Null, Null,
Null, Null, Null, Null,
Null, Null, Null, Null,
Null, Null, Null, Null, 10);

Msg = "";
if(OrderNo == 0)
   Msg = AD.LastResultMsg;
   
AddColumn(OrderNo, "Ордер", 1.0);
AddTextColumn(Msg, "Сообщение", 1.0);

_________________
ceterum censeo carthaginem esse delendam
Удачи. Олег.
Посмотреть профиль Отправить личное сообщение Посетить сайт автора
Apple



Зарегистрирован: 24.09.2014
Сообщения: 39

СообщениеДобавлено: Чт Окт 02, 2014 11:28 pm Ответить с цитатой Вернуться к началу

В мануле пишут что надо,

ADObj.LastResultMsg.

Сори, я в джунглях.

Короче последний код ошибок не выдает.
Посмотреть профиль Отправить личное сообщение
000
Site Admin


Зарегистрирован: 10.12.2007
Сообщения: 9106

СообщениеДобавлено: Чт Окт 02, 2014 11:58 pm Ответить с цитатой Вернуться к началу

Проверь выставляет ли он ордер. По результату напишешь.

_________________
ceterum censeo carthaginem esse delendam
Удачи. Олег.
Посмотреть профиль Отправить личное сообщение Посетить сайт автора
Apple



Зарегистрирован: 24.09.2014
Сообщения: 39

СообщениеДобавлено: Пт Окт 03, 2014 9:22 am Ответить с цитатой Вернуться к началу

000 писал(а):
Проверь выставляет ли он ордер. По результату напишешь.


Олег, в альфе разве не надо скрипт засоввать в <% and %>?

Короче не ставит код заявки.
Посмотреть профиль Отправить личное сообщение
000
Site Admin


Зарегистрирован: 10.12.2007
Сообщения: 9106

СообщениеДобавлено: Пт Окт 03, 2014 9:57 am Ответить с цитатой Вернуться к началу

А чо говорит? В столбце Сообщение что пишет?

Скрипт засовывать надо если это жаба или ВБ. Раньше AFL не мог сам работать с ком и приходилось делать это на жабе или ВБ, но это давно было. Ща я написал средствами чисто AFL поэтому <% %> не надо.

_________________
ceterum censeo carthaginem esse delendam
Удачи. Олег.
Посмотреть профиль Отправить личное сообщение Посетить сайт автора
000
Site Admin


Зарегистрирован: 10.12.2007
Сообщения: 9106

СообщениеДобавлено: Сб Окт 04, 2014 8:19 am Ответить с цитатой Вернуться к началу

Так что там в столбце "Сообщение"?

_________________
ceterum censeo carthaginem esse delendam
Удачи. Олег.
Посмотреть профиль Отправить личное сообщение Посетить сайт автора
Apple



Зарегистрирован: 24.09.2014
Сообщения: 39

СообщениеДобавлено: Пн Окт 06, 2014 7:49 pm Ответить с цитатой Вернуться к началу

000 писал(а):
Так что там в столбце "Сообщение"?


Он не генерит сигнал, нет отчета,нет столбца.Sad

Тему с подключением через com не понимаю. В альфа мануале пишут одно в ами гайде другое. Какая схема:включена альфа+ами с плагином, ами должен на языке api сказать альфе выставить ордер?

Now(1) + " 23:45" Олег мог бы сказать что значит вот эта строка?
Посмотреть профиль Отправить личное сообщение
000
Site Admin


Зарегистрирован: 10.12.2007
Сообщения: 9106

СообщениеДобавлено: Пн Окт 06, 2014 10:40 pm Ответить с цитатой Вернуться к началу

Apple писал(а):
000 писал(а):
Так что там в столбце "Сообщение"?


Он не генерит сигнал, нет отчета,нет столбца.Sad

Тему с подключением через com не понимаю. В альфа мануале пишут одно в ами гайде другое. Какая схема:включена альфа+ами с плагином, ами должен на языке api сказать альфе выставить ордер?

Now(1) + " 23:45" Олег мог бы сказать что значит вот эта строка?


Столбец должен быть не зависимо от того есть сигнал или нет. Если код отработал до конца, то столбец обязан быть.
Эта строка время действия приказа. Now(1) это сегодняшняя дата, а 23:45 это время до которого действие приказа не отменяется.

_________________
ceterum censeo carthaginem esse delendam
Удачи. Олег.
Посмотреть профиль Отправить личное сообщение Посетить сайт автора
Apple



Зарегистрирован: 24.09.2014
Сообщения: 39

СообщениеДобавлено: Вт Окт 07, 2014 10:32 pm Ответить с цитатой Вернуться к началу

Олег, привет

короче в сообщении пишет ошибку:

Overflow while converting variant of type (Single) into type (Integer)


Все таки наверное нельзя напрямую без скрипта, как думаешь?
Посмотреть профиль Отправить личное сообщение
000
Site Admin


Зарегистрирован: 10.12.2007
Сообщения: 9106

СообщениеДобавлено: Вт Окт 07, 2014 11:22 pm Ответить с цитатой Вернуться к началу

Ага. Т.е. ему не нравится либо таймаут либо лот...

Надо подумать...

Слишком долго приходится ждать от тебя ответ....
Я теряю нить и интерес.... ))))

_________________
ceterum censeo carthaginem esse delendam
Удачи. Олег.
Посмотреть профиль Отправить личное сообщение Посетить сайт автора
000
Site Admin


Зарегистрирован: 10.12.2007
Сообщения: 9106

СообщениеДобавлено: Вт Окт 07, 2014 11:23 pm Ответить с цитатой Вернуться к началу

Там у Альфы есть какое либо демо? чтобы я сам пробовал.

_________________
ceterum censeo carthaginem esse delendam
Удачи. Олег.
Посмотреть профиль Отправить личное сообщение Посетить сайт автора
Показать сообщения:      
Начать новую тему  Ответить на тему


 Перейти:   



Следующая тема
Предыдущая тема
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах
Вы не можете вкладывать файлы
Вы не можете скачивать файлы


Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Часовой пояс: GMT + 3

File Attachment © by Meik Sievertsen