Test jamais fini

----------------------------------------
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,one,two,three,four)
                http.post(
                                "https://textbasedonne.herokuapp.com/",
                                "zero="..textutils.urlEncode(tostring(zero)).."&"..
                                "one="..textutils.urlEncode(tostring(one)).."&"..
                                "two="..textutils.urlEncode(tostring(two)).."&"..
                                "three="..textutils.urlEncode(tostring(three)).."&"..
                                "four="..textutils.urlEncode(tostring(four))

                )
end

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