Автор |
Сообщение |
Apple
Зарегистрирован: 24.09.2014
Сообщения: 39
|
000 писал(а): |
Там у Альфы есть какое либо демо? чтобы я сам пробовал. |
Я так понимаю нужно VBScript книжку читать?
У Альфы есть демо на ммвб.
в yahoo группе чел маялся с этой ошибки аж в 2009:
i see in Trace:
Overflow while converting variant of type (Single) into type (Integer) Formulas\Custom\AlfaDirect.afl 15 27 11:17:12.97
It works well if I call CreateLimitObject from JScript or VBScript (
Can I call this function from AFL?
What type has Null in AmiBroker? |
Последний раз редактировалось: Apple (Ср Окт 08, 2014 9:31 am), всего редактировалось 1 раз |
|
Посмотреть профиль Отправить личное сообщение |
|
Astrobiolog
Зарегистрирован: 27.01.2013
Сообщения: 66
|
Apple писал(а): |
Я сама параллельно пытаюсь въехать |
А ты что, телочка, не самец?
Если это действительно так, что ж ты тут, бедненькая, делаешь, отродясь девочек здесь не было, да и не место девочкам в дискуссах об амиброкере, как и впрочем на фондовом рынке.
Слишком уж сложные эти субстанции для самочек. Эти сущности не оправдают девичьи грезы.
Ты чего не сидишь на девчачьих форумах, а? Ану-ка бегом на аднакласники_ру!
Что можешь возразить на вышесказанное? ); |
|
|
Посмотреть профиль Отправить личное сообщение |
|
Astrobiolog
Зарегистрирован: 27.01.2013
Сообщения: 66
|
Яблоко, да не бойся ты, не надо удалять артефакты из своих мессажей.
Никто тебя здесь не обидит (вот основатель сайта Олег носится с тобой как с писаной торбой))
Никакой дискриминации по гендерному признаку здесь никогда не было по причине отсутствия девчонок как таковых .
И если таковая появилась (если ты действительно девочка)) - то не будет ущемления ни в чем. Будет совсем наоборот (девочка в парилке среди 100 волосатых и не очень мужиков)) (шучу)). Т.е. максимум внимания))
Я знаю амиброкер около 10 лет. Но никогда и нигде я не видел девочку, которая бы знала, что это такое))
Другими словами - ВЕЛКАМ в наш клуб)) |
|
|
Посмотреть профиль Отправить личное сообщение |
|
Apple
Зарегистрирован: 24.09.2014
Сообщения: 39
|
Astrobiolog писал(а): |
Другими словами - ВЕЛКАМ в наш клуб)) |
Мерси. |
|
|
Посмотреть профиль Отправить личное сообщение |
|
Astrobiolog
Зарегистрирован: 27.01.2013
Сообщения: 66
|
U`re welcome!
|
|
|
Посмотреть профиль Отправить личное сообщение |
|
000
Site Admin
Зарегистрирован: 10.12.2007
Сообщения: 9106
|
Понедельник посвящу разбирательству с АД (если ничего не случиться). О результатах доложу. |
_________________ ceterum censeo carthaginem esse delendam
Удачи. Олег. |
|
Посмотреть профиль Отправить личное сообщение Посетить сайт автора |
|
Apple
Зарегистрирован: 24.09.2014
Сообщения: 39
|
Олег, спасибо большое за помощь.
Если код, который ты написал, засунуть в скрипт - ами отправляет заявку, без скрипта не понимает.
Загрузила твоего Quik_Robot3, выдает syntax error на:
pos = AS_READ_PARAM("Quik_Robot", Name(), "pos");
Код: |
//это код для альфы со скриптом
Filter = 1;
Period = 60*5;
Account = "00000-000";
PlaceCode = "FORTS";// (FORTS или MICEX_SHR)
PCode = "SBER-12.14";
Dat = Now(1) + " 23:45";
EnableScript("vbscript");
<%
Dim AD
Set ADObj= CreateObject("ADLite.AlfaDirect")
Account= AFL("Account")
PlaceCode= AFL("PlaceCode")
PCode= AFL("PCode")
Dat= AFL("Dat")
OrderNo = ADObj.CreateLimitOrder(Account, PlaceCode, PCode, Dat, "sample order", "RUR", "B", 1, 2000, Null, Null, Null, Null, Null, Null, Null, Null, Null, Null, Null, Null, Null, Null, Null, Null, 10)
%>
|
Дальше AFL код системы нужно соединить с сигналами из скрипта with script = GetScriptObject()?
Код: |
for ( i = 0; i < BarCount; i++ )
{
if ( Buy[i] )
{
lastbuyprice = BuyPrice[i];
}
|
|
|
|
Посмотреть профиль Отправить личное сообщение |
|
000
Site Admin
Зарегистрирован: 10.12.2007
Сообщения: 9106
|
Дай весь код который отправляет заявку. |
_________________ ceterum censeo carthaginem esse delendam
Удачи. Олег. |
|
Посмотреть профиль Отправить личное сообщение Посетить сайт автора |
|
000
Site Admin
Зарегистрирован: 10.12.2007
Сообщения: 9106
|
Не внимательно глянул твое предыдущее сообщение.
Теперь пробуй так
Код: |
//это код для альфы со скриптом
Filter = 1;
Period = 60*5;
Account = "00000-000";
PlaceCode = "FORTS";// (FORTS или MICEX_SHR)
PCode = "SBER-12.14";
Dat = Now(1) + " 23:45";
lotsS = 1;
price = 2000;
EnableScript("vbscript");
<%
Dim AD
Set ADObj = CreateObject("ADLite.AlfaDirect")
Account = AFL("Account")
PlaceCode = AFL("PlaceCode")
PCode = AFL("PCode")
Dat = AFL("Dat")
function Order(vblots,vbprice,bs)
OrderNo = ADObj.CreateLimitOrder(Account, PlaceCode, PCode, Dat, "sample order", "RUR", bs, vblots, vbprice, Null, Null, Null, Null, Null, Null, Null, Null, Null, Null, Null, Null, Null, Null, Null, Null, 10)
if (OrderNo = 0) Then
Msg = AD.LastResultMsg
Order = Msg
else
Order = CStr(OrderNo)
End if
End function
%>
script = GetScriptObject();
OrderInf = script.Order (lotsS, price, "B");
AddTextColumn(OrderInf, "Сообщение", 1.0);
|
|
_________________ ceterum censeo carthaginem esse delendam
Удачи. Олег. |
|
Посмотреть профиль Отправить личное сообщение Посетить сайт автора |
|
Apple
Зарегистрирован: 24.09.2014
Сообщения: 39
|
Success! Отправил заявку , а терминал принял. |
|
|
Посмотреть профиль Отправить личное сообщение |
|
000
Site Admin
Зарегистрирован: 10.12.2007
Сообщения: 9106
|
Ну тогда все. Из этого сделать робота как 2 пальца... ))) |
_________________ ceterum censeo carthaginem esse delendam
Удачи. Олег. |
|
Посмотреть профиль Отправить личное сообщение Посетить сайт автора |
|
Astrobiolog
Зарегистрирован: 27.01.2013
Сообщения: 66
|
Apple писал(а): |
Success! Отправил заявку , а терминал принял. |
Ану-бегом на девичьи сайты! И депо отдай бегом мужу(м.ч. - маладому чалавэку - как у вас там пишется у девочек эсли нэ замужэм) и т.д. Бегом на девчачьи сайты, чтоб я тебя здесь не видел!) Сохрани бюджет! Еще раз здесь увижу - по попе выпорю! |
|
|
Посмотреть профиль Отправить личное сообщение |
|
000
Site Admin
Зарегистрирован: 10.12.2007
Сообщения: 9106
|
С утра уже пьяный. |
_________________ ceterum censeo carthaginem esse delendam
Удачи. Олег. |
|
Посмотреть профиль Отправить личное сообщение Посетить сайт автора |
|
Apple
Зарегистрирован: 24.09.2014
Сообщения: 39
|
000 писал(а): |
Ну тогда все. Из этого сделать робота как 2 пальца... ))) |
Олег, ты мог бы логику построения робота объяснить, какие блоки и где сидит логика системы?
Так правильно?
Переменные
Блок системы (сигналы bs/sc)
VBScript
Отправка транзакций в терминал script = GetScriptObject();
а куда вставлять логику системы с условиями if else? |
|
|
Посмотреть профиль Отправить личное сообщение |
|
000
Site Admin
Зарегистрирован: 10.12.2007
Сообщения: 9106
|
Берешь этого робота.
Все оставляешь как там только
1. надо убрать процедуру соединения с Квиком
Код: |
QC = 1; //AS_QUIK_CONNECT(Quik);
if (QC == 1)
{
connection = 1;
text = "Есть соединение с сервером";
Color = colorGreen;
}
else if (QC == -1)
{
text = "нет соединения с квиком";
Color = colorRed;
}
else if (QC == -2)
{
text = "нет соединения с сервером";
Color = colorRed;
}
else
{
text = "фигня какая то";
Color = colorRed;
} |
и вместо
AS_QUIK_SEND_SYNC_NEWORDER
вставить
script.Order (lotsS, price, "B");
Ну и разумеется где нибудь выше запихать скрипт.
Разумеется в таком случае плагин AS_QuikTrade не нужен, а AS_File нужен. |
_________________ ceterum censeo carthaginem esse delendam
Удачи. Олег. |
|
Посмотреть профиль Отправить личное сообщение Посетить сайт автора |
|
|