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

function labeldraw(price, textlabel, texthint)  
  label_params = {
    TEXT = textlabel,
    ALIGNMENT = "LEFT",
    DATE = tostring(os.date("%Y%m%d")),
    TIME = tostring(os.date("%H%M%S")),
    R = 250,
    G = 200,
    B = 0,
    TRANSPARENCY = 90,
    FONT_HEIGHT = 12,
    TRANSPARENT_BACKGROUND = 1,
    YVALUE = price,
    HINT = texthint
        }
  label_id_text = AddLabel(tiker_id, label_params)
end

function main()
  tiker_id = "SBER_ID"
  
  price, _, _ = getCandlesByIndex(tiker_id, 0, getNumCandles(tiker_id)-1, 1)  
  sleep(300)
  
  text = "ppppp "..price[0].close
  labeldraw(price[0].close, text, "eeeeee")
  PrintVar(price[0].close,label_id_text)
end
--============================================================
function PrintVar(...)
  local lin = ""
  for i, v in ipairs {...} do
    lin = (lin ..(tostring(v)).." ")
  end
  Print(lin)
end

function Print(v)
  PrintDbgStr(tostring(v))
end

function OnInit(scr_path)
  is_run = true
  file = io.open(scr_path:sub(1,-4).."log", "a+")
end
   
function OnStop(flg)
  if flg == 1 then
    ToLog("OnStop Скрипт остановлен")
  else
    ToLog("OnStop QUIK закрыт")
  end
  is_run =  false
  return 3000 
end 

function OnClose()
  ToLog("OnClose")
  is_run =  false
end 
----------------------------------
function ToLog(msg)
  local t = os.sysdate()
  file:write(string.format("%02d:%02d:%02d.%06d - ", t.hour,t.min,t.sec,t.mcs),msg,"\n")
end 

function main()
  while is_run do
    sleep(30)
  end
  
  sleep(500) -- Имитация завершения работы
  ToLog("Выход из main\n -------------")
  file:flush()
  file:close()
end

    
function OnInit(scr_path)
  is_run = true
  file = io.open(scr_path:sub(1,-4).."log", "a+")
  callBack = {}
  sec = "CNYRUBF" -- Стартовый тикер
end

function OnFuturesClientHolding(t)-- Позиции по клиентским счетам (фьючерсы).
  table.sinsert(callBack, t)
end
    
function OnStop()
  file:close()
  is_run = false
  return 2000
end

function main()
  
  --file:write("\n  Дата    Время    Сессия  Бирж.сесс.  Статус кл.    Статус     Коллбэк \n")
  file:write("\n  Дата\t Время\t Сессия\t Бирж.сесс.\t Статус кл.\t Статус\t Коллбэк \n")
  
  local function UpdStts(param)
    return getParamEx("SPBFUT", sec, param).param_image
  end
  
  while is_run do
    trd_phase = UpdStts("TRADINGPHASE") -- Сессия.
    trd_stts = UpdStts("TRADINGSTATUS") -- Биржевой статус торговой сессии.
    cl_stts = UpdStts("CLSTATE") -- Статус клиринга.
    status = UpdStts("STATUS") -- Статус.
    
    while #callBack > 0 or trd_phase ~= prev_trdphs or trd_stts ~= prev_trdst or cl_stts ~= prev_clst or status ~= prev_st do
      if callBack[1] then -- Есть коллбек.
        local t = table.sremove(callBack, 1)
        sec = t.sec_code
        cb_stts = sec ..": ".. t.session_status
      else
        cb_stts = " "
      end
      prev_trdphs = trd_phase
      prev_trdst = trd_stts
      prev_clst = cl_stts
      prev_st = status
      --file:write(os.date(" %d/%b  %X  "),trd_phase,"  ",trd_stts,"    ",cl_stts,"  ",status,"  ",cb_stts,"\n")
      file:write(string.format("%s\t %s\t %s\t %s\t %s\t %s\n", os.date(" %d/%b %X"), trd_phase, trd_stts, cl_stts, status, cb_stts))
      file:flush()
    end 
    sleep(300)
  end
end