ForNesia Forum > Coding and Project > Delphi > Delphi Complete Question > [ASK] Source code total download
ForNesia Forum > Coding and Project > Delphi > Delphi Complete Question > [ASK] Source code total download

Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Thread Modes

[ASK] Source code total download
zeph Offline
FNS MEMBER
**
FNS Member
Posts: 274
Threads: 35
Joined: Jun 2014
Reputation:
FCoin: 36.53ƒc
Thanks Received: 31
#1
10-07-2015, 07:16 PM
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:
[Only registered and activated users can see links Click here to register] | [Only registered and activated users can see links Click here to register]

Sombong Dikit Gak Papa.... Penting Masih Selalu Lancar Aman Jaya Sentosa Sejahtera Suka Menabung :wah:
Website Find
Reply
aviator Offline
Royalty Member
**
Royalty Member
Posts: 898
Threads: 23
Joined: Mar 2014
Reputation:
FCoin: 3,741.99ƒc
Thanks Received: 0
#2
10-07-2015, 08:13 PM
newbie numpang jawab wah
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 buahaha
[Image: 0yiydbV.gif]
Website Find
Reply
raditya Offline
Unbanned -20
**
FNS Member
Posts: 323
Threads: 39
Joined: Sep 2015
Reputation:
FCoin: 44.37ƒc
Thanks Received: 2
#3
10-07-2015, 10:29 PM
(10-07-2015, 07: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:

haha hanya mastah yang bisa jawab buahaha
AA Tamvan yang suka banget sama ANIME :siaga:
Website Find
Reply
zeph Offline
FNS MEMBER
**
FNS Member
Posts: 274
Threads: 35
Joined: Jun 2014
Reputation:
FCoin: 36.53ƒc
Thanks Received: 31
#4
10-08-2015, 12:35 AM
(10-07-2015, 08:13 PM)aviator Wrote: newbie numpang jawab wah
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 buahaha

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[/color]
TotalReceived.Text := FormatFloat('#,##0.00 MB', TotDown / OneMB) begitu mas....
[Only registered and activated users can see links Click here to register] | [Only registered and activated users can see links Click here to register]

Sombong Dikit Gak Papa.... Penting Masih Selalu Lancar Aman Jaya Sentosa Sejahtera Suka Menabung :wah:
Website Find
Reply
aviator Offline
Royalty Member
**
Royalty Member
Posts: 898
Threads: 23
Joined: Mar 2014
Reputation:
FCoin: 3,741.99ƒc
Thanks Received: 0
#5
10-08-2015, 07:20 PM
(10-08-2015, 12: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[/color]
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 o.O
kalo masalah too large mungkin variablenya yang g sanggup nampung diatas 1GB (2^30), nunggu master delphi mampir dimari aj gan jempol
[Image: 0yiydbV.gif]
Website Find
Reply
zeph Offline
FNS MEMBER
**
FNS Member
Posts: 274
Threads: 35
Joined: Jun 2014
Reputation:
FCoin: 36.53ƒc
Thanks Received: 31
#6
10-08-2015, 07:25 PM
(10-08-2015, 07: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 o.O
kalo masalah too large mungkin variablenya yang g sanggup nampung diatas 1GB (2^30), nunggu master delphi mampir dimari aj gan jempol

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
[Only registered and activated users can see links Click here to register] | [Only registered and activated users can see links Click here to register]

Sombong Dikit Gak Papa.... Penting Masih Selalu Lancar Aman Jaya Sentosa Sejahtera Suka Menabung :wah:
Website Find
Reply
  


Possibly Related Threads…
Thread Author Replies Views Last Post
Question [ASK] Source code Duration eivf 2 1,445 05-19-2017, 06:41 PM
Last Post: eivf
  Need Source Code reizal 1 1,284 05-18-2017, 02:29 PM
Last Post: eivf