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

function EMA(y,x,N,i)     if i==1 then return x;  else    return (y*(N-1)+2*x)/(N+1); end
----------
--Вот есть три цены закрытия:
local N=3;
x=193.6 i=1
y=EMA(y,x,N,i)    print(y)
x=193.98 i=2
y=EMA(y,x,N,i)     print(y)
x=200.16 i=3
y=EMA(y,x,N,i)     print(y)

local sec_code      = 'SBER'
local class_code    = 'QJSIM'

local SeaGreen      = 12713921  --  RGB(193, 255, 193) нежно-зеленый
local RosyBrown     = 12698111  --  RGB(255, 193, 193) нежно-розовый
local getParamEx    = getParamEx
local GetCell       = GetCell
local Highlight     = Highlight
local SetCell       = SetCell

local function get_price()
if flag then
        local last_price = tonumber(getParamEx(class_code,  sec_code, 'LAST').param_value) or 0
        local lp = GetCell(t_id, 1, 0).value or last_price
      SetCell(t_id, 1, 0, tostring(last_price))--, last_price)
   --   if lp < last_price  then      Highlight(t_id, 1, 0, SeaGreen, 0, 1000)
   --   elseif lp > last_price then     Highlight(t_id, 1, 0, RosyBrown, 0, 1000)
--      end
    end
flag=false
end

function OnParam(class, sec)
     if t_id and sec == sec_code and class == class_code then    flag=true  end
end

function CreateTable()

    t_id =AllocTable()
    AddColumn(t_id, 0, "price", true, QTABLE_DOUBLE_TYPE, 15)
    CreateWindow(t_id)
    SetWindowPos(t_id, 90, 120, 170, 100)
    InsertRow(t_id, 1)
    InsertRow(t_id, 2)
end

local function Animate(sym,maxSym)
    if sym and maxSym>string.len(sym) then sym=sym..'|' else sym='|' end
    return sym
end


function event_callback(_, msg)
    if (msg == _G.QTABLE_CLOSE) then
        isRun = false
    end
end

function OnInit()
    CreateTable()
    SetTableNotificationCallback(t_id, event_callback)
   flag=true
   get_price()
end

function main()
    ds   = CreateDataSource(class_code, sec_code, 1)
    isRun = ds ~= nil
    if ds then
        ds:SetEmptyCallback()
    end


    while isRun and ds do
   get_price();
    sym=Animate(sym,20)
     SetCell(t_id, 2, 0, sym, 0)
    sleep(100)
    end
end

local flag =false -- можно и false и true

local foregroundColor = RGB(0, 0, 0)
local backgroundColor = RGB(192, 255, 192)

local function setTableColors(foregroundColor, backgroundColor)
    local nRows, nCols = GetTableSize(tableId)
    if nRows and nCols then
        for row = 1, nRows do
            for col = 1, nCols do
                SetColor(tableId, row, col,
                        backgroundColor, foregroundColor,
                        backgroundColor, foregroundColor)
            end
        end
    end
end

local function ensureWindowOpened()
    if tableId == nil then     return   end
    if IsWindowClosed(tableId) then
        CreateWindow(tableId)
        SetWindowPos(tableId, 0, 0, 300, 100)
        SetWindowCaption(tableId, "hang_test")
        InsertRow(tableId, 1)
        InsertRow(tableId, 2)
        SetCell(tableId, 1, 1, "11")
        SetCell(tableId, 1, 2, "12")
        SetCell(tableId, 2, 1, "21")
        SetCell(tableId, 2, 2, "22")
        SetSelectedRow(tableId, 1)
    end
    setTableColors(foregroundColor, backgroundColor)
end

function OnInit(scriptPath)
    tableId = AllocTable()
    AddColumn(tableId, 1, "col1", true, QTABLE_STRING_TYPE, 5)
    AddColumn(tableId, 2, "col2", true, QTABLE_STRING_TYPE, 5)
    SetTableNotificationCallback(tableId, function(tId, msg, par1, _)
        if msg == QTABLE_SELCHANGED then
            SetSelectedRow(tId, 1)
        end
    end)
    ensureWindowOpened()
end

local function run()
    ensureWindowOpened()
    if tableId then
        SetSelectedRow(tableId, 2)
    end

end

function OnStop(flag)
   DestroyTable(tableId);
    interrupted = true
end

function main()
    message("STARTED", 1)
    while not interrupted do
        run()
       if flag then
            sleep(0)
        end
    end
    message("SHUTDOWN", 1)
end

function main()
    message("STARTED", 1)
    while not interrupted do
        run()
       sleep(10)
    end
    pcall(closeWindow)
    message("SHUTDOWN", 1)
end