Dim bytes(FileSize(datafile$))
For i = 1 To FileSize(datafile$)
   bytes(i)=ReadByte(datafilehandle)
   UpdateProgBar statusprogbar,i/FileSize(datafile$)
Next

Global i%,j%,zeit%
Global AnzahlBytes%=FileSize(datafile$)
Dim bytes(AnzahlBytes)
For i = 1 To AnzahlBytes Step 10000
   zeit=Millisecs()
   for j=i to i+10000
      if j>AnzahlBytes then Exit
      bytes(j)=ReadByte(datafilehandle)
   Next
   Zeit=Millisecs()-zeit
   debuglog Zeit
   UpdateProgBar statusprogbar,i/AnzahlBytes
Next

Global count ;Hier erstellst du Count, da drin speichern wir den Fortschritt des Progbars
;dieser ist nun Global, d.h auch in Unterprogrammen da
window = CreateWindow("Window", 0, 0, 200, 100, 0, 1)
x = ClientWidth(window)
progbar = CreateProgBar(10, 10, x - 20, 20, window)
timer = CreateTimer(5)


Repeat
   If KeyHit(1) = 1 Then End
    If WaitEvent(0) = $4001 Then ;Wenn etwas getickt hat
           If EventSource() = timer And count<= 10 Then ;und es wirklich unser "timer" ist
         updatebar(progbar) ;Funktion updatebar aufrugen, mit dem Parameter progbar (siehe oben bei create progbar)
      EndIf
   EndIf
   
Forever


Function updatebar(bar_handle) ;Nun hier die funktion, in der Klammer steht bar_handle, dort drinn steht nun das was wir dort oben eingegeben haben, nämlich der Wert von progbar, also sein handle
    count = count + 1 ;jetzt erhöhen wir den Wert von count
     UpdateProgBar bar_handle, Float#(count) / 10 ; und updaten den progbar
End Function
   

window = CreateWindow( "Test", 0, 0, 640, 480 )
Notify window

Global count
window = CreateWindow("Window", 0, 0, 200, 100, 0, 1)
x = ClientWidth(window)
Global progbar = CreateProgBar(10, 10, x - 20, 20, window)
timer = CreateTimer(5)


Repeat
   If KeyHit(1) = 1 Then End
    If WaitEvent(0) = $4001 Then
     If EventSource() = timer And count<= 10 Then
   updatebar()
   EndIf
   EndIf
   
Forever


Function updatebar()
    count = count + 1
     UpdateProgBar progbar, Float#(count) / 10
End Function