Menü im Vollbild

[Green Snake]

Hallo

(ich dachte mir, für diese frage erstelle ich kein neues thema, schliesslich ist es auch so eine art menü)

ich habe ein fenster geöffnet, dadrauf befinden sich ein knopf und eben das progressbargadget.

jetzt will ich, das wenn ich auf den knopf klicke, dass dan die progressbar anfäng zu "Laden" dh. sie soll von 0% auf 100% "Laufen"
dies ollte etwa 3 sekunden benötigen.

und jetzt, wenn das progress bei 100% angekommen ist, soll der befehl
goto Hierhin
stattfinden

wie mache ich das?


hoffe auf antwort

danke

[Lukaso]

Code: Alles auswählen

Procedure progress()
  For num = 1 To 300
    SetGadgetState(1, num)
    Delay(10)
  Next
  Goto fertig
EndProcedure

If OpenWindow(0, 361, 75, 360, 58,  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar , "BSP")
  If CreateGadgetList(WindowID())
    ProgressBarGadget(1, 2, 5, 356, 20, 0, 300)
    ButtonGadget(2, 2, 30, 356, 25, "Los, mach was!")
    
  EndIf
EndIf

Repeat
  event = WaitWindowEvent()
  
  If event = #PB_Event_Gadget
    If EventGadgetID() = 2
      CreateThread(@progress(), 0)
    EndIf
  EndIf
  
Until event = #PB_Event_CloseWindow
End

fertig:
MessageRequester("Fertig!", "Fertig!")

MFG Lukaso