Ilmu Alakadarnya
Wie lautet meine IP
Latest Post

Rumus GTA San Andreas Untuk PC/Laptop



  1. UZUMYMW = senjata 3
  2. HESOYAM = darah, armor, uang
  3. BAGUVIX = nyawa ga terbatas
  4. CVWKXAM = lung capacity ga terbatas
  5. ANOSEONGLASS = adrenalin mode
  6. FULLCLIP = amunisi ga terbatas
  7. TURNUPTHEHEAT = mendapat 2 wanted level
  8. TURNDOWNTHEHEAT = hapus semua wanted level
  9. BTCDBCB = gemuk
  10. BUFFMEUP = max otot
  11. KVGYZQK = kerempeng
  12. AEZAKMI = ga pernah dicari polisi
  13. BRINGITON = wanted level bintang 6
  14. WORSHIPME = max respect
  15. HELLOLADIES = Max Sex Appeal
  16. VKYPQCF = Max Stamina
  17. PROFESSIONALKILLER = level hitman di semua senjata
  18. NATURALTALENT = max semua skill kendaraan [ darat, laut, udara]
  19. AIWPRTON = teng
  20. OLDSPEEDDEMON = Bloodring Banger
  21. JQNTDMH = Rancher
  22. VROCKPOKEY = hotring racer 1
  23. VPJTQWV = hotring racer 2
  24. WHERESTHEFUNERAL = Romero
  25. CELEBRITYSTATUS = Stretch
  26. TRUEGRIME = Trashmaster
  27. RZHSUEW = Caddy
  28. JUMPJET = Hydra
  29. KGGGDKP = Vortex Hovercraft/mobil darat laut
  30. AIYPWZQP = Parachute
  31. ROCKETMAN = Jetpack
  32. OHDUDE = Hunter
  33. FOURWHEELFUN = Quad
  34. AMOMHRER = Tanker Truck
  35. ITSALLBULL = Dozer
  36. FLYINGTOSTUNT = Stunt Plane
  37. MONSTERMASH = Monster
  38. CPKTNWT = hancurkan semua mobil
  39. WHEELSONLYPLEASE = mobil tembus pandang
  40. STICKLIKEGLUE = handling sempurna
  41. ZEIIVG = lampu lalu lintas hijau terus
  42. YLTEICZ = pengemudi gila
  43. LLQPFBN = mobil pink
  44. IOWDLAC = mobil hitam
  45. FLYINGFISH = perahu terbang
  46. EVERYONEISPOOR = semua mobil butut
  47. EVERYONEISRICH = semua mobil keren
  48. CHITTYCHITTYBANGBANG = mobil terbang
  49. JCNRUAD = Smash n’ Boom
  50. SPEEDFREAK = semua mobil ber NOS
  51. BUBBLECARS = mobil melayang kalau ditabrak
  52. OUIQDMW = bisa membidik dari mobil
  53. GHOSTTOWN = ga ada mobil
  54. FVTMNBZ = mobil-mobil desa
  55. BMTPWHR = mobil mobil dan orang desa
  56. SPEEDITUP = Gameplay lebih cepat
  57. SLOWITDOWN = Gameplay lebih lambat
  58. AJLOJYQY = pejalan kaki salig menyerang dapet tongkat golf
  59. BAGOWPG = dapat bounty di kepalamu
  60. FOOOXFT = semua orang bersenjata
  61. GOODBYECRUELWORLD = bunih diri
  62. BLUESUEDESHOES = elvis dimana mana
  63. BGLUAWML = pejalan kaki menyerangmu dengan senjata
  64. LIFESABEACH= pesta pantai
  65. ONLYHOMIESALLOWED = Geng dimana-mana
  66. BIFBUZZ = geng mengontrol jalanan
  67. NINJATOWN = yakuza
  68. BEKKNQV = fans club
  69. CJPHONEHOME = melompat pakai BMX jadi tinggi
  70. KANGAROO = CJ melompat tinggi
  71. STATEOFEMERGENCY = RUSUHH!!!!! [persis kayak mei 1998]
  72. CRAZYTOWN = carnaval
  73. SJMAHPE = merekrut siapa saja [dapat pistol]
  74. ROCKETMAYHEM = rekrut siapa saja [dapat RPG]
  75. PLEASANTLYWARM = panas
  76. TOODAMNHOT = sangat panas
  77. ALNSFMZO = Overcast
  78. AUIFRVQS = hujan
  79. CFVFGMJ = berkabut
  80. YSOHNUL = jam lebih cepat
  81. NIGHTPROWLER = selalu jam 00.00
  82. OFVIAC = selalu jam 21.00
  83. SCOTTISHSUMMER = badai
  84. CWJXUOC = badai debu udah ya segitu dulu

 

