none
Progress Bar RRS feed

  • Question

  • Hello everyone, I apologize for my English
    I wanted to know if it was possible to create a progress bar, and if so you could make if I can see the code

    T.U.

    Thursday, July 9, 2015 9:21 AM

Answers

  • Estou disponibilizando um Minha barra de Progresso, espero that AjUDE.

    ' Small Quest (Pilot)
    ' Copyright © 2015 Filipe Cardoso Martins and Nonki Takahashi.  The MIT License.
    ' Program ID XVP451 <-- Original Program.
    ' Version 1.0
    ' Last update 2015-06-02
    'Version Basic.

    GraphicsWindow.Show()
    GraphicsWindow.Title = "Carregamento 1.0"
    GraphicsWindow.Height = "550" 
    GraphicsWindow.Width = "800"
    larguraBarraCarregamento = 700

    GraphicsWindow.BackgroundColor = "Black"

    GraphicsWindow.FontSize = "15"
    ProgressoFundo = Shapes.AddText("Carregando. . .")
    Shapes.Move(ProgressoFundo, 357, 480)

    GraphicsWindow.BrushColor = "White"
    GraphicsWindow.FillRectangle(50, 450, larguraBarraCarregamento, 30)

    For porcento = 1 to 100
      larguraAtual = porcento / 100 * larguraBarraCarregamento
      tempo1()
      GraphicsWindow.BrushColor = "Chartreuse"
      GraphicsWindow.FillRectangle(50, 450, larguraAtual, 30)
      GraphicsWindow.BrushColor = "Black"
      GraphicsWindow.FontSize = "15"
      Shapes.Remove(Progresso)
      Progresso = Shapes.AddText(porcento + "%")
      Shapes.Move(Progresso, 387, 455)
    EndFor

    Shapes.Remove(ProgressoFundo)
    GraphicsWindow.BrushColor = "DeepSkyBlue"
    GraphicsWindow.FontSize = "15"
    ProgressoFundo = Shapes.AddText("Pronto!")
    Shapes.Move(ProgressoFundo, 380, 480)

    Sub tempo1
      Program.Delay(100)
    EndSub

    ~PhilipRocker

    • Marked as answer by Carmenello Friday, July 10, 2015 2:34 PM
    Thursday, July 9, 2015 3:00 PM
  • Hello Camenello,

    please Show ZSK985. It is a Simulation for a horizontal and vertical progressbar. It needs the LitDef Extentions.  


    Best Regards Martin


    • Marked as answer by Carmenello Friday, July 10, 2015 2:40 PM
    • Edited by martmen Friday, July 10, 2015 2:43 PM
    Friday, July 10, 2015 2:38 PM
  • (translated by Google translator)

    This is an example of a collection of examples of LitDev:

    'Simple graphical progress bar

    For i = 1 To 100
      frac = i/100
      Progress()
      Program.Delay(100)
    EndFor

    Sub Progress
      GraphicsWindow.Show()
      prsize = 20
      prx = prsize
      pry = GraphicsWindow.Height-2*prsize
      prw = GraphicsWindow.Width-2*prsize
      prh = prsize
      GraphicsWindow.BrushColor = GraphicsWindow.BackgroundColor
      GraphicsWindow.FillRectangle(prx,pry,prw,prh)
      GraphicsWindow.PenColor = "Black"
      GraphicsWindow.DrawRectangle(prx,pry,prw,prh)  
      GraphicsWindow.BrushColor = "LightBlue"
      GraphicsWindow.FillRectangle(prx+1,pry+1,frac*(prw-2),prh-2)
    EndSub
      

    • Marked as answer by Carmenello Thursday, July 9, 2015 10:23 AM
    Thursday, July 9, 2015 10:20 AM

All replies

  • (translated by Google translator)

    This is an example of a collection of examples of LitDev:

    'Simple graphical progress bar

    For i = 1 To 100
      frac = i/100
      Progress()
      Program.Delay(100)
    EndFor

    Sub Progress
      GraphicsWindow.Show()
      prsize = 20
      prx = prsize
      pry = GraphicsWindow.Height-2*prsize
      prw = GraphicsWindow.Width-2*prsize
      prh = prsize
      GraphicsWindow.BrushColor = GraphicsWindow.BackgroundColor
      GraphicsWindow.FillRectangle(prx,pry,prw,prh)
      GraphicsWindow.PenColor = "Black"
      GraphicsWindow.DrawRectangle(prx,pry,prw,prh)  
      GraphicsWindow.BrushColor = "LightBlue"
      GraphicsWindow.FillRectangle(prx+1,pry+1,frac*(prw-2),prh-2)
    EndSub
      

    • Marked as answer by Carmenello Thursday, July 9, 2015 10:23 AM
    Thursday, July 9, 2015 10:20 AM
  • Thank you very much, very kind
    Thursday, July 9, 2015 10:24 AM
  • Estou disponibilizando um Minha barra de Progresso, espero that AjUDE.

    ' Small Quest (Pilot)
    ' Copyright © 2015 Filipe Cardoso Martins and Nonki Takahashi.  The MIT License.
    ' Program ID XVP451 <-- Original Program.
    ' Version 1.0
    ' Last update 2015-06-02
    'Version Basic.

    GraphicsWindow.Show()
    GraphicsWindow.Title = "Carregamento 1.0"
    GraphicsWindow.Height = "550" 
    GraphicsWindow.Width = "800"
    larguraBarraCarregamento = 700

    GraphicsWindow.BackgroundColor = "Black"

    GraphicsWindow.FontSize = "15"
    ProgressoFundo = Shapes.AddText("Carregando. . .")
    Shapes.Move(ProgressoFundo, 357, 480)

    GraphicsWindow.BrushColor = "White"
    GraphicsWindow.FillRectangle(50, 450, larguraBarraCarregamento, 30)

    For porcento = 1 to 100
      larguraAtual = porcento / 100 * larguraBarraCarregamento
      tempo1()
      GraphicsWindow.BrushColor = "Chartreuse"
      GraphicsWindow.FillRectangle(50, 450, larguraAtual, 30)
      GraphicsWindow.BrushColor = "Black"
      GraphicsWindow.FontSize = "15"
      Shapes.Remove(Progresso)
      Progresso = Shapes.AddText(porcento + "%")
      Shapes.Move(Progresso, 387, 455)
    EndFor

    Shapes.Remove(ProgressoFundo)
    GraphicsWindow.BrushColor = "DeepSkyBlue"
    GraphicsWindow.FontSize = "15"
    ProgressoFundo = Shapes.AddText("Pronto!")
    Shapes.Move(ProgressoFundo, 380, 480)

    Sub tempo1
      Program.Delay(100)
    EndSub

    ~PhilipRocker

    • Marked as answer by Carmenello Friday, July 10, 2015 2:34 PM
    Thursday, July 9, 2015 3:00 PM
  • Hello Camenello,

    please Show ZSK985. It is a Simulation for a horizontal and vertical progressbar. It needs the LitDef Extentions.  


    Best Regards Martin


    • Marked as answer by Carmenello Friday, July 10, 2015 2:40 PM
    • Edited by martmen Friday, July 10, 2015 2:43 PM
    Friday, July 10, 2015 2:38 PM
  • martmen're always better : D
    Friday, July 10, 2015 2:40 PM