Teil 6: Eine kleine Spielerei... Die Fortschrittsanzeige

 

 
    
If OpenWindow(0,100,100,500,400,"Fenster 1",#PB_Window_SystemMenu)

  If CreateGadgetList(WindowID(0))
    ButtonGadget(1,20,20,100,20,"Knopf 1")
    ButtonGadget(2,20,80,100,20,"Knopf 2")

    ListViewGadget(3,150,20,330,80)
    StringGadget(4,20,120,360,20,"")
    ButtonGadget(5,400,120,80,20,"Übernehmen")
    ProgressBarGadget(6,20,160,360,20,1,100000)
    ButtonGadget(7,400,160,80,20,"Start")
  EndIf

  Repeat
    EventID = WaitWindowEvent()
      If EventID = #PB_Event_CloseWindow 
        Quit = 1
      EndIf
      If EventID = #PB_Event_Gadget
        If EventGadget()=1
          MessageRequester("Achtung!","Knopf 1 wurde gedrückt !",0)
          AddGadgetItem(3,-1,"Knopf 1 wurde gedrückt !")
        EndIf
        If EventGadget()=2
          MessageRequester("Achtung!","Knopf 2 wurde gedrückt !",0)
          AddGadgetItem(3,-1,"Knopf 2 wurde gedrückt !")
        EndIf
        If EventGadget()=5
          a$=GetGadgetText(4)
          AddGadgetItem(3,-1,"Ihre Eingabe :"+a$)
        EndIf

          If EventGadget()=7
            For a=1 To 100000
           SetGadgetState(6,a)
            Next
          EndIf
     
EndIf
 
Until Quit=1
EndIf
End

 

Zur Entspannung mal eine kleine Spielerei: eine Grafische Fortschrittanzeige. Diese Anzeige aktivieren wir mit dem sogenannten ProgressbarGadget. Die Parameter: Nummer des Gadgets, x-Position, y-Position, Breite, Tiefe, Minimum, Maximum (Die Anzeige arbeitet in den vorgegebenen Grenzen, in unserem Fall 1-100000), Flag.

Zusätzlich wird ein ButtonGadget mit der Nummer 7 hinzugefügt. Nach Drücken dieses Schalters soll die Fortschrittsanzeige einmal von 1 bis 100000 laufen.

Um den Status des ProgressbarGadget zu bestimmen, benutzen wir den Befehl SetGadgetState. Der Befehl SetGadgetState(6,100) bedeutet also: Setze den Status des Gadget 6 auf 100. Um die Anzeige also einmal komplett bis 100000 durchlaufen zu lassen, benutzen wir die For-Next-Schleife.

For a=1 to 100000

  SetGadgetState(6,a)

Next

 

Bedeutet: Setze a=1, führe Befehle bis zum Schlüsselwort Next aus. Setze a=2, führe Befehle bis zum Schlüsselwort Next aus............Setze a=100000, führe Befehle bis zum Schlüsselwort Next aus.

 

Resultat nach Drücken des Schalters Start:

WEITER