Kolossi (Автор тем)

if isConnected()==1 then
  message("IsConnected "..tostring(Isconnected()))
  csi,error_desc=CreateDataSource("INDX", "IMOEX", INTERVAL_D1)
...
...

is_run=true
function main()
   ds,error_desc=CreateDataSource("TQBR", "GAZP", INTERVAL_TICK)
   if error_desc~=nil and error_desc~="" then message(" Source error==>" .. error_desc) end
   local nn=0
   while ds:Size()<5 and nn<100 do
      sleep(100) nn=nn+1
   end
   message("Data "..tostring(ds:Size()))
   ds:SetEmptyCallback()

   while is_run do   
      sleep(100)
   end
end

function OnStop(stop_flag)
   ds:Close()
   is_run=false
end

function cyrcle(c) -- крутилок
   local t=os.time()
   if c=="|" then 
      return "/", t
   elseif c=="/" then 
      return "--", t
   elseif c=="--" then 
      return "\\", t
   elseif c=="\\" then
      return "|", t
   else
      return "" ,t
   end    
end

-- Пример (цветовые функции здесь не привожу)
go,gt="",0
...
...
function main()
 is_run=true
 ...
 while is_run do
  go,gt=cyrcle(go)
  ...
  ...
  ...
  ...  
  SetCell(kt_id,x,y,go) -- вывод в ячейку таблицы
  --раскраска крутилка
  if go=="/" or go=="\\" then
   color(x,y,kt_id,"Lemon")
  else
   color(x,y,kt_id,"Salad")
  end
  if os.time()-gt>60 then color(x,y,kt_id,"Red") end 
  ...
  sleep(50)
 end
end

   local a="09:15:18"
   local b=string.gsub(a,":","")
   local c=tonumber(b)
   local d=tonumber(string.gsub(a,":",""))
   message(tostring(c).." "..tostring(d))