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

Settings={
sec ="ind2",  --идентификатор инструмента 2-го графика
Name = 'nk_ind',
}
-------
function OnCalculate(i)
   if i==Size() then
      local N=getNumCandles (Settings.sec) ;
      if N>3 then
         local t=getCandlesByIndex(Settings.sec,0,N-3,3); --последние 3 свечи 2-го графика
         local Hi2,Hi1,Hi0=t[0].high,t[1].high,t[2].high;
      --------------------------
         t=getCandlesByIndex(Settings.sec,0,0,3);   --первые 3 свечи 2-го графика
         local H1,H2,H3=t[0].high,t[1].high,t[2].high;

         message("1="..H(1)..",2="..H(2)..",3="..H(3).."....,i-2="..H(i-2)..",i-1="..H(i-1)..",i="..H(i).."\n"..
         "1="..H1..",2="..H2..",3="..H3..",i-2="..Hi2..",i-1="..Hi1..",i="..Hi0.."\n");
      end
   end
   return
end
-----
function Init()
 Settings.line={};
   Settings.line[1] =    {Name = "C",Color = RGB(0,255,0),      Type =2,Width = 2   };
   return 1;
end

is_run = true

function OnInit()
   KomCentrID = AllocTable()
   for i=1,20 do  AddColumn (KomCentrID,i, "столб."..tostring(i), true, QTABLE_STRING_TYPE,8)  end --надо так
 --  AddColumn (KomCentrID, 10, "столб.10", true, QTABLE_STRING_TYPE,8)   AddColumn (KomCentrID, 20, "столб.20", true, QTABLE_STRING_TYPE,8)    -- а не так
   CreateWindow(KomCentrID)
   SetWindowPos(KomCentrID,110,250,1100,500)
   InsertRow(KomCentrID,-1)
end

function main()

   while is_run do
      Body()
     sleep(100)
   end
end

function OnStop()
    is_run = false
end

function Body()
InsertRow(KomCentrID,1)
SetCell(KomCentrID, 1,10,  "COMP")
SetCell(KomCentrID, 1,20,  "COMP")
SetColor(KomCentrID,1,20,RGB(217,255,217),RGB(1,1,1),RGB(220,220,220),RGB(0,0,0))
SetColor(KomCentrID,1,10,RGB(255,255,0),RGB(1,1,1),RGB(220,220,220),RGB(0,0,0))
end

isRun=0;  --флаг завершения функции main
fstop=true;  -- флаг остановки скрипта при запуске по расписанию
local Ts={"12:53:00","12:54:00","12:55:00","12:56:00","12:57:00","12:58:00","12:59:00",}  -- расписание
for i=1,#Ts do local x=Ts[i] Ts[i]=60*(60*string.sub(x,1,2)+string.sub(x,4,5))+string.sub(x,7,8); end
------------
function main()
   local jT,x=0,0;
--------------------------
   while isRun do
      if #Ts>jT then  local dt=-1;
         if fstop then fstop=false;  -- в колбеках первой строкой поставить if fstop then return end
            x= getInfoParam("SERVERTIME");
            local z=60*(60*string.sub(x,1,2)+string.sub(x,4,5))+string.sub(x,7,8);
            while #Ts>jT and 0>dt do jT=jT+1; dt=Ts[jT]-z; end
         end
         if dt>=0 then message(x.." до старта "..dt.."сек"); sleep(1000*dt); else sleep(1); end
      end
------------
      if fstop==false then  x= getInfoParam("SERVERTIME");    message("старт "..x.." fstop="..tostring(fstop) ); end
 -- код скрпита
      fstop=true;  --- остановить скрипт
      if fstop then    x= getInfoParam("SERVERTIME");  message("стоп  "..x.." fstop="..tostring(fstop) ); end
   end
end

local isRun=0;  --флаг завершения функции main
local fstop=true;  -- флаг остановки скрипта при запуске по расписанию
local Ts={"12:53:00","12:54:00","12:55:00","12:56:00","12:57:00","12:58:00","12:59:00",}
for i=1,#Ts do local x=Ts[i] Ts[i]=60*(60*string.sub(x,1,2)+string.sub(x,4,5))+string.sub(x,7,8); end
------------
function main()
   local jT,x=0,0;
   while isRun do
      if #Ts>jT then  local dt=-1;
         if fstop then fstop=false;  -- в колбеках первой строкой поставить if fstop then return end
            x= getInfoParam("SERVERTIME"); --      local x=os.date("%X");
            local z=60*(60*string.sub(x,1,2)+string.sub(x,4,5))+string.sub(x,7,8);
            while #Ts>jT and 0>dt do jT=jT+1; dt=Ts[jT]-z; end
         end
         if dt>=0 then message(x.." до старта "..dt.."сек"); sleep(1000*dt); else sleep(1); end
      end
      if fstop==false then  x= getInfoParam("SERVERTIME");    message("старт "..x.." fstop="..tostring(fstop) ); end
  -- исполнение скрпита
      fstop=true;  --- остановить скрипт
      if fstop then    x= getInfoParam("SERVERTIME");  message("стоп  "..x.." fstop="..tostring(fstop) ); end
   end
end