Current time: 05-22-2018, 03:46 AM Stay in touch via Twitter Facebook RSS Feed
Ada Baiknya anda baca Peraturan Forum ForNesia Disini Dan Disitu Sebelum Terlambat!
System Registration Forums Mulai Kedepan Sewaktu waktu akan Di Tutup.
Silahkan Dibaca Mengenai Auto Pruning User . Agar tidak ada pertanyaan lagi tentang kehilangan akses forum.



[Share] Cara Menggunakan TMS Component

10-04-2014 08:08 AM Cara Menggunakan TMS Component
#1


badarudinhasan Away
HunteR
HunteR
*

Posts: 24
Joined: Jul 2014

Reputation:

FCoin: 2.00ƒc
Langsung aja yak , Maaf Min Mod ane belom bisa masuk ke SF yang benar wah
soalnya masih ada syarat suram

btw pasti yang udah pengalaman tau software ini
yap yaitu TMS Commponen
itu tuh yang buat tampilan aplikasi di delphi menjadi menarik jempol

ane mau share cara gunain ke yang bagian speed nya aja bangga

Spoiler :
- pertama buka delphi 7 nya
- lalu buka form yang udah agan" sekalian uwik" jempol
- Pada variabel, kita tambahkan dulu seperti ini:
Download : Integer;
Upload : Integer;

- Kemudian, kita tambahkan pada bagian Execute:
upload:= upload+Length(AThread.NetData);
- dan bagian OutBound:
download:= download+Length(AThread.NetData);

- Cara masih sama seperti membuat traffic menggunakan label.Sebagaimana coding yang kita letakan pada Timer awalnya menggunakan label seperti berikut:
Label1.Caption := FormatFloat('Down: ##0.## KB/s',download/1024);
Label2.Caption := FormatFloat('Up: ##0.## KB/s',upload/1024);
download:= 0;
upload:= 0;

- Jangan dihapus. Rubah saja menjadi seperti ini:
Label1.Caption := FormatFloat('Down: ##0.## KB/s',download/1024);
Label2.Caption := FormatFloat('Up: ##0.## KB/s',upload/1024);
download:= 0;
upload:= 0;

- Kemudian tambahkan komponen TMS VrNum. (Komponent ada di akhir postingan ini)

- Beri 2 buah VrNum dan tambahkan pada bagian bawah coding label tadi menjadi seperti ini:

sLabel3.Caption := FormatFloat('0',download/1024);
sLabel4.Caption := FormatFloat('0',upload/1024);
VrNum1.Value := StrToInt (sLabel1.Caption);
VrNum2.Value := StrToInt (sLabel2.Caption);
download:= 0;
upload:= 0;
- Coba Run atau tekan F9

CMIIW lala
Selamat Berkreasi.

Download Komponen
Register or Login to see this content
(This post was last modified: 10-04-2014 01:10 PM by Arpra99.)




Possibly Related Threads...
Thread: Author Last Post
  [Share] Cara Memakai 2 Injek atau Lebih dengan menggunakan Multi Proxy Rebels 03-16-2017 01:39 PM
Last Post: alinor3339
  [Info] menggunakan aplikasi premium di android tanpa bayar ajip3580 04-08-2016 05:10 PM
Last Post: User27

Search thread:


[-]
Advertisement