Anfängerfrage: ProgressBarGadget(...)

[Joel]

ah gute idee
Aber wo ist da die ProgressBar?

[ts-soft]

ah gute idee
Aber wo ist da die ProgressBar?

Guck Dir das Bild mal an, siehste aber nur bei grossen Dateien, wenns
kopieren nur wenige ms dauert, sieht man natürlich nix.
Das ist der Original-Windows-Dialog, durch ändern der Konstante kann auch
gelöscht werden, die Überschreib-Warnung abgeschaltet usw.
Hab der Einfachheit wegen, nur die normalle Funktionalität des Kopierens
berücksichtigt, damit auch Anfänger damit etwas anfangen können.

[Joel]

ok, wenn ich den Code in Pb laufen lasse kann ich den nicht beenden, mit dem buton zum killen.

Wiso nicht?

Code: Alles auswählen

#WindowWidth  = 217
#WindowHeight = 317
;-InitNetwork()
If InitNetwork() = 0
  MessageBox_(Win,"Netzwerk Umgebung kann nicht vorbreitet werden!"+Chr(13)+"Ist dein Computer Internet Tauglich?","Warnung",#MB_OK | #MB_ICONERROR)
  End
EndIf 


Buffer = AllocateMemory(1000000)
LoadImage(123, "D:\Intel IP\bild.bmp" , 0)
;If OpenWindow(0, 100, 200, #WindowWidth, #WindowHeight, #PB_Window_MinimizeGadget, "Intel Ip 1.0")
If OpenWindow(8, 189, 184, 640, 367, "Installiere", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget, 0)
 If CreateGadgetList(WindowID(8))
    ProgressBarGadget(1, 10, 300, 580, 50, 0, 100 , #PB_ProgressBar_Smooth) 
    Delay(1000)
    SetGadgetState(1, 00)
    Delay(1000)
    SetGadgetState(1, 02)
    Delay(1000)
    SetGadgetState(1, 04)
    Delay(1000)
    SetGadgetState(1, 06)
    Delay(1000)
    SetGadgetState(1, 08)
    Delay(1000)
    SetGadgetState(1, 10)
    Delay(1000)
    SetGadgetState(1, 12)
    Delay(1000)
    SetGadgetState(1, 14)
    Delay(1000)
    SetGadgetState(1, 16)
    Delay(1000)
    SetGadgetState(1, 18)
    Delay(1000)
    SetGadgetState(1, 20)
    Delay(1000)
    SetGadgetState(1, 22)
    Delay(1000)
    SetGadgetState(1, 24)
    Delay(1000)
    SetGadgetState(1, 26)
    Delay(1000)
    ;35
    ;45
    SetGadgetState(1, 28)
    Delay(1000)
    SetGadgetState(1, 30)
    Delay(1000)
    SetGadgetState(1, 32)
    Delay(1000)
    SetGadgetState(1, 34)
    Delay(1000)
    SetGadgetState(1, 36)
    Delay(1000)
    SetGadgetState(1, 38)
    Delay(1000)
    SetGadgetState(1, 40)
    Delay(1000)
    SetGadgetState(1, 42)
    Delay(1000)
    SetGadgetState(1, 44)
    Delay(1000)
    SetGadgetState(1, 46)
    Delay(1000)
    SetGadgetState(1, 48)
    Delay(1000)
    SetGadgetState(1, 50)
    Delay(1000)
    SetGadgetState(1, 52)
    Delay(1000)
    SetGadgetState(1, 54)
    Delay(1000)
    SetGadgetState(1, 56)
    Delay(1000)
    SetGadgetState(1, 58)
    Delay(1000)
    SetGadgetState(1, 60)
    Delay(1000)
    SetGadgetState(1, 62)
    Delay(1000)
    SetGadgetState(1, 64)
    Delay(1000)
    SetGadgetState(1, 66)
    Delay(1000)
    SetGadgetState(1, 68)
    Delay(1000)
    SetGadgetState(1, 70)
    Delay(1000)
    SetGadgetState(1, 72)
    Delay(1000)
    SetGadgetState(1, 74)
    Delay(1000)
    SetGadgetState(1, 76)
    Delay(1000)
    SetGadgetState(1, 78)
    Delay(1000)
    SetGadgetState(1, 80)
    Delay(1000)
    SetGadgetState(1, 82)
    Delay(1000)
    SetGadgetState(1, 84)
    Delay(1000)
    SetGadgetState(1, 86)
    Delay(1000)
    SetGadgetState(1, 88)
    Delay(1000)
    SetGadgetState(1, 90)
    Delay(1000)
    SetGadgetState(1, 92)
    Delay(1000)
    SetGadgetState(1, 94)
    Delay(1000)
    SetGadgetState(1, 96)
    Delay(1000)
    SetGadgetState(1, 98)
    Delay(1000)
    SetGadgetState(1, 100)

    
    
    
    
    
    
    Repeat
    EventID = WaitWindowEvent()
    Until EventID = #PB_Event_CloseWindow
    End 
    EndIf
     EndIf 
     End 
    

[Alves]

Vielleicht hast du den Debugger ausgeschaltet.

[Joel]

stimmt

[dietmar]

Tach, ich hab hab gerade die ForNextSchleife verstanden und möchte mich damit mal kreativ eingringen.

Code: Alles auswählen

#WindowWidth  = 217
#WindowHeight = 317
;-InitNetwork()
If InitNetwork() = 0
  MessageBox_(Win,"Netzwerk Umgebung kann nicht vorbreitet werden!"+Chr(13)+"Ist dein Computer Internet Tauglich?","Warnung",#MB_OK | #MB_ICONERROR)
  End
EndIf


Buffer = AllocateMemory(1000000)
LoadImage(123, "D:\Intel IP\bild.bmp" , 0)
;If OpenWindow(0, 100, 200, #WindowWidth, #WindowHeight, #PB_Window_MinimizeGadget, "Intel Ip 1.0")
If OpenWindow(8, 189, 184, 640, 367, "Installiere", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget, 0)
 If CreateGadgetList(WindowID(8))
    ProgressBarGadget(1, 10, 300, 580, 50, 0, 100 , #PB_ProgressBar_Smooth)
    For z = 0 To 100 Step 2
      SetGadgetState(1, z)  
      Delay(1000)
    Next
   
    Repeat
      EventID = WaitWindowEvent()
    Until EventID = #PB_Event_CloseWindow
    End
  EndIf
EndIf

End

[Joel]

cool, aber, wenn ich zwischen den balken die daten kopieren will geht das mit dem vor und next nicht!

[dietmar]

Ja gut...
aber der Gedanke war schön.
Werden mehrer Dateien auf die Festplatte kopiert?
Und von wo sollen sie kopiert werden?