Minggu, 21 Februari 2016

Cara Membuat Trapik Angka Download dan Upload Dengan Delphi 7 [T4]

Berikut adalah Tips Cara Membuat Trapik Angka Download dan Upload Dengan Delphi 7 [T4] dan tutorial ini adalah kelanjutan dari tutorial [T3] yang sebelumnya pernah dibahas DISINI ok bagi sahabat semuanya yang sedang mempelajari bahasa program delphi silahkan langsung bisa disimak bagimana membuat program traffic upload dan download dan sebenarnya pembuatan traffic download dan upload ini bisa menggunakan komponen vr matrik, traffic scema yang kaya dimodem dan lain sebagainya, tetapi yang dibagikan disini hanya sebagai pembelajaran dan sebagai dasarnya saja.

PENAMBAHAN KOMPONEN BARU PADA [T4]

1. Tambahkan Timer1 lalu ganti nama menjadi du lalu Enabled True , Interval 500
2. Tambahkan GroupBox1 lalu ganti nama menjadi gb3 untuk captionya kosongkan
3. Tambahkan Label1 lalu ganti nama menjadi dl untuk captionnya ganti menjadi 0 kb/s
4. Tambahkan Label2 lalu ganti nama menjadi ul untuk captionnya ganti menjadi 0 kb/s

pengaturan posisinya bisa anda lihat seperti contoh pada gambar dibawah ini, untuk du (timernya) biarkan saja diluar dan untuk dl dan ul atau labelnya silahkan masukan pada atau didalam gb3 kalau sebelumnya sudah tanggung di tarik ke form utamanya tinggal klik kanan CUT pada komponen bersangkutan lalu PASTE pada gb3 bisa anda perhatikan seperti gambar dibawah ini.

Cara Buat Traffic Digital Upload Download Dengan Delphi


PRAKTEK PEMBUATAN PROGRAMNYA:

1. Pada langkah yang pertama silahkan tambahkan kode dibawah ini tepat diatas implementation untuk contohnya bisa lihat gambar dibawah ini:

Download : Integer;
  Upload : Integer;

Cara Buat Traffic Digital Upload Download Dengan Delphi

2. Yang kedua kemudian silahkan masuk pada TCP > Object Inspector > Events > On OutboundData lalu tambahkan kode dibawah ini, contohnya bisa lihat gambar dibawah saja.

download:= download+Length(AThread.NetData);

Cara Buat Traffic Digital Upload Download Dengan Delphi

3. Pada langkah yang ketiga kemudian silahkan masuk ke TCP > Object Inspector > Events > On Execute lalu tambahkan kode dibawah ini, contohnya bisa lihat gambar saja dibawah ini.

upload:= upload+Length(AThread.NetData);

Cara Buat Traffic Digital Upload Download Dengan Delphi

4. Pada Langkah yang keempat kemudian silahkan double klik du (komponen timer yang sudah diubah namanya tadi) lalu masukan kode dibawah ini.


 dl.caption :=  FormatFloat('DL: ##0.## kb/s',download/1024);
 ul.caption :=  FormatFloat('UP: ##0.## kb/s',upload/1024);
 download := 0;
  upload := 0;

Cara Buat Traffic Digital Upload Download Dengan Delphi

5. Berikut adalah contoh jadinya jika sudah bisa digunakan maka akan nampak seperti pada gambar dibawah ini yang dikasih anak panah merah.

Cara Buat Injek Terbaru 2016 2017 2018 2019 2020


Kesimpulannya, Tutorial ini ada kelanjutannya jadi silahkan ditunggu untuk yang lainnya hingga anda mampu membuat project yang simple dan multy fungsi, dan tutorial yang berhubungan akan diberi tanda [T1], [T2], [T3], [T4], [T5], dst...

Update untuk tutorial T[5] silahkan bisa dilihat DISINI

Ya sudah hanya itu saja dulu informasi tentang Cara Membuat Trapik Angka Download dan Upload Dengan Delphi 7 [T4] semoga bermanfaat dan membantu dan ditunggu untuk tutorial menarik lainnya hanya di blog cara apa saja, terima kasih.