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

local t_full_name_fut = {
     RI = "Фьючерсный контракт на Индекс РТС",
     Si = "Фьючерсный контракт на курс доллар США - российский рубль",
     -- ......
     KZ = "Фьючерсный контракт на курс казахстанский тенге – российский рубль"
    }
    
local function getFullSecCode (sec_code)
   if type(sec_code) == "string" then
       return t_full_name_fut[string.sub(sec_code, 1, 2)]
     else
       return nil           -- или что-то другое
   end
end

message ("Код инструмента: " .. tostring(getFullSecCode("RIU3")))     -- --> Фьючерсный контракт на Индекс РТС
message ("Код инструмента: " .. tostring(getFullSecCode("abcdef")))   -- --> nil
message ("Код инструмента: " .. tostring(getFullSecCode(nil)))        -- --> nil

       local order = getItem("orders", i)                             -- получение таблицы данных из i-ой строки ТЗ

       if order and order.flags & 5 == act_direction and order.sec_code == SEC_CODE then       -- если есть активная заявка рабочего инструмента заданного направления

       if order.flags & 1 == 1 then                                    -- соответствующая заявка активна (исполнена частично)

              -- бла бла

         elseif order.flags & 2 == 0 then                              -- соответствующая заявка исполнена полностью

           if order.qty > trades_qty_order[order.order_num] then         -- количество контрактов в заявке больше суммарного количества контрактов всех сделок, соответствующих этой заявке
              -- бла бла
             else                                                            -- заявка полностью исполнена (все соответствующие данной заявке сделки появились в ТС и были обработаны)
              -- бла бла
           end

         else                                                          -- соответствующая заявка исполнена частично и снята

           if order.qty - order.balance > trades_qty_order[order.order_num] then   -- исполненная часть заявки больше суммарного кол-ва контрактов всех сделок, соответствующих этой заявке
              -- бла бла
             else                                                            -- все сделки, которые соответствуют исполненной части заявки, появились в ТС и были обработаны
              -- бла бла
           end

       end

local CHART_TAG_PRICE = "Test_speed_lab"

local function sysTime ()
   local t_time = os.sysdate()
   return 10000 * t_time.hour + 100 * t_time.min + t_time.sec + 0.001 * t_time.ms
end

function main ()

   local label = {

     IMAGE_PATH = "C:\\Quik_Pic\\Lines\\500_1_red.bmp",

--[[                                                          -- закомментированно: рисунок, раскомментированно: текст
     TEXT = "________________________",
     IMAGE_PATH = "",
     TRANSPARENT_BACKGROUND = 1,
--]]
     ALIGNMENT = "TOP",
     YVALUE =  84.00,
     DATE = 20230615,
     TIME = 130000,
     R = 0,
     G = 160,
     B = 0, 
     FONT_HEIGHT = 12 
   }

   local sys_time = sysTime()

   for i = 1, 1000 do
       label.YVALUE =  label.YVALUE + 0.001
       AddLabel(CHART_TAG_PRICE, label)
   end

   sys_time = sysTime() - sys_time

   message("sys_time: " .. tostring (sys_time))

   sleep(2000)
   DelAllLabels(CHART_TAG_PRICE)

end

local CHART_TAG_PRICE = "SRH15MIN"                         -- идентификатор графика цены
local CNT_CANDLES = 5                                      -- значение количества свечей для обработки

local is_run = true
local processed                                            -- количество обработанных свечей графика

local function timeCandle (hour, min)                      -- функция формирования времени свечи (number)
   return 10000 * hour + 100 * min
end

local function dateCandle (year, month, day)               -- функция формирования даты свечи (number)
   return 10000 * year + 100 * month + day
end

local function singleCandleProcessing (t)                  -- функция обработки одиночной свечи
   local time = timeCandle(t.datetime.hour, t.datetime.min)                        -- вызов функции формирования времени свечи
   local date = dateCandle(t.datetime.year, t.datetime.month, t.datetime.day)      -- вызов функции формирования даты свечи
   message(tostring(date) .. "  " .. tostring(time) .. ". High: " .. tostring(t.high) .. ", low: " .. tostring(t.low))
end

local function candlesProcessing ()                        -- функция обработки последней свечи/свечей
   local number = getNumCandles(CHART_TAG_PRICE)               -- количество свечей графика
   if number > processed then
       local t = getCandlesByIndex(CHART_TAG_PRICE, 0, processed, number - processed)          -- получение таблицы последней свечи/свечей
       if t then
           for i = 0, number - processed - 1 do
               if t[i] then
                   singleCandleProcessing(t[i])                        -- вызов функции обработки одиночной свечи
               end
           end
           processed = number
       end
   end
end

function main ()
   processed = getNumCandles(CHART_TAG_PRICE) - CNT_CANDLES
   while is_run do
       candlesProcessing ()                                        -- вызов функции обработки последней свечи/свечей
       sleep (30000)
   end
end

function OnStop ()
   is_run = false
   return 2000
end