Алексей (Все сообщения пользователя)

function test()



local Transaction={

      
    ['TRANS_ID']  = tostring(trans_id),   -- Номер транзакции
    ['ACCOUNT']   = TorShet,              -- Код счета
    ['CLASSCODE'] = KodClass,           -- Код класса
    ['SECCODE']   = InstrumentKod,             -- Код инструмента
    ['ACTION']    = 'NEW_ORDER',          -- Тип транзакции ('NEW_ORDER' - новая заявка)
    ['OPERATION'] = 'B',                  -- Операция ('B' - buy, или 'S' - sell)
    ['TYPE']      = 'L',                  -- Тип ('L' - лимитированная, 'M' - рыночная)
    ['QUANTITY']  = '1',                  -- Количество
    ['PRICE']     = tostring(tekPrice)   -- Цена
}


local Res = sendTransaction(Transaction)

end

dofile(getScriptPath().."\\Options.lua")

id_trans = 777
trans_id = id_trans + 1


function obnov()
priceMax = getParamEx(KodClass,InstrumentKod,"PRICEMAX").param_value
tekPrice = getParamEx(KodClass,InstrumentKod,"LAST").param_value
priceMin= getParamEx(KodClass,InstrumentKod,"PRICEMIN").param_value
--Lot=  getFuturesHolding(firmid,TorShet,InstrumentKod,0).totalnet
 -- tekMarzha= 
end

function test()



local Transaction={

      
    ['TRANS_ID']  = tostring(trans_id),   -- Номер транзакции
    ['ACCOUNT']   = TorShet,              -- Код счета
    ['CLASSCODE'] = KodClass,           -- Код класса
    ['SECCODE']   = InstrumentKod,             -- Код инструмента
    ['ACTION']    = 'NEW_ORDER',          -- Тип транзакции ('NEW_ORDER' - новая заявка)
    ['OPERATION'] = 'B',                  -- Операция ('B' - buy, или 'S' - sell)
    ['TYPE']      = 'L',                  -- Тип ('L' - лимитированная, 'M' - рыночная)
    ['QUANTITY']  = '1',                  -- Количество
    ['PRICE']     = tostring(tekPrice)   -- Цена
}


local Res = sendTransaction(Transaction)

end


-- function trade()


-- if(tonumber(tekPrice)==nil or tonumber(priceMin) == nil or tonumber(priceMax)==nil)then

-- SetCell(TableID,2,4,"Не удалось получить цены с графика, нет соеденения с сервером!")
-- WriteToEndOfFile(LogFile,"Не удалось получить цены с графика, нет соеденения с сервером!")


-- end


-- if(tonumber(tekPrice) < tonumber(priceMin) )then    --  25 строка


-- transaction = {
-- ACCOUNT=TorShet,
-- CLIENT_CODE=KodClient,
-- TYPE="M",
-- TRANS_ID="7",
-- CLASSCODE=KodClass,
-- SECCODE=InstrumentKod,
-- ACTION="NEW_ORDER",
-- OPERATION="B",
-- PRICE=tostring(tekPrice),
-- QUANTITY=tostring(LotUp)
-- }

-- transaction.TRANS_ID = "12345"
-- sendTransaction(transaction)

-- elseif(tonumber(tekPrice) > tonumber(priceMax))then
-- transaction = {
-- ACCOUNT=TorShet,
-- CLIENT_CODE=KodClient,
-- TYPE="M",
-- TRANS_ID="8",
-- CLASSCODE=KodClass,
-- SECCODE=InstrumentKod,
-- ACTION="NEW_ORDER",
-- OPERATION="S",
-- PRICE=tostring(tekPrice),
-- QUANTITY=tostring(LotUp)
-- }

-- transaction.TRANS_ID = "12345"
-- sendTransaction(transaction)


-- end

-- end




