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

local sec_list = getClassSecurities('TQOD|TQOB|TQTD|TQTF|EQEO|EQOB|EQDB|SPBBND|SPBXM|QJSIM|TQBR|FQBR|SPBFUT|CETS')

local path = _G.getScriptPath()

local sleep = _G.sleep
local log_file

local AddLabel          = _G.AddLabel

local function init_log()
    log_file = io.open(path.."\\add_labels_test.txt", "w")
end
local function close_log()
    if io.type(log_file) == 'file' then
        log_file:close()
    end
    log_file = nil
end

local function log_tostring(...)
    local n = select('#', ...)
    if n == 1 then
    return tostring(select(1, ...))
    end
    local t = {}
    for i = 1, n do
    t[#t + 1] = tostring((select(i, ...)))
    end
    return table.concat(t, " ")
end

local function log(...)
    if not log_file then return end
    log_file:write(tostring(os.date("%c", os.time())).." "..log_tostring(...).."\n");
    log_file:flush();
end

function _G.OnStop()
    close_log()
end

function _G.main()

    init_log()
    log('start')

    local tag = 'virt_test'

    local date = tonumber(os.date('%Y%m%d', os.time())) or 0
    local time = tonumber(os.date('%H%M%S', os.time() - 120)) or 0

    local label_params = {}
    label_params.YVALUE = 172.0
    label_params.TEXT = ''
    label_params.HINT = ''
    label_params.DATE = date
    label_params.TIME = time
    label_params.FONT_FACE_NAME = 'Arial'
    label_params.ALIGNMENT = 'RIGHT'
    label_params.FONT_HEIGHT    = 3
    label_params.TRANSPARENT_BACKGROUND    = 1

    for i = 1, 100 do
        label_params.TEXT = tostring(i)..': |||||||||||||||||||||||||||'
        label_params.YVALUE = label_params.YVALUE + 0.1
        local l_id = AddLabel(tag, label_params)
        log('add label', i, 'id', l_id)
        sleep(10)
    end

end

local path = _G.getScriptPath()

local log_file

local GetLabelParams    = _G.GetLabelParams

local function init_log()
    log_file = io.open(path.."\\check_labels_test.txt", "w")
end
local function close_log()
    if io.type(log_file) == 'file' then
        log_file:close()
    end
    log_file = nil
end

local function log_tostring(...)
    local n = select('#', ...)
    if n == 1 then
    return tostring(select(1, ...))
    end
    local t = {}
    for i = 1, n do
    t[#t + 1] = tostring((select(i, ...)))
    end
    return table.concat(t, " ")
end

local function log(...)
    if not log_file then return end
    log_file:write(tostring(os.date("%c", os.time())).." "..log_tostring(...).."\n");
    log_file:flush();
end

function _G.OnStop()
    close_log()
end

function _G.main()

    init_log()
    log('start')

    local tag = 'virt_test'

    for l_id = 1, 1000 do
        local l_params = GetLabelParams(tag, l_id)
        if l_params then
            log('find label', 'id', l_id, 'text', l_params.text)
        end
    end

end

local local_table_stock = getQuoteLevel2(class, sec) 

local k = 10local s = 100

for i = 1, 10000000 do
    k, s = math.max(k, s), math.min(k, s)
    k, s = k*i, s*i
    k, s = math.min(k, s), math.max(k, s)
end

local math_max = math.max
local math_min = math.min

local k = 10
local s = 100

for i = 1, 10000000 do
    k, s = math_max(k, s), math_min(k, s)
    k, s = k*i, s*i
    k, s = math_min(k, s), math_max(k, s)
end

local is_run = true

local function is_date(val)
    local status = pcall(function() return type(val) == "table" and os.time(val); end)
    return status
end

local function call_back_processor(action, context)
    if not action then return end
    return function(index)
        action(index, context)
    end
end

local function on_ds_action(index, context)
    local time = is_date(context.ds:T(index)) and os.time(context.ds:T(index)) or nil
    _G.message(string.format('new ds index %d %s %s|%s last close %.5f', index, time and os.date('%d.%m.%Y %H:%M:%S', time), context.sec_code, context.class_code, context.ds:C(index)))
end

local function create_ds(context, action)

    if not context then return end

    local ds, err = _G.CreateDataSource(context.class_code, context.sec_code, context.interval)

    if not ds then
        _G.message(err, 3)
        return
    end

    if ds and action then
        ds:SetUpdateCallback(call_back_processor(action, context))
    end
    context.ds = ds

    return ds
end

function _G.main()

    create_ds({sec_code = 'SBER', class_code = 'TQBR', interval = _G.INTERVAL_W1}, on_ds_action)
    create_ds({sec_code = 'GAZP', class_code = 'TQBR', interval = _G.INTERVAL_MN1}, on_ds_action)

    while is_run do
        _G.sleep(100)
    end
end

function _G.OnStop()
    is_run = false
end