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

Log=io.open("D:/test.log","w") --лог файл
tparam={}

function main()
   local firm,account,client,x;
   while true do
      while #tparam>0 do
         local t=tparam[1];
      local clas=t[1]; local sec=t[2]; w=nil;    local z=string.find(clas,'FUT');
         for i=0,getNumberOf("client_codes")-1 do
            x=getItem("client_codes",i); if x~="" then if string.find(clas,'FUT')==z then  client=x; break; end end
         end
         for i=0,getNumberOf("trade_accounts")-1 do
            x=getItem("trade_accounts",i);
            if string.find(x.class_codes,clas) and x.status==0 then firm=x.firmid; account=x.trdaccid;break; end
         end
         Log:write("clas="..clas..",sec="..sec..",firm="..firm..",account="..account..",client="..client.."\n");Log:flush();
         local t1=getDepo(client,firm,sec,account);
         Log:write("type="..type(t1).."\n");Log:flush();
         table.sremove(tparam, 1)
      end
      sleep(1);
   end
end
--------------
function OnInit(pfile)    sleep(1000); end
-------------------
function OnParam(c,s)    table.sinsert(tparam,{c,s}); end 

Log=io.open("D:/test.log","w") --лог файл
------------------------
tparam={}
function main()
   local firm,account,client,x;
   while true do
      while #tparam>0 do
         local t=tparam[1]; local clas=t[1]; local sec=t[2]; w=nil;
         local z=string.find(clas,'FUT');
         for i=0,getNumberOf("client_codes")-1 do
            x=getItem("client_codes",i);
            if e~="" then local z1=string.find(clas,'FUT');if z1==z2 then  client=x; break; end end
         end
--------------------
         for i=0,getNumberOf("trade_accounts")-1 do
            x=getItem("trade_accounts",i);
            if string.find(x.class_codes,clas) and x.status==0 then firm=x.firmid; account=x.trdaccid;break; end
         end
----------------------------------
         Log:write("clas="..clas..",sec="..sec..",firm="..firm..",account="..account..",client="..client.."\n");Log:flush();
         local t1=getDepo(client,firm,sec,account);
         Log:write("type="..type(t1).."\n");Log:flush();
         table.sremove(tparam, 1)
      end
      sleep(1);
   end
end
--------------
function OnInit(pfile)    sleep(1000); end
-------------------
function OnParam(c,s)    table.sinsert(tparam,{c,s}); end 

clas=QJSIM,sec=APTK,firm=NC0011100000,account=NL0011100043,client=10323
type=table
clas=QJSIM,sec=CHKZ,firm=NC0011100000,account=NL0011100043,client=10323
type=table
clas=QJSIM,sec=DIOD,firm=NC0011100000,account=NL0011100043,client=10323
type=table
clas=QJSIM,sec=KROT,firm=NC0011100000,account=NL0011100043,client=10323
type=table
clas=QJSIM,sec=KZOSP,firm=NC0011100000,account=NL0011100043,client=10323
type=table
clas=QJSIM,sec=LIFE,firm=NC0011100000,account=NL0011100043,client=10323
type=table
clas=QJSIM,sec=RNFT,firm=NC0011100000,account=NL0011100043,client=10323
type=table
clas=QJSIM,sec=SBER,firm=NC0011100000,account=NL0011100043,client=10323

for i=1,#tparam do local t=tparam[i]; if t=="table" then if t[1]==14 and t[3]==s then return end end end
local t={14,c,s}; if #tparam==0 then tparam[1]=t; ESet(event); else table.sinsert(tparam,t); end
end 

Log:write("clas="..clas..",sec="..sec..",firm="..firm..",account="..account..",client="..client.."\n");Log:flush();
local t1=getDepo(client,firm,sec,account);
Log:write("type="..type(t1).."\n");Log:flush();

 clas=CETS,sec=EURUSD000TOM
clas=CETS,sec=EURUSD000TOM,firm=MB1000100000,account=MB1000100002,client=10323
type=table
tim=29.6543,tim1=0.061899999999998

 clas=CETS,sec=USD000UTSTOM
clas=CETS,sec=USD000UTSTOM,firm=MB1000100000,account=MB1000100002,client=10323
type=table
tim=28.3573,tim1=0.041400000000007

 clas=CETS,sec=CNYRUB_TOM
clas=CETS,sec=CNYRUB_TOM,firm=MB1000100000,account=MB1000100002,client=10323
type=table
tim=26.3304,tim1=0.044000000000008

 clas=CETS,sec=USD000000TOD
clas=CETS,sec=USD000000TOD,firm=MB1000100000,account=MB1000100002,client=10323
type=table
tim=26.163,tim1=0.048399999999997

 clas=CETS,sec=EUR_RUB__TOM
clas=CETS,sec=EUR_RUB__TOM,firm=MB1000100000,account=MB1000100002,client=10323
type=table
tim=26.6879,tim1=0.0442

 clas=QJSIM,sec=ALRS
clas=QJSIM,sec=ALRS,firm=NC0011100000,account=NL0011100043,client=10323
type=table
tim=27.8828,tim1=0.052700000000005

 clas=QJSIM,sec=MSTT
clas=QJSIM,sec=MSTT,firm=NC0011100000,account=NL0011100043,client=10323
type=table
tim=27.8581,tim1=0.125

 clas=QJSIM,sec=PLZL
clas=QJSIM,sec=PLZL,firm=NC0011100000,account=NL0011100043,client=10323
type=table
tim=27.1135,tim1=0.051300000000001

 clas=QJSIM,sec=SBER
clas=QJSIM,sec=SBER,firm=NC0011100000,account=NL0011100043,client=10323

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