Старатель (Все сообщения пользователя)

local run, id
local AllTrades = {}
local get, process = 0, 0

function OnAllTrade(alltrade)
  if not run then return end
  table.sinsert(AllTrades, alltrade)
  local n = getNumberOf('all_trades')
  SetCell(id, 1, 1, tostring(n), n)
  if n == 1 then
    get = 1
    process = 0
  else
    get = get + 1
  end
  SetCell(id, 1, 2, tostring(get), get)
end

function main()
  id = AllocTable()
  AddColumn(id, 1, 'all', true, QTABLE_INT_TYPE, 10)
  AddColumn(id, 2, 'get', true, QTABLE_INT_TYPE, 10)
  AddColumn(id, 3, 'process', true, QTABLE_INT_TYPE, 10)
  CreateWindow(id)
  SetWindowPos(id, 0, 0, 193, 61)
  InsertRow(id, -1)
  run = true
  while run do
    if #AllTrades ~= 0 then
      while #AllTrades ~= 0 do
        table.sremove(AllTrades, 1)
        process = process + 1
      end
      SetCell(id, 1, 3, tostring(process), process)
    else sleep(1) end
  end
end

function OnStop()
  run = nil
  DestroyTable(id)
end

local run = true

local function work(alltrade, n)
  for i = 1, n do
    local d = alltrade.flags % 2
    d = bit.band(alltrade.flags, 2)
  end
end

local AllTrades = {}
function OnAllTrade(alltrade)
  table.ssort({0, 0}, function()
    AllTrades[#AllTrades+1] = alltrade
    work(alltrade, 10)
    return true
  end)
end

function main()
  while run do
    while #AllTrades ~= 0 do
      local alltrade = table.sremove(AllTrades, 1)
      table.ssort({0, 0}, function()
        work(alltrade, 100)
        return true
      end)
    end
    sleep(1)
  end
end

function OnStop()
  run = nil
end

local run = true

function main()
  while run do
      for sec in getClassSecurities("SPBFUT"):gmatch("([^,]+)") do
        local price = getParamEx("SPBFUT", sec, "PRICEMIN").param_value
        if price and price ~= 0 then
          local qty = CalcBuySell("SPBFUT", sec, "", Account, price, true)
          if qty <= 0 then
            message(sec .. ' B: ' .. qty, 2)
          end
        end
        price = getParamEx("SPBFUT", sec, "PRICEMAX").param_value
        if price and price ~= 0 then
          local qty = CalcBuySell("SPBFUT", sec, "", Account, price, false)
          if qty <= 0 then
            message(sec .. ' S: ' .. qty, 2)
          end
        end
      end
      sleep(60000)
  end
end
function OnStop()
  run = nil
  return 100
end

local run = true
function main()
  local id = AllocTable()
  AddColumn(id, 1, 'Количество', true, QTABLE_INT_TYPE, 13)
  CreateWindow(id)
  InsertRow(id, -1)
  while run do
    local len = getNumberOf('all_trades')
    SetCell(id, 1, 1, tostring(len), len)
    sleep(100)
  end
end
function OnStop()
  run = nil
end

local run = true

local AllTrades = {}
function OnAllTrade(alltrade)
  table.sinsert(AllTrades, alltrade)
  --[[table.ssort({0, 0}, function()
      AllTrades[#AllTrades+1] = alltrade
    return true
  end)]]
end

function main()
  while run do
    while #AllTrades > 0 do
      table.sremove(AllTrades, 1)
    end
    sleep(1)
  end
end

function OnStop()
  run = nil
end