function PutDataToTableInit()
Clear(TableID)
SetWindowCaption(TableID,"Робот ИНТЕЛЕКТ! Автор: Алексей Егоров.")
SetWindowPos(TableID,100,200,888,100)  -- Крдинаты 100,200,ширина и высота  888,100
InsertRow(TableID,1)  -- вставка строки в таблицу
InsertRow(TableID,2)
InsertRow(TableID,3)
SetColor(TableID,2,QTABLE_NO_INDEX,RGB(255,255,0),RGB(0,0,0),RGB(0,220,220),RGB(0,0,0))
SetColor(TableID,3,QTABLE_NO_INDEX,RGB(255,255,0),RGB(0,0,0),RGB(0,220,220),RGB(0,0,0))
end

function WriteToEndOfFile(sFile,sDataString)   -- запись лог файла

local serverTime= GetInfoParam("SERVERTIME")
local serverDate= GetInfoParam("TRADEDATE")
sDataString = serverDate..":"..serverTime..":"..sDataString.."\n"
local f = io.open(sFile,"r+")
if(f==nil)then
f = io.open(sFile,"w")
end

if(f~=nil)then
f:seek("end",0)
f:write(sDataString)
f:flush()
f:close()
end

end

function CreateTable()   --создание таблицы
TableID = AllocTable()      --иницилизация таблицы(создание)
AddColumn(TableID,1,"ВРЕМЯ СЕРВЕРА",true, QTABLE_STRING_TYPE,20)
AddColumn(TableID,2,"КОД ИНСТРУМЕНТА",true, QTABLE_STRING_TYPE,20)           -- Добавление колонок в таблицу
AddColumn(TableID,3,"ЛОТ-КОНТРАКТЫ",true, QTABLE_STRING_TYPE,20)
AddColumn(TableID,4,"КОМЕНТАРИИ",true, QTABLE_STRING_TYPE,60)
AddColumn(TableID,5,"КОД КЛАССА",true, QTABLE_STRING_TYPE,20)
CreateWindow(TableID)
PutDataToTableInit(TableID)
SetColor(TableID,1,QTABLE_NO_INDEX,RGB(255,255,255),RGB(0,0,0),RGB(0,220,220),RGB(255,0,255))

end

function Time()

ServerTime= GetInfoParam("SERVERTIME")
if(ServerTime==nil or ServerTime=="")then
Errortime="Время не полученно, подключитесь к серверу!"

WriteToEndOfFile(LogFile,"Время не полученно, подключитесь к серверу!")
else

Errortime=""

end

SetCell(TableID,1,1,ServerTime)    
SetCell(TableID,1,4,Errortime)         -- запись данных в строку 1 и колонку 4

sleep(1000)
end

function DataTable()   --Данные в таблице





SetCell(TableID,1,2,InstrumentKod)
SetCell(TableID,1,5,KodClass)
SetCell(TableID,1,3,Lot)
SetCell(TableID,3,1,"Где сработает заявка")
SetCell(TableID,3,2,priceMin)
SetCell(TableID,3,3,priceMax)
SetCell(TableID,3,4,"текущая цена ==>")
SetCell(TableID,3,5,tekPrice)
sleep(100)
 
 

if(IsWindowClosed(TableID))then
CreateWindow(TableID)
PutDataToTableInit()
SetColor(TableID,1,QTABLE_NO_INDEX,RGB(0,230,0),RGB(0,0,0),RGB(0,220,220),RGB(0,0,0))






end


end

Lot= getFuturesHolding(firmid,TorShet,InstrumentKod,0).totalnet

tekPrice=getParamEx(KodClass,InstrumentKod,"LAST").param_value
priceMax = getParamEx(KodClass,InstrumentKod,"PRICEMAX").param_value
priceMin= getParamEx(KodClass,InstrumentKod,"PRICEMIN").param_value
 -- tekMarzha= 





function trade()


if(tonumber(tekPrice)==nil or tonumber(priceMin) == nil or tonumber(priceMax)==nil)then

SetCell(TableID,2,4,"Не удалось получить цены с графика, нет соеденения с сервером!")
WriteToEndOfFile(LogFile,"Не удалось получить цены с графика, нет соеденения с сервером!")


end


if(tonumber(tekPrice) < tonumber(priceMin) )then    --  25 строка


transaction = {
ACCOUNT=TorShet,
CLIENT_CODE=KodClient,
TYPE="M",
TRANS_ID="7",
CLASSCODE=KodClass,
SECCODE=InstrumentKod,
ACTION="NEW_ORDER",
OPERATION="B",
PRICE=tostring(tekPrice),
QUANTITY=tostring(LotUp)
}

transaction.TRANS_ID = "12345"
sendTransaction(transaction)

elseif(tonumber(tekPrice) > tonumber(priceMax))then
transaction = {
ACCOUNT=TorShet,
CLIENT_CODE=KodClient,
TYPE="M",
TRANS_ID="8",
CLASSCODE=KodClass,
SECCODE=InstrumentKod,
ACTION="NEW_ORDER",
OPERATION="S",
PRICE=tostring(tekPrice),
QUANTITY=tostring(LotUp)
}

transaction.TRANS_ID = "12345"
sendTransaction(transaction)


end

end

tekPrice=getParamEx(KodClass,InstrumentKod,"LAST").param_value
priceMax = getParamEx(KodClass,InstrumentKod,"PRICEMAX").param_value
priceMin= getParamEx(KodClass,InstrumentKod,"PRICEMIN").param_value
 -- tekMarzha= 





function trade()


if(tonumber(tekPrice)==nil or tonumber(priceMin) == nil or tonumber(priceMax))then

SetCell(TableID,2,4,"Не удалось получить цены с графика, нет соеденения с сервером!")
WriteToEndOfFile(LogFile,"Не удалось получить цены с графика, нет соеденения с сервером!")


end


if(tonumber(tekPrice) <= tonumber(priceMin) )then   --20 строка error


transaction = {
ACCOUNT=TorShet,
CLIENT_CODE=KodClient,
TYPE="M",
TRANS_ID="7",
CLASSCODE=KodClass,
SECCODE=InstrumentKod,
ACTION="NEW_ORDER",
OPERATION="B",
PRICE=tostring(tekPrice),
QUANTITY=tostring(LotUp)
}

transaction.TRANS_ID = "12345"
sendTransaction(transaction)

elseif(tonumber(tekPrice) >= tonumber(priceMax))then
transaction = {
ACCOUNT=TorShet,
CLIENT_CODE=KodClient,
TYPE="M",
TRANS_ID="8",
CLASSCODE=KodClass,
SECCODE=InstrumentKod,
ACTION="NEW_ORDER",
OPERATION="S",
PRICE=tostring(tekPrice),
QUANTITY=tostring(LotUp)
}

transaction.TRANS_ID = "12345"
sendTransaction(transaction)


end

end

C:\Users\KILLER\Desktop\robot_intelect\param.lua:20: attempt to compare two table values  --Это ошибка в quik


Сам код 


tekPrice=getParamEx(KodClass,InstrumentKod,"LAST")
priceMax = getParamEx(KodClass,InstrumentKod,"PRICEMAX")
priceMin= getParamEx(KodClass,InstrumentKod,"PRICEMIN")
 -- tekMarzha= 





function trade()




if(tekPrice <= priceMin )then   --20 строка error


transaction = {
ACCOUNT=TorShet,
CLIENT_CODE=KodClient,
TYPE="M",
TRANS_ID="7",
CLASSCODE=KodClass,
SECCODE=InstrumentKod,
ACTION="NEW_ORDER",
OPERATION="B",
PRICE=tostring(tekPrice),
QUANTITY=tostring(LotUp)
}

transaction.TRANS_ID = "12345"
sendTransaction(transaction)

elseif(tekPrice >= priceMax)then
transaction = {
ACCOUNT=TorShet,
CLIENT_CODE=KodClient,
TYPE="M",
TRANS_ID="8",
CLASSCODE=KodClass,
SECCODE=InstrumentKod,
ACTION="NEW_ORDER",
OPERATION="S",
PRICE=tostring(tekPrice),
QUANTITY=tostring(LotUp)
}

transaction.TRANS_ID = "12345"
sendTransaction(transaction)


end

end