ecran_testT

--config
rednet.open("back")
local ecran=peripheral.wrap("top")
local ecranR=peripheral.wrap("monitor_8")
local nbm = 2 --1 a 6

local data100={} --pour reactor
local data={}    --pour les turbins
data[1]={}
data[2]={}
data[3]={}
data[4]={}
data[5]={}
data[6]={}
data[7]={}
data[8]={}

-- function de recuperation des infos envoye en wifi
function ecoute()
    while true do
        local event, id, ID, TablData = os.pullEvent("modem_message")
        if ID==1 or ID==8 then
            data[ID]=textutils.unserialize(TablData)
        elseif ID==100 then
            data100=textutils.unserialize(TablData)
        end
    end
end

-- function d'affichage les donners des turbines
function affiche()
    ecran.setBackgroundColor(colors.black)
    ecran.clear()
    print("attente ...")
    ecran.setCursorPos(20,10)
    ecran.write("attente .")
    os.sleep(1)
    ecran.write(".")
    os.sleep(1)
    ecran.write(".")
    os.sleep(1)
    ecran.clear()
    while true do
        local i=1
        for i=1,nbm do --data[1] a data[6]
            --donner ou pas
            --chois de la position
            local x=1 y=1
            if i==1 then
            x=1 y=1
            elseif i==2 then
            x=8 y=1
            elseif i==3 then
            x=16 y=1
            elseif i==4 then
            x=1 y=27
            elseif i==5 then
            x=8 y=27
            elseif i==6 then
            x=16 y=27
            end

            --debut de l'affiche
            ecran.setTextColor(colors.white)
            ecran.setCursorPos(y,x)   --**--
            ecran.write("turbine "..i)
            --l'activiter
            if data[i]["gActive"]==true then
                line(x ,y+1 ,6 ,1, colors.green)
                ecran.setCursorPos(y,x+1)
                ecran.write("Active")
                ecran.setBackgroundColor(colors.black)
                ecran.write("   ")
            else
                line(x+8 ,y+1 ,8 ,1, colors.red)
                ecran.setCursorPos(y,x+1)
                ecran.write("Desactive ")
                ecran.setBackgroundColor(colors.black)
            end
            --l'engagement
            if data[i]["gInductor"]==true then
                line(x+10 ,y+1 ,7 ,1, colors.green)
                ecran.setCursorPos(y+10,x+1)
                ecran.write("Engager")
                ecran.setBackgroundColor(colors.black)
                ecran.write("   ")
            else
                line(x+10 ,y+1 ,10 ,1, colors.red)
                ecran.setCursorPos(y+10,x+1)
                ecran.write("Desengager")
                ecran.setBackgroundColor(colors.black)
            end
            ecran.setTextColor(colors.white)
            ecran.setCursorPos(y,x+2)  --**--
            ecran.write("Rotor : ")

            if data[i]["gSpeed"]<800 then
                ecran.setTextColor(colors.red)
            elseif data[i]["speed"]<1000 then
                ecran.setTextColor(colors.blue)
            elseif data[i]["speed"]<1700 then
                ecran.setTextColor(colors.red)
            elseif data[i]["speed"]<1900 then
                ecran.setTextColor(colors.blue)
            else
                ecran.setTextColor(colors.red)
            end
            ecran.setCursorPos(y+8,x+2)
            ecran.write(number_format(data[i]["gSpeed"]).." RPM     ")

            ecran.setTextColor(colors.white)
            ecran.setCursorPos(y,x+3)  --**--
            ecran.write("Prod  : "..number_format(data[i]["gProductLastTick"]).." RF/t     ")

            ecran.setCursorPos(y,x+4)  --**--
            ecran.write("Buffer : "..number_format(data[i]["gBuffer"]).." RF      ")
            ecran.setCursorPos(y+20,x+4)
            ecran.write(math.ceil(data[i]["gBuffer"]/10000).."%  ")

            os.sleep(0.5)
        end
    end
end

-- function d'affichage des donners du rector
function afficheReactor()
    ecranR.setBackgroundColor(colors.black)
    ecranR.clear()
    print("attente ...")
    ecranR.setCursorPos(15,10)
    ecranR.write("attente .")
    os.sleep(1)
    ecranR.write(".")
    os.sleep(1)
    ecranR.write(".")
    os.sleep(1)
    ecranR.clear()
    while true do
        --affichage de l'activiter
        ecranR.setCursorPos(1,1)
        if data100["active"]==true then
            ecranR.setTextColor(colors.green)
            ecranR.write("Active   ")
        else
            ecranR.setTextColor(colors.red)
            ecranR.write("Desactive")
        end

        --affichage des donnes
        ecranR.setTextColor(colors.white)
        ecranR.setCursorPos(1,2) --le stock de yell en ingot
        ecranR.write("Fuel   : "..number_format(data100["fuel"]/1000).." yell")
        ecranR.setCursorPos(1,3) --le stock de yell en %
        ecranR.write("Stock  : "..math.ceil(data100["fuel"]/data100["fuelMax"]*100).."%")
        ecranR.setCursorPos(1,4) --production en mb/t
        ecranR.write("Prod   : "..number_format(data100["prod"]).." mb/t   ")
        ecranR.setCursorPos(1,5) --comsomation de yell en mb
        ecranR.write("Conso  : "..number_format(data100["conso"]))
        ecranR.setCursorPos(16,5)
        ecranR.write(" mb/t de yell")
        ecranR.setCursorPos(1,6) --temperature en C
        ecranR.write("temp   : "..number_format(data100["temp"]).." C  ")
        ecranR.setCursorPos(1,7) --reactiviter %
        ecranR.write("reacty : "..number_format(data100["rea"]).." %  ")

        -- affichage de l'etat des rods
        for i=1,data["rod"] do
            ecranR.setCursorPos(1,i+7)
            ecranR.write("Rod "..i.." : ")
            ecranR.setCursorPos(8,i+7)
            ecranR.write(data100["rod"..i].."%")

            ecranR.setCursorPos(12,i+7)
            ecranR.setBackgroundColor(colors.green)
            ecranR.write("+")
            ecranR.setBackgroundColor(colors.black)
        end
        os.sleep(0.5)
    end
end

function onoff()
local type
local a
    while true do
        local e, bt, xp, yp = os.pullEvent("monitor_touch")
        if bt=="top" then
        if (yp<8 and xp==2 ) then
            type ="turbin 1" a="actif"
        elseif xp>10 and xp<18 and yp==2 then
            type ="turbin 1" a="engag"
        elseif xp<8 and yp==9 then
            type ="turbin 2" a="actif"
        elseif xp>10 and xp<18 and yp==9 then
            type ="turbin 1" a="engag"
        --elseif xp<8 and yp==16 then
        --  type ="turbin 3"
        --elseif xp>27 and xp<35 and yp==2 then
        --  type ="turbin 4"
        --elseif xp>27 and xp<35 and yp==9 then
        --  type ="turbin 5"
        --elseif xp>27 and xp<35 and yp==16 then
        --  type ="turbin 6"
        end
        rednet.broadcast(type,a)
        os.sleep(0.5)
        end
    end
end

function onoffR()
local type
    while true do
        local e, bt, xp, yp = os.pullEvent("monitor_touch")
        if bt=="monitor_8" then
            if yp==2 then
                type ="reactor"
            elseif yp==9  then
                type ="rod 1 +"
            elseif yp==10 then
                type ="rod 2 +"
            end
            rednet.broadcast(type)
            os.sleep(0.5)
        end
    end
end

--crestion de rectangle de couleur
function line(x ,y ,long ,larg, color_font)
    ecran.setBackgroundColor(color_font)
    for yp=y, y+larg-1 do
        ecran.setCursorPos(x,yp)
        ecran.write(string.rep(" ", long))
    end
end

--bar de progresion
function prog(x ,y ,long ,larg, valmin, valmax ,color_bar ,color_font)
    line(x ,y ,long ,larg, color_font)
    local bar = math.floor((valmin/valmax)*long)
    line(x ,y ,bar ,larg, color_bar)
end

-- function pour transformer 9876543 en 9 876 543
function number_format(n)
  local test=mille(n)
  if test.Mille==0 then
    return math.floor(n)
  else
    test.Mille=mille(test.Mille)
    if test.Mille.Mille==0 then
      return test.Mille.Cent.." "..cent(test.Cent)
    else
      return test.Mille.Mille.." "..cent(test.Mille.Cent).." "..cent(test.Cent)
    end
  end
end

-- function pour etre sur d'avoir trois chiffre (99 devient 099, 9 devient 009)
function cent(n)
  n=math.floor(n)
  if n>99 then
    return n
   elseif n>9 then
    return "0"..n
   else
    return "00"..n
   end
end

-- creer un objet avec les centaine d'un coté les millier de l'autre
function mille(n)
  if n<1000 then
    return {Mille=0,Cent=n}
  else
    return {Mille=math.floor(n/1000),Cent=n%1000}
  end
end

parallel.waitForAll(ecoute,affiche)