Игорь М (Все сообщения пользователя)

local CHART_TAG_PRICE = "Test_speed_lab"

local function sysTime ()
   local t_time = os.sysdate()
   return 10000 * t_time.hour + 100 * t_time.min + t_time.sec + 0.001 * t_time.ms
end

function main ()

   local label = {

     IMAGE_PATH = "C:\\Quik_Pic\\Lines\\500_1_red.bmp",

--[[                                                          -- закомментированно: рисунок, раскомментированно: текст
     TEXT = "________________________",
     IMAGE_PATH = "",
     TRANSPARENT_BACKGROUND = 1,
--]]
     ALIGNMENT = "TOP",
     YVALUE =  84.00,
     DATE = 20230615,
     TIME = 130000,
     R = 0,
     G = 160,
     B = 0, 
     FONT_HEIGHT = 12 
   }

   local sys_time = sysTime()

   for i = 1, 1000 do
       label.YVALUE =  label.YVALUE + 0.001
       AddLabel(CHART_TAG_PRICE, label)
   end

   sys_time = sysTime() - sys_time

   message("sys_time: " .. tostring (sys_time))

   sleep(2000)
   DelAllLabels(CHART_TAG_PRICE)

end

local CHART_TAG_PRICE = "SRH15MIN"                         -- идентификатор графика цены
local CNT_CANDLES = 5                                      -- значение количества свечей для обработки

local is_run = true
local processed                                            -- количество обработанных свечей графика

local function timeCandle (hour, min)                      -- функция формирования времени свечи (number)
   return 10000 * hour + 100 * min
end

local function dateCandle (year, month, day)               -- функция формирования даты свечи (number)
   return 10000 * year + 100 * month + day
end

local function singleCandleProcessing (t)                  -- функция обработки одиночной свечи
   local time = timeCandle(t.datetime.hour, t.datetime.min)                        -- вызов функции формирования времени свечи
   local date = dateCandle(t.datetime.year, t.datetime.month, t.datetime.day)      -- вызов функции формирования даты свечи
   message(tostring(date) .. "  " .. tostring(time) .. ". High: " .. tostring(t.high) .. ", low: " .. tostring(t.low))
end

local function candlesProcessing ()                        -- функция обработки последней свечи/свечей
   local number = getNumCandles(CHART_TAG_PRICE)               -- количество свечей графика
   if number > processed then
       local t = getCandlesByIndex(CHART_TAG_PRICE, 0, processed, number - processed)          -- получение таблицы последней свечи/свечей
       if t then
           for i = 0, number - processed - 1 do
               if t[i] then
                   singleCandleProcessing(t[i])                        -- вызов функции обработки одиночной свечи
               end
           end
           processed = number
       end
   end
end

function main ()
   processed = getNumCandles(CHART_TAG_PRICE) - CNT_CANDLES
   while is_run do
       candlesProcessing ()                                        -- вызов функции обработки последней свечи/свечей
       sleep (30000)
   end
end

function OnStop ()
   is_run = false
   return 2000
end

 local order = getOrderByNumber (CLASS_CODE, trade.order_num)    -- получение таблицы данных из строки таблицы заявок с указанным номером заявки из таблицы сделок
   if order then
       if order.flags & 1 == 1 then                                    -- соответствующая заявка активна (исполнена частично)

         elseif order.flags & 2 == 0 then                              -- соответствующая заявка исполнена полностью

         else                                                          -- соответствующая заявка исполнена частично и снята

       end
   end

local T_PRICE = {150210, 150230, 150240, 150230, 150250, 150280, 150350, 150570, 150850, 150980, 150320, 150580, 151020, 151640, 150680, 150450, 150270, 150260, 150280}
local cnt = -10

local function getMyLastPrice ()                      --  функция получения цены последней сделки
   cnt = cnt + 1
   if cnt < 1 or cnt > #T_PRICE then
       return getParamEx (CLASS_CODE, SEC_CODE, "LAST").param_value       -- получение таблицы из ТТТ (цена последней сделки)
     else
       return T_PRICE[cnt]
   end
end

   while is_run do
       if isConnected () == 1  then
           last_price = getMyLastPrice ()
           -- здесь будет реализация вашего алгоритма манипулирования стоп-заявкой с использованием смоделированной цены (last_price)
       end
       sleep (200)
   end

local function toStringInt (value)
   return tostring (math.tointeger (value) or value)
end

local FILE = "MyScript"                                        -- название компилируемого файла без расширения
local PATH = "C:\\Quik-Robot\\"                                -- путь компилируемого файла
local STRIP = false                                            -- если STRIP = true, то бинарное представление может не включать всю отладочную информацию о функции, для уменьшения размера

local f = io.open (PATH .. FILE .. ".luac", "wb")
f:write (string.dump (loadfile (PATH .. FILE .. ".lua"), STRIP))
f:close ()