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
|
|
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: |
|
![]() |