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

local stopped = false

function OnStop(flag)
    stopped = true
end

function f11()
   local fpath = getScriptPath() .. "\\tos11.log"
   local f = io.open(fpath, "w+")
   local fstr = string.rep("asd,qwe\n",500)
   f:write(fstr)
   f:flush()
   f:close()
   f = nil
   fstr = nil
end

function main()
    while not stopped do
      f11()
      sleep(100)
    end
end

local stopped = false

function OnStop(flag)
    stopped = true
end

function f11()
   local fpath = getScriptPath() .. "\\tos11.log"
   local f = io.open(fpath, "w+")
   f:close()
   f = nil
end

function main()
    while not stopped do
      f11()
      sleep(100)
    end
end

function RF()
   return function(index)
      if C(index) then
         ind, n, l = getCandlesByIndex (Settings.tag, 0, index - 1, 1)
         return ind[0].close
      end
      return nil
   end
end

' Функция заполнить таблицу
' -----------------------------
FUNC FILL_TBL()
   val1 = bar_time
   val2 = signal_pos
   val3 = current_pos
   val4 = buy_quantity
   val5 = sell_quantity
   val6 = trans_id
   val7 = pos_bal
   val8 = status

   map1=create_map()[IMG]c:\Users\ВГ\Pictures\portf.JPG[/IMG]
   map1=SET_VALUE(map1,"val1",val1)
   map1=SET_VALUE(map1,"val2",val2)
   map1=SET_VALUE(map1,"val3",val3)
   map1=SET_VALUE(map1,"val4",val4)
   map1=SET_VALUE(map1,"val5",val5)
   map1=SET_VALUE(map1,"val6",val6)
   map1=SET_VALUE(map1,"val7",val7)
   map1=SET_VALUE(map1,"val8",val8)

   DELETE_ALL_ITEMS()
   add_item(1,map1)
   BGC = "DEFAULT_COLOR"
   FC = "DEFAULT_COLOR"
   if error <> 0 or check_deal >= 10 or check_frun <> 0
      BGC = "RGB(250,200,150)"
   end if
   if status = "STOP"
      BGC = "RGB(250,150,150)"
   end if
   if trade_on_of = "0"
      FC = "RGB(50,200,50)"
   end if
   SET_ROW_COLOR_EX(1, BGC, "DEFAULT_COLOR", FC, "DEFAULT_COLOR")
   tt = t_time(0)
   WRITELN(logfile_path, signal_pos  & "," & current_pos  & "," & pos_bal  & "," & buy_quantity  & "," & sell_quantity  & "," & last_price  & "," & last_time  & "," & best_bid  & "," & best_offer  & "," & status)
   WRITELN(logfile_path, "END"  & "," & tt)

END FUNC