Communauté Play-Arena


    Mon_PipBoy_3.0.20_2 perso @ sciencinfo

    Partagez
    avatar
    sciencinfo

    Nombre de messages : 231
    Age : 27
    OS Principal : Linux
    Script OLED : Autre script LCDHype

    Mon_PipBoy_3.0.20_2 perso @ sciencinfo

    Message par sciencinfo le Mar 23 Fév 2010 - 22:22

    Salut tout le monde,
    J'ai un léger soucis dans mon script que je suis en train de créer :
    Ça me crée des petites zones noires alors que je n'en demande pas (et on arrive pas à lire ce qui est marqué donc embêtant), voir les photos :
    sans mots :

    avec mots :


    Voilà le code de mon Mode2.Monitoring :
    Code:

    /*Mon_PipBoy_3.0.20_2*/

    #Header
      %Common.SetPriority(1000)
      %LCD.Gfx_SetOverlayMode()
      %Param.RenderMode(Full)
      %Graph.SetTextArea(0,0,256,32)
     
      %Assign(Page, 14)
      %Assign(vInfo, 0)
      %Assign(ScreenSaverOn,0)
     
     %Graph.Font('Small Fonts',7,1)
     /%Param.RenderMode(Simple)/
     /%Common.SetPriority(1000)/
     %Param.AvoidPluginCleanUp()
     
     %CleanUp.Free(LCDx)
     %CleanUp.Free(Steps)
     %CleanUp.Free(StartX)
     %CleanUp.Free(GetDL)
     %CleanUp.Free(SpeedDL)
     
     %DefVar(LCDx,Global=128)
     %DefVar(Steps,Global  =1)
     %DefVar(SpeedDL,Global=100)
     %DefVar(Start,Global=%System.Uptime())
     %DefFunc(Time,Global=%System.Uptime())
     %DefList(DLPeaks,Global)
     %DefVar(RTime,Global=0)
     /%DefFunc(GetDL,Global=100 ) /
     %DefFunc(GetDL,Global=%CpuUsed() )
     %DefVar(DL,Global=0)
     %DefVar(DLRatio,Global=0) 
     %DefVar(DLY,Global=0)
     %DefVar(StartX,Global=60)
     %DefVar(StartY,Global=31)
     %CleanUp.Free(Height)
     %DefVar(Height,Global=22)
     %DefVar(MaxSteps,Global=%Div(%Dec(%LCDx(),%StartX()),%Steps()))
     %DefVar(MaxLoad,Global=0)
     


     %Graph.SetInvertArea(1,1,129,7)
     /%Graph.SetInvertArea(65, 1, 125, 7)/
     %Graph.SetInvertArea(133, 1, 189, 7)
     %Graph.SetInvertArea(193, 1, 254, 7)
     
     %Graph.Rect( 0 , 0 , 60 , 31 , 1 , 0 )
     %Graph.Rect( 60 , 0 , 110 , 31 , 1 , 0 )
     %Graph.Rect( 112 , 0 , 170 , 31 , 1 , 0 )
     %Graph.Rect( 172 , 0 , 255 , 31 , 1 , 0 )

    #EndHeader

    #TextMode
     /insert textmode script code here/
    #EndTextMode

    #GfxMode

    %If((%CpuTemp() >= %CpuAlert1() ) OR (%GpuTemp() >= %GpuAlert1() ))
      Then
          {
          %Assign(ScreenSaverOn,0)
          }
    %If((%CpuTemp() >= %CpuAlert1() ) AND (%GpuTemp() >= %GpuAlert1() ))
      Then
          {
          %Assign(ScreenSaverOn,0)
          }
    %If((%CpuTemp() < %CpuAlert1() ) AND (%GpuTemp() < %GpuAlert1() ))
      Then
          {
          %Assign(ScreenSaverOn,1)
          }

     %Control()
     %Popups()
     %Core()
     %Gaming()
     %AutoChange()
     

     / Allume le LCD et le touchpad au cas ou /
     %LCD.LightControl(1)
     

      /%Graph.Rect(0,0,127,31,0,0)/

      %Assign(DL, %GetDL())
      %Assign(RTime,%Dec(%Time(),%Start()))
     

      %If(%RTime() > 250)Then{
          %Assign(DLRatio,%DL())   
          %Assign(Start,%Time())
          %Assign(DLY,%Round(%Div(%Mul(%DLRatio(),%Height()),%SpeedDL())))
          %If(%DLY() > %Dec(%Height(),1)) Then { %Assign(DLY,%Dec(%Height(),1)) }   
          %If(%List.Count(DLPeaks) > %MaxSteps()) Then { %List.Delete(DLPeaks,0) }
       
          %List.Add(DLPeaks,%DLY())
       
      }

      %Param.OverlayMode()
      %If(%List.Count(DLPeaks) > 0) Then
      {
          %Graph.Pen(%StartX(),%Dec(%Dec(%StartY(),1),%DLPeaks(0)),1)
          %Loop.For(i,1,%List.Count(DLPeaks),1)
          {
            %Graph.LineTo(%Inc(%StartX(),%Mul(%Steps(),%i())),%Dec(%Dec(%StartY(),1),%DLPeaks(%Dec(%i(),1))),1)
            %Graph.Pen(%Inc(%StartX(),%Mul(%Steps(),%i())),%Dec(%Dec(%StartY(),1),%DLPeaks(%Dec(%i(),1))),1)
          }
      }

    J'ai modifié les zones en faite pour agrandir la dernière et rétrécir la 1ère et pour le moment j'ai ça :
    Code:

     %Graph.Rect( 0 , 0 , 60 , 31 , 1 , 0 )
     %Graph.Rect( 60 , 0 , 110 , 31 , 1 , 0 )
     %Graph.Rect( 112 , 0 , 170 , 31 , 1 , 0 )
     %Graph.Rect( 172 , 0 , 255 , 31 , 1 , 0 )

    Et si je mets ça :
    Code:

     %Graph.Rect( 0 , 0 , 60 , 31 , 1 , 0 )
     %Graph.Rect( 60 , 0 , 120 , 31 , 1 , 0 )
     %Graph.Rect( 120 , 0 , 180 , 31 , 1 , 0 )
     %Graph.Rect( 180 , 0 , 255 , 31 , 1 , 0 )
    ça donne ça :


    Donc tout bouge. Quand je change les chiffres, les zones noires suivent Sad !
    Si vous avez besoin de d'autres pages de codes, je vous les fournirais sans soucis.
    Mes autres pages :
    00 Logo
    01 Init
    02 Configuration
    03 Core
    04 Popup.ScreenSaver
    05 Popup.LCD_Off
    06 Popup.Infos
    07 Popup.Temps
    08 Popup.Menu
    09 Popup.Winamp.2
    10 Popup.Winamp.1
    11 Mode2.Monitoring

    Merci d'avance.
    avatar
    Stouf

    Chef des rebelles

    Nombre de messages : 1357
    Age : 38
    OS Principal : Seven
    Script OLED : Autre script LCDHype

    Re: Mon_PipBoy_3.0.20_2 perso @ sciencinfo

    Message par Stouf le Mar 23 Fév 2010 - 22:56

    Jettes un oeil à cette partie :
    Code:
     %Graph.SetInvertArea(1,1,129,7)
     /%Graph.SetInvertArea(65, 1, 125, 7)/
     %Graph.SetInvertArea(133, 1, 189, 7)
     %Graph.SetInvertArea(193, 1, 254, 7)
    Ton problème est la...

      La date/heure actuelle est Ven 15 Déc 2017 - 16:56