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

Кое что нашел:

true - флаг установлен
false - флаг не установлен
-- Функция проверяет установлен бит, или нет (возвращает true, или false)
CheckBit = function(flags, _bit)
   -- Проверяет, что переданные аргументы являются числами
   if type(flags) ~= "number" then error("Ошибка!!! Checkbit: 1-й аргумент не число!") end
   if type(_bit) ~= "number" then error("Ошибка!!! Checkbit: 2-й аргумент не число!") end
 
   if _bit == 0 then _bit = 0x1
   elseif _bit == 1 then _bit = 0x2
   elseif _bit == 2 then _bit = 0x4
   elseif _bit == 3 then _bit  = 0x8
   elseif _bit == 4 then _bit = 0x10
   elseif _bit == 5 then _bit = 0x20
   elseif _bit == 6 then _bit = 0x40
   elseif _bit == 7 then _bit  = 0x80
   elseif _bit == 8 then _bit = 0x100
   elseif _bit == 9 then _bit = 0x200
   elseif _bit == 10 then _bit = 0x400
   elseif _bit == 11 then _bit = 0x800
   elseif _bit == 12 then _bit  = 0x1000
   elseif _bit == 13 then _bit = 0x2000
   elseif _bit == 14 then _bit  = 0x4000
   elseif _bit == 15 then _bit  = 0x8000
   elseif _bit == 16 then _bit = 0x10000
   elseif _bit == 17 then _bit = 0x20000
   elseif _bit == 18 then _bit = 0x40000
   elseif _bit == 19 then _bit = 0x80000
   elseif _bit == 20 then _bit = 0x100000
   end
 
   if bit.band(flags,_bit ) == _bit then return true
   else return false end
end
function OnOrder(order)
   --бит 0 (0x1)     Заявка активна, иначе – не активна  
   --бит 1 (0x2)     Заявка снята. Если флаг не установлен и значение бита «0» равно «0», то заявка исполнена  
   --бит 2 (0x4)     Заявка на продажу, иначе – на покупку. Данный флаг для сделок и сделок для исполнения определяет направление сделки (BUY/SELL)  
   --бит 3 (0x8)     Заявка лимитированная, иначе – рыночная  
   --бит 4 (0x10)    Разрешить / запретить сделки по разным ценам  
   --бит 5 (0x20)    Исполнить заявку немедленно или снять (FILL OR KILL)  
   --бит 6 (0x40)    Заявка маркет-мейкера. Для адресных заявок – заявка отправлена контрагенту  
   --бит 7 (0x80)    Для адресных заявок – заявка получена от контрагента  
   --бит 8 (0x100)   Снять остаток  
   --бит 9 (0x200)   Айсберг-заявка  
 
   -- Проверка бита 2
   if CheckBit(order.flags, 2) then 
      message("Заявка на продажу"); 
   else 
      message("Заявка на покупку"); 
   end;
end;
https://quikluacsharp.ru/qlua-osnovy/funktsiya-dlya-raboty-s-bitovymi-flagami-v-qlua-lua/

Сейчас в QLua появилась встроенная функция bit.test, которая решает ту же задачу, 
т.е. смысла в использовании функции CheckBit больше нет!

Открываю справку
bit.test
Функция проверяет состояние указанного бита в значении. 
Возвращает 
true, если бит равен «1», и 
false, если бит равен «0». 

BOOLEAN bit.test(NUMBER х, NUMBER n)

где: 
х – значение; 
n – номер бита. Нумерация битов начинается с «0».

local tostring=tostring;
local is_run = true;
local instrument_list = {"BRQ3", "BRU3", "BRV3", "BRX3", "GDU3", "GDZ3", "HSU3", "HSZ3", "NAU3", "NAZ3", "NGQ3", "NGU3", "NGV3", "NGX3", "PDU3", "PDZ3", "PTU3", "PTZ3", "SFU3", "SFZ3", "SVU3", "SVZ3"}
local nsecrefresh = 3;
local class;

function OnStop()
   is_run = false
end

function round(num, idp)
   if num == nil then return nil end
   local mult = 10^(idp or 0)
   return math.floor(num * mult + 0.5) / mult
end


function CreateTable()
   local t_id = AllocTable(); 

   AddColumn(t_id, 0, "FUT", true, QTABLE_INT_TYPE, 10);
   AddColumn(t_id, 1, "OI", true, QTABLE_INT_TYPE, 10);
   AddColumn(t_id, 2, "OIINIT", true, QTABLE_INT_TYPE, 10);
   AddColumn(t_id, 3, "OICHG", true, QTABLE_INT_TYPE, 10);
   AddColumn(t_id, 4, "OICHG%", true, QTABLE_DOUBLE_TYPE, 10);

   local t = CreateWindow(t_id);
   SetWindowCaption(t_id, "Open Interest Change");
   SetWindowPos(t_id, 100, 100, 252, 532);
   
   class = "SPBFUT"

   for k,v in pairs(instrument_list) do
      InsertRow (t_id, k)
      local sec = tostring(v)
      local mdparam = getParamEx(class, sec, "NUMCONTRACTS")
      local trueoi = mdparam.param_value
      local trueoi_str = string.format("%d", trueoi)
      SetCell (t_id, k, 0, sec)
      SetCell (t_id, k, 1, trueoi_str)
      SetCell (t_id, k, 2, trueoi_str)
      local chg = 0;
      SetCell (t_id, k, 3, tostring(chg))
      local chg_pc = 0
      SetCell (t_id, k, 4, tostring(chg_pc))
   end

   return t_id
end;

function RefreshTable(t_id)
   for k,v in pairs(instrument_list) do
      local sec = tostring(v)
      local mdparam = getParamEx(class, sec, "NUMCONTRACTS")

      local trueoi = mdparam and mdparam.param_value or 0;
      local trueoi_str = string.format("%d", trueoi);
      SetCell (t_id, k, 1, trueoi_str)

      local initoi = GetCell(t_id, k, 2).image;
      local chg = trueoi - initoi;
      local chg_str = string.format("%d", chg);
      SetCell (t_id, k, 3, chg_str)
      
      local initoi_val = tonumber(initoi);
      local chg_pc = initoi_val~=0 and round(chg / initoi_val * 100,2) or 0;   

      SetCell (t_id, k, 4, tostring(chg_pc))
   end   
end;

function main()
    local table_id = CreateTable()

    while is_run do
      sleep(nsecrefresh*1000)
      RefreshTable(table_id)
    end
end