PureBoard

Verfasst: **15.06.2006 14:06**

ah gute idee

Aber wo ist da die ProgressBar?

Verfasst: **15.06.2006 14:18**

Joel hat geschrieben: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.

Verfasst: **29.06.2006 18:02**

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

Verfasst: **29.06.2006 18:11**

Vielleicht hast du den Debugger ausgeschaltet.

Verfasst: **29.06.2006 18:14**

stimmt

Verfasst: **29.06.2006 18:27**

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

Verfasst: **29.06.2006 18:52**

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

Verfasst: **29.06.2006 20:41**

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

PureBoard

Anfängerfrage: ProgressBarGadget(...)