Wie Kopierdauer berechnen und anzeigen
-
DW
So geht es:
OpenFile(0,"PureBasic.exe")
CreateFile(1,"PB.exe")
While Not Eof(0)
WriteByte(1,ReadByte(0))
Wend
CloseFile(0)
CloseFile(1)
In der Schleife müsste man dann immer in eine Variable 1 addieren und mit einer Formel 100/filesize("PureBasic.exe)*kopiertebytes rechnen. Man bekommt einen relativen Wert.
Fragt sich nur wie langsam das ist..
Das bringt es auch bei einem progressbargadget. Da müsstest du dann setgadgetstate(#Progressbar_0,prozent/10) schreiben.
Sagen wir, es ist bei 70%, so ist der getgagetstate Wert 7, was bei ihm als 70% seiner Größe in Pixeln(?!) entspricht.
OpenFile(0,"PureBasic.exe")
CreateFile(1,"PB.exe")
While Not Eof(0)
WriteByte(1,ReadByte(0))
Wend
CloseFile(0)
CloseFile(1)
In der Schleife müsste man dann immer in eine Variable 1 addieren und mit einer Formel 100/filesize("PureBasic.exe)*kopiertebytes rechnen. Man bekommt einen relativen Wert.
Fragt sich nur wie langsam das ist..
Das bringt es auch bei einem progressbargadget. Da müsstest du dann setgadgetstate(#Progressbar_0,prozent/10) schreiben.
Sagen wir, es ist bei 70%, so ist der getgagetstate Wert 7, was bei ihm als 70% seiner Größe in Pixeln(?!) entspricht.
Zuletzt geändert von DW am 07.10.2006 17:24, insgesamt 1-mal geändert.
@ DW
Bei mir erstellt er eine leere Datei. Aber ist auch jetzt egal, weil ich schon eine Bestellung abgeschickt habe. Ich muss jetzt nur das Geld überweisen und ich bekomme endlich Pure Basic 4.00
juhu
Trotzdem Danke
Bei mir erstellt er eine leere Datei. Aber ist auch jetzt egal, weil ich schon eine Bestellung abgeschickt habe. Ich muss jetzt nur das Geld überweisen und ich bekomme endlich Pure Basic 4.00
juhuTrotzdem Danke
Aus privaten Gründen habe ich leider nicht mehr so viel Zeit wie früher. Bitte habt Verständnis dafür.
-
DW
@ DW
Du brauchst dein Code nicht wiederholen, ich habe schon verstanden, aber bei mir gibt auch ne Fehlermeldung:
>Garbage to the end of line<
OpenFile(0,"PureBasic.exe")
CreateFile(1,"PB.exe")
While Not Eof(0)
WriteByte(1,ReadByte(0))
Wend
CloseFile(0)
CloseFile(1)
Was soll ich in deiner Meinung tun?
Du brauchst dein Code nicht wiederholen, ich habe schon verstanden, aber bei mir gibt auch ne Fehlermeldung:
>Garbage to the end of line<
OpenFile(0,"PureBasic.exe")
CreateFile(1,"PB.exe")
While Not Eof(0)
WriteByte(1,ReadByte(0))
Wend
CloseFile(0)
CloseFile(1)
Was soll ich in deiner Meinung tun?
Aus privaten Gründen habe ich leider nicht mehr so viel Zeit wie früher. Bitte habt Verständnis dafür.
-
Kaeru Gaman
- Beiträge: 17389
- Registriert: 10.11.2004 03:22
@DW: Vielleicht gewöhnst Du Dir mal an Code-Tags zu setzen.
Ausserdem sollten bei Datei-Operationen immer die Rückgabewerte
überprüft und dementsprechend darauf reagiert werden. Ich denke, dass Du
das als 'Nicht-Programmier-Neuling' wissen solltest.
@RSBasic
> Was soll ich in deiner Meinung tun?
Der von DW gepostete Code ist nicht PB3.3 - kompatibel.
Ignoriere den Code von DW vorerst, bis ein besserer reinkommt.
Grüße ... Kiffi
Ausserdem sollten bei Datei-Operationen immer die Rückgabewerte
überprüft und dementsprechend darauf reagiert werden. Ich denke, dass Du
das als 'Nicht-Programmier-Neuling' wissen solltest.
@RSBasic
> Was soll ich in deiner Meinung tun?
Der von DW gepostete Code ist nicht PB3.3 - kompatibel.
Ignoriere den Code von DW vorerst, bis ein besserer reinkommt.
Grüße ... Kiffi
a²+b²=mc²
