Rabu, 27 Mei 2015

CARA MENGATASI CPU USAGE 100% PADA WINDOWS 7

1. Buka Start, dan buka Task Scheduler.
winsat1

2. Jika sudah terbuka, di sidbar kiri, arahkan ke:
Microsoft - Windows - Maintenance

winsat2
3. Maka kamu bisa melihat task WinSAT. Klik kanan pada WinSAT dan klik Disable.
winsat3

4. Tutup Task Scheduler dan restart Windows.

Sabtu, 04 Oktober 2014

SourceCode ALL operator delphi7

Bagi teman2 yang ingin berkreasi mau belajar bikin injek.saya akan shrare SourCode nya untuk belajar.
tidak ada salah nya kita pingin belajar bikin injek sendiri.

OK bagi yang mau belajar silahkan download sourcecode nya di bawah.

Selasa, 30 September 2014

Alphaskin AlphaControls 9.14 Full Version

Bagi teman2 yang suka design injek launcher atau multi SSH nah ini pilihan tepat untuk membuat
tampilan from nya semakin lembut.


Changelog 06.09.2014 AlphaControls v9.14 Stable released

Resolved issue in repainting of standard ToolBar
* Improved positioning of hints for TitleItems of form
* Improved painting of TsListBox without border
* Improved animation in TsSpeedButton
* Improvements in the DevExpress support
* Other small improvements - See more at: 


Download  AlphaControls v9.14

TUTORIAL MEMBUAT SPEEDOMETER TRAFFIC DENGAN DELPHI 7


Tutorial Cara Membuat Speedometer Traffic Dengan Delphi7, Tutorial Snippet ini tidak begitu ribett dan susah, jadi simak dengan seksama langkah langkahnya, dan anda siap mempercantik tampilan project Delphi anda dengan memakai Speedometer ini, 

Anda membutuhkan Komponen VrAngularMeter


2 VrAngularMeter1 Timer
2 LABEL
1Timer

Letakan Code berikut pada var :

var
Download : Integer;
Upload : Integer;

Lalu Letakan Code Pemanggilan pada Tcp anda

Tcpexecute :
upload:= upload+Length(AThread.NetData);
Tcpoutbound :
download:= download+Length(AThread.NetData);

Letakan Kode Dibawah ini pada Timer :
Label1.Caption := FormatFloat('0',download/1024);
Label2.Caption := FormatFloat('0',Upload/1024);
VrAngularMeter1.Position := StrToInt (Label1.Caption); // Down speedometer
VrAngularMeter2.Position := StrToInt (Label2.Caption); // upload speedometer
download:= 0;
Upload:= 0;

CARA MEMBUAT TRAFFIC UL & DL DIGITAL DENGAN DELPHI 7




Berikut Ini Adalah Langkah - Langkahnya

1.Pada variabel, kita tambahkan dulu seperti ini:
Download : Integer;

Upload : Integer;


2.Kemudian, kita tambahkan pada bagian Execute:
upload:= upl oad+Length(AThread.NetData);

3.dan bagian OutBound:
download:= download+Length(AThread.NetData);


4.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;


5.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;


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


7.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;

8.Coba Run atau tekan F9
9.InsyaAllah tidak ada error apabila mengikuti tutorialnya dengan benar.
10.Semoga bisa membantu teman-teman yang lain.


Keterangan :
cara membuat Traffic UL & DL Digital merupakan suatu cara yang berfungsi untuk menampilkan Traffic UL & DL Digital di form project Delphi 7. Selain itu juga Cara tersebut dapat dilakukan jika delphi 7 kita sudah terinstal Komponen TMSnya. Semoga Bermanfaat ya sobatku.

SUMBER :Second Phreak