Loading Dengan Delphi

Siang Agan agan kali ini saya akan memosting bagai mana cara membuat loading dengan delphi. Pertama anda harus menyiapkan 2 form dan komponen sebagai berikut (1 timer[ubah interval timer menjadi 100])(1 XPManifest1)dan (1 ProgressBar1) dan semua komponen tersebut di letakkan pada form1
setelah itu klik dua kali pada timer lalu masukan rumus sebagai berikut :


ProgressBar1.Position := ProgressBar1.Position + 1;
if ProgressBar1.Position = 100 then
begin
timer1.enabled:=false;
form2.open;
end;

setelah itu coba jalankan apakan berhasil dan semoga hasilnya memuaskan. Selamat mencoba
 

Cara mudah meningkatkan peringkat blog dengan google ping

Cara mudah meningkatkan alexa rang blog anda....dengan layanan google ping blog anda akan di daftarkan ke berbagai jaringan yang anda tidak tau ayo secepatnya anda me-googlepingkan blog anda dengan mendaftarkan blog anda di google ping.
 

Rumus Detik Di Delphi

Selamat siang agan-agan yang ada di depan komputer hehe...kali ini saya akan posting rumus detik di delphi sebelumnya jalankan program delphi anda dan ambil komponen label di pallet standart dan timer di pallet system susun seperti di bawah



setelah selesai mendesain seperti gambar double klik pada timer dan isikan rumus sebagai berikut :

i:=i+1;
label1.Caption:=inttostr(i);
if label1.caption='60' then begin
label1.caption:='0';
i:=0;
end;

keterangan :
(saat detik mencapai angka 60 maka detik akan mengulang dari 0 )


sekian postingan kali ini semoga bermanfaat
 

Bermain Mouse Over

Hallo agan-agan yang budiman hehe nainan mouse over di delphi yuk ni aku punya sedikit rumusnya. tapi sebelumnya buka delphi anda dan sediakan 3 panel dari pallet standart terus masukkan rumus seperti di bawah yang aku kasih warna merah ya....eh ia semua rumus tersebut di tulis di bagian mouse over pada setiap panel dan form. 



unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    procedure Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Panel2MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Panel3MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
panel1.Color:=clBlue;
panel1.Caption:='Biru';
panel2.Color:=clBtnFace;
panel3.Color:=clBtnFace;
end;

procedure TForm1.Panel2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
panel2.Color:=clRed;
panel2.Caption:='Merah';
panel1.Color:=clBtnFace;
panel3.Color:=clBtnFace;

end;

procedure TForm1.Panel3MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
panel3.Color:=clgreen;
panel3.Caption:='Hijau';
panel1.Color:=clBtnFace;
panel2.Color:=clBtnFace;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
panel1.Color:=clBtnFace;
panel2.Color:=clBtnFace;
panel3.Color:=clBtnFace;
panel1.Caption:='';
panel2.Caption:='';
panel3.Caption:='';
end;

end.

sekian semoga bermanfaat....semangat untuk menggali kemampuan anda.
 

Ilmu Alakadarnya IV

Waduh lama ngak posting dan ngecek blog ternyata Alexa rank blog ku kembali ke 11 juta lebih waduh gawat nie banyak saingan yang baru(kita tau dan percaya setelah kita mengalaminya). . .maka untuk itu bagi para bloger jangan sekali kali mengabaikan blog anda dalam waktu yang cukup lama karena pertumbuhan blog baru maupun lama sangatlah cepat dan hal itu membuat saingan kita bertambah berat dan cara memdapat Alexa rank semakin berat. Ayo para bloger mania semangat untuk membuat blog semakin terkenal dan ber Alexa rank rendah dan kalau bisa mendapat google rank 9 hehe.
 

Smart Instal Maker Free Download

Halo sahabat Ilmu,,,bingung mau membuat instalan delphi khususnya....mudah kok kalian hanya perlu menjalankan smart instal maker dan isilah yang anda perlukan selesai dech,,,bagi yang belum punya masternya bisa download disini
 

Rumus Koneksi Untuk Web

Siang gan kali ini saya akan sedikit posting tentang web,langsung saja gan yang mau praktekin scripnya sebagai berikut:


<?php
$server="localhost";
$user="root";
$pass="";
$db="perpus";
mysql_connect ($server,$user,$pass) or die ("maaf, koneksi gagal");
mysql_select_db($db) or die ("maaf,database tidak ditemukan");
?>
 
simpan dengan format ".php"
keterangan
untuk warna merah sesuaikan dengan server, username, password Sql anda
untuk warna hijau adalah databasenya

semoga bermanfaat