test

----------------------------------------
ClefWeb = "YJFZ86"
ModemName = "right"
NumberMax = 500
MonitorName = "left"
SleepTimer = 1
PosX = 1
PosY = 2
NumberQlt = 0
BoxContent = {}
BoxConnected = {}
RequestEnergy = {}
RequestEnergyStored = {}
ModemConnexion = peripheral.wrap(ModemName)
MonitorConnexion = peripheral.wrap(MonitorName)
TableName = ModemConnexion.getNamesRemote()
MonitorConnexion.clear()
----------------------------------------
function reach()
  TableName = ModemConnexion.getNamesRemote()
  NumberQlt = 0
  for Number=0,NumberMax do

    if(TableName[Number] == nil)then
    --TableName[Number] = "right"
    else
      NumberQlt = NumberQlt + 1
      BoxContent[Number] = TableName[Number]
    end
  end
end

function connexion()
  for NumberZero=1,NumberQlt do
    BoxConnected[NumberZero] = peripheral.wrap(BoxContent[NumberZero])
  end
end

function Request()
  for NumberZero=1,NumberQlt do
    RequestEnergy[NumberZero] = BoxConnected[NumberZero].getEnergy()
    RequestEnergyStored[NumberZero] = BoxConnected[NumberZero].getMaxEnergy()
  end
end

function Affi()
MonitorConnexion.clear()
PosY = 2
    for NumberZero=1,NumberQlt do
        MonitorConnexion.setCursorPos(PosX,PosY)
        MonitorConnexion.write(math.floor(RequestEnergy[NumberZero] / RequestEnergyStored[NumberZero] * 100).." / "..TableName[NumberZero])
        PosY = PosY + 1
        print(math.floor(RequestEnergy[NumberZero] / RequestEnergyStored[NumberZero] * 100).." / "..TableName[NumberZero])
    end
end

function post(zero)
                http.post(
                                "https://textbasedonne.herokuapp.com/",
                                "zero="..textutils.urlEncode(tostring(zero))

                )
end

function VariText()
      VariableExtra = {
                   ClefWeb,
                   NumberQlt,
                   TableName,
                   RequestEnergy,
                   RequestEnergyStored,
                  }

       VariableComplete = textutils.serialize(VariableExtra)
       print(VariableComplete)
end

while true do
  reach()
  connexion()
  Request()
  Affi()
  VariText()
  for NumberZero=1,NumberQlt do
    --post(ClefWeb,NumberQlt,TableName[NumberZero],RequestEnergy[NumberZero],RequestEnergyStored[NumberZero])
    post(VariableComplete)
  end
  sleep(SleepTimer)
end