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

local timer_processor = function(delay)

    delay = delay or 0
    local last_time = 0

    return function(func, ...)
        local cur_time = os.time()
        if cur_time - last_time >= delay then
            last_time = cur_time
            return func(...)
        end
        return ...
    end
end

local some_func = function(x)
    x = x + 1
    print(x)
    return x
end

local timer = timer_processor(2)

local a = 1

while a < 5 do
    a = timer(some_func, a)
end

file:seek("end")
last_line   = file:read('*l')

SEC_CODE          = 'SBER'
CLASS_CODE        = 'QJSIM'
ACCOUNT           = 'NL0011100043'
CLIENT_CODE       = '11609'
FIRM_ID           = 'NC0011100000'
LIMIT_KIND        = 0

mLots = 0
L=0

function main()
 while true do

    local tblMinLot =       getParamEx(CLASS_CODE,  SEC_CODE, "LOTSIZE")
    local tblTotalLot =     getDepoEx(FIRM_ID, CLIENT_CODE, SEC_CODE, ACCOUNT ,LIMIT_KIND)

    if tblMinLot==nil       then MinLot=0       else MinLot=tonumber(tblMinLot.param_value)             end
    if tblTotalLot==nil     then TotalLots=0    else TotalLots=tonumber(tblTotalLot.currentbal)         end

    x=  TotalLots


    L = TotalLots / MinLot
       -- впвапвп
    if( mLots~=TotalLots ) then
        message(SEC_CODE.."   TotalLots  "..tostring(TotalLots).."   mLots   "..tostring(mLots).."   x   "..tostring(x),3 )
        mLots=TotalLots
    end


  sleep(1000)
  end
end