Membuat Sisa Waktu di Progressbar Foxpro

OK langsung aja yaa, hemat kouta syukur syukur ada yang isikan😀, jadi begini penampakannya

1

2

OK caranya begini,

pertama,  tambahkan label dengan nama lblTimeRem kemudian bikin properti dalam form, kasih nama nreportinternal,nstart,ntoprosess, semuanya value kosong(none)

kedua, bikin method , kasih nama prosestime, naa sintaxnya


lParameters tnProcessed

local lnUnitsRemaining,lnTimePerUnit,;
lnSecondsRemaining,lnFractHours,;
lnHrs,lnMin,lnSec

lnElapsed = seconds() - this.nStart

if mod(tnProcessed,this.nReportInterval) = 0
lnUnitsRemaining = this.nToProcess - tnProcessed
lnTimePerUnit = lnElapsed/tnProcessed
lnSecondsRemaining = lnTimePerUnit * lnUnitsRemaining
lnHrs = int(lnSecondsRemaining/3600)
lnFractHours = mod(lnSecondsRemaining,3600)
lnMin = int(lnFractHours/60)
lnSec = mod(lnFractHours,60)


pcTimeRemaining = iif(lnHrs>0,padl(alltrim(str(lnHrs)),3);
+ iif(lnHrs>1,' Jam ',' Jam'),'');
+ iif(lnMin>0,padl(alltrim(str(lnMin)),2);
+ iif(lnMin>1,' Menit ',' Menit'),'');
+ iif(lnSec>0,padl(alltrim(str(lnSec)),2);
+ iif(lnSec>1,' Detik ',' Detik'),'')




this.lblTimeRem.Caption = 'Sisa Waktu :' + IIF(EMPTY(alltrim(pcTimeRemaining)),'Selesai',alltrim(pcTimeRemaining))

endif

cara pakainya, misalkan dalam commandbotton


CREATE CURSOR mData(cNama C(100))
i=0
FOR i=1 TO 100000
lcNama ="ABCDEF"+PADL(ALLTRIM(STR(i)),2,'0')

INSERT INTO mData value(lcNama)
ENDFOR

thisform.nstart=SECONDS()
thisform.nreportinterval=1
nJumlah=RECCOUNT("mData")
thisform.ntoprocess=nJumlah
i=0
SELECT mData
SCAN
i=i+1
lnvalue = INT((i/nJumlah)*100)
thisform.Progressbar1.value=lnValue
thisform.prosestime(i)
ends

Naa OK jalankan deh🙂 selamat mencoba kawan, moga sukses, long live foxpro :*

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: