ini biar bisa jadi itungannya Giga (GB) gimana yaa..??
saya bikin ini tiap sudah sampe 1,023.83 MB pasti ndak mau jalan lagi berhenti disitu itungan total downloadnya gk mau naek jadi 1 GB
tolong bantuannya....

SS

Spoiler :

CODING

Spoiler :

Quote:procedure TAnggerPDSW.TimerReceivedTimer(Sender: TObject);
const
OneKB = 1024;
OneMB = OneKB * 1024;
OneGB = OneMB * 1024;
begin
if TotDown < OneKB then
TotalReceived.Text := FormatFloat('#,##0.00 B',TotDown)
else
if TotDown < OneMB then
TotalReceived.Text := FormatFloat('#,##0.00 KB', TotDown / OneKB)
else
if TotDown < OneGB then
TotalReceived.Text := FormatFloat('#,##0.00 MB', TotDown / OneMB)
else
if OneGB > TotDown then
TotalReceived.Text := FormatFloat('#,##0.000 GB', TotDown / OneGB)
end;

newbie numpang jawab
kayanya yang dimerah"in sama aj artinya gan

Quote:if TotDown < OneGB then
TotalReceived.Text := FormatFloat('#,##0.00 MB', TotDown / OneMB)
else
if OneGB > TotDown then
TotalReceived.Text := FormatFloat('#,##0.000 GB', TotDown / OneGB)
end;

coba yang bawah diganti

Quote:if OneGB < TotDown then

atau langsung

Quote:else
TotalReceived.Text := FormatFloat('#,##0.000 GB', TotDown / OneGB)
end;

ane jg g ngerti bahasa yang satu ini aslinya

(10-07-2015 08:16 PM)zeph Wrote:  ini biar bisa jadi itungannya Giga (GB) gimana yaa..??
saya bikin ini tiap sudah sampe 1,023.83 MB pasti ndak mau jalan lagi berhenti disitu itungan total downloadnya gk mau naek jadi 1 GB
tolong bantuannya....

SS

Spoiler :

CODING

Spoiler :

Quote:procedure TAnggerPDSW.TimerReceivedTimer(Sender: TObject);
const
OneKB = 1024;
OneMB = OneKB * 1024;
OneGB = OneMB * 1024;
begin
if TotDown < OneKB then
TotalReceived.Text := FormatFloat('#,##0.00 B',TotDown)
else
if TotDown < OneMB then
TotalReceived.Text := FormatFloat('#,##0.00 KB', TotDown / OneKB)
else
if TotDown < OneGB then
TotalReceived.Text := FormatFloat('#,##0.00 MB', TotDown / OneMB)
else
if OneGB > TotDown then
TotalReceived.Text := FormatFloat('#,##0.000 GB', TotDown / OneGB)
end;

haha hanya mastah yang bisa jawab

(10-07-2015 09:13 PM)aviator Wrote:  newbie numpang jawab
kayanya yang dimerah"in sama aj artinya gan

Quote:if TotDown < OneGB then
TotalReceived.Text := FormatFloat('#,##0.00 MB', TotDown / OneMB)
else
if OneGB > TotDown then
TotalReceived.Text := FormatFloat('#,##0.000 GB', TotDown / OneGB)
end;

coba yang bawah diganti

Quote:if OneGB < TotDown then

atau langsung

Quote:else
TotalReceived.Text := FormatFloat('#,##0.000 GB', TotDown / OneGB)
end;

ane jg g ngerti bahasa yang satu ini aslinya

kalau saya tulis TotalReceived.Text := FormatFloat('#,##0.000 GB', TotDown / OneGB) nanti too large mas itungannya di keterangan delphi nya mas makanya saya tulis if TotDown < OneGB then
TotalReceived.Text := FormatFloat('#,##0.00 MB', TotDown / OneMB) begitu mas....

(10-08-2015 01:35 AM)zeph Wrote:  kalau saya tulis TotalReceived.Text := FormatFloat('#,##0.000 GB', TotDown / OneGB) nanti too large mas itungannya di keterangan delphi nya mas makanya saya tulis if TotDown < OneGB then
TotalReceived.Text := FormatFloat('#,##0.00 MB', TotDown / OneMB) begitu mas....

ya intinya 2 if terakhir itu sama
TotDown < OneGB itu sama dengan OneGB > TotDown
makanya kalo TotDown > OneGB langsung ke end dan g diproses
kalo masalah too large mungkin variablenya yang g sanggup nampung diatas 1GB (2^30), nunggu master delphi mampir dimari aj gan

(10-08-2015 08:20 PM)aviator Wrote:  ya intinya 2 if terakhir itu sama
TotDown < OneGB itu sama dengan OneGB > TotDown
makanya kalo TotDown > OneGB langsung ke end dan g diproses
kalo masalah too large mungkin variablenya yang g sanggup nampung diatas 1GB (2^30), nunggu master delphi mampir dimari aj gan

kira2 yang di MMD nya om Sueb itu gimana yaa mas coding delphi nya bisa up 1GB itungan di total download di MMD nya :(
blum ada pencerahan cari sana sini