Membuat Program Kasir Sederhana Menggunakan Delphi 7

Selamat sore dan Salam Pemrograman

Setelah tadi pagi disibukkan dengan Tugas Membuat Program Kasir Sederhana Menggunakan Delphi 7, akhirnya sore ini bisa saya postingkan tutorial. Seperti Tutorial dari Pemgrograman Visual Menggunakan Foxpro yaitu Membuat Data Mahasiswa Dengan Microsft Visual Foxpro 6.0, kali ini saya akan memposting tentang  Membuat Program Kasir Sederhana Menggunakan Delphi 7. Harapanya tidak lain tidak bukan adalah semoga pembaca yang budiman bisa lebih mengerti bagi yang belum mengerti, mengingatkan bagi yang lupa dan Angin lalu bagi yang tak ingin tau (tragis.com)

Baik langkah pertama tentunya adalah Mendesain Program dulu, Buka delphi anda kemudian buat Desain Visual seperti dibawah ini

Udah mengerti kan bagaimana cara membuat Desain Visual seperti disamping??

O iya,,, Sambil Promosi, penulis Insyaalah akan mengikuti Lomba Bisnis Plan di UPN minta doanya ya moga-moga bisa lolos seleksi, mau tau BP yang penulis ajukan? B'C (burger crispy) penasaran kan? Insyaalah dalam waktu dekat ini akan segera buka di Depan SMA Negeri 1 Purworejo.

Ok lanjutkan tutorialnya kawan. setelah program selesai sekarang saatnya kita coding. coding itu menyenangkan kawan.

Ketika kita harus Mendeskripsikan Problematika kedalam penalaran walaupun penulis sendiri juga bukan master pemrograman.:D. langsung tak kasi scripnya aja deh ya...perhatikan baik-baik

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

type

  TForm1 = class(TForm)

    RadioButton1: TRadioButton;

    RadioButton2: TRadioButton;

    RadioButton3: TRadioButton;

    ComboBox1: TComboBox;

    ComboBox2: TComboBox;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    Edit1: TEdit;

    Edit2: TEdit;

    Edit3: TEdit;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Edit4: TEdit;

    Edit5: TEdit;

    Edit6: TEdit;

    CheckBox1: TCheckBox;

    Label5: TLabel;

    Label6: TLabel;

    GroupBox1: TGroupBox;

    Label7: TLabel;

    Label8: TLabel;

    Label9: TLabel;

    Label10: TLabel;

    Label11: TLabel;

    GroupBox2: TGroupBox;

    Label12: TLabel;

    Label13: TLabel;

    procedure RadioButton1Click(Sender: TObject);

    procedure RadioButton2Click(Sender: TObject);

    procedure RadioButton3Click(Sender: TObject);

    procedure ComboBox1Change(Sender: TObject);

    procedure ComboBox2Change(Sender: TObject);

    procedure CheckBox1Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.RadioButton1Click(Sender: TObject);

var

a:real;

begin

if radiobutton1.Checked then a:=7000;

edit4.Text:=floattostr(a);

edit1.Text:=floattostr(a);

end;

procedure TForm1.RadioButton2Click(Sender: TObject);

var

a:real;

begin

if radiobutton2.Checked then a:=9000;

edit4.Text:=floattostr(a);

edit1.Text:=floattostr(a);

end;

procedure TForm1.RadioButton3Click(Sender: TObject);

var

a:real;

begin

if radiobutton3.Checked then a:=11000;

edit4.Text:=floattostr(a);

edit1.Text:=floattostr(a);

end;

procedure TForm1.ComboBox1Change(Sender: TObject);

var

a,b,c:real;

begin

if combobox1.text='Burgur' then a:=5000;

if combobox1.text='Burgur Jumbo' then a:=6000;

if combobox1.text='Fungi Crispy' then a:=8000;

edit5.Text:=floattostr(a);

b:=strtofloat(edit4.Text);

c:=a+b;

edit1.Text:=floattostr(c);

end;

procedure TForm1.ComboBox2Change(Sender: TObject);

var

a,b,c,d:real;

begin

if combobox2.text='Espresso' then a:=4000;

if combobox2.text='Cappucino' then a:=5000;

if combobox2.text='Chocholate Coffe' then a:=6000;

edit6.Text:=floattostr(a);

b:=strtofloat(edit4.text);

c:=strtofloat(edit5.Text);

d:=a+b+c;

edit1.Text:=floattostr(d);

end;

procedure TForm1.CheckBox1Click(Sender: TObject);

var

a,b,c,d,e:real;

begin

if checkBox1.Checked then a:=1000;

b:=strtofloat(edit4.text);

c:=strtofloat(edit5.text);

d:=strtofloat(edit6.text);

e:=a+b+c+d;

edit1.text:=floattostr(e);

end;

procedure TForm1.Button1Click(Sender: TObject);

var

a,b,c:real;

begin

a:=strtofloat(edit1.text);

b:=strtofloat(edit2.text);

c:=b-a;

edit3.text:=floattostr(c);

if a>b then showmessage('Maaf Uang Yang Anda Bayarkan Masih Kurang')

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

showmessage('Terima Kasih Anda telah menggunakan prgram ini, copyright@akang samy');

form1.Close;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

edit1.Text:='';

edit2.Text:='';

edit3.Text:='';

showmessage('Silahkan Mulai Perhitungan dari Awal')

end;

end.

gmana masih kuat untuk melanjutkan???

sekarang saatnya kita Demo dengan program yang telah kita buat. inget ya kawand scripnya jangan dikopas tapi diketik aja.

untuk menjalankan program langsung kita tekan F9 pada keyboard

cara menggunakan program ini pun tak sulit kawan. yang dibutuhkan hanyalah urut dari awal. dari Paket hemat-Menu Special-Minuman-Diantar, setelah total harga muncul baru masukan berapa uang yang dibayarkan konsumen tekan hitung.

Kemudian untuk memulai perhitungan baru klik menu baru. Klik Ok.

cukup mudah kan?? nah untuk keluar dari Program cukup klik Keluar klik Ok apabila muncul windows command berikut

Nah gimana kawand. sudah mengerti kah??

sesudahnya terima kasih telah membaca tulisan ini. semoga bermanfaat

"Change is Not a Change If there is No Change''

Effect Blur Di Adobe Photoshop CS3

Publish: 15 November 2008 | Author & Copyright: J Rendra | Status: FREE tutorial

Tutorial perdana dari J. Rendra yaitu Membuat Efek Photo Blur di Photoshop... 
Langkah – Langkah:

Langkah 1
Buatlah Project baru
File > New
Tentukan Panjang dan Lebar yang diinginkan (pixels)
Tentukan juga berapa Resolusi yang dibutuhkan (pixel/cm)
Tentukan juga Color mode (default RGB)
Berapa Bit yang dibutuhkan (default 8 Bit)
Tentukan sendiri Background Contents (default White)



Lalu OK

Disini kita menggunakan Panjang 1024px ; Lebar 768px ; serta resolusi 72px/cm
Sebaiknya sesuaikan dengan resolusi gambar yang akan diedit

Langkah 2
Lalu Buka Project yang akan di edit
File > Open

Langkah 3
Setelah Project tersedia, suntinglah sehingga menjadi bahan yang siap untuk edit…
Maksud sunting disini adalah pindahkan gambar ke layer baru (untitled-1) dengan menggunakan Move Tool

Langkah 4 
Seleksi bagian mana saja yang ingin di edit pakai Magic Lasso Tool yang ada di toolbar atau Ctrl+L untuk mengaktifkannya,

Langkah 5
Edit Gambar, secara hati-hati (disini penulis menyeleksi bagian background gambar)
Tips: setelah menyeleksi gambar anak2 di contoh bawah, gunakan perintah inverse agar proses seleksi terbalik dari menyeleksi gambar anak ke gambar pemandangan/background

Langkah 6Jika ingin membuat garisnya rata, gunakana Ctrl + Atl + D dan tentukan berapa radius yang dibutuhkan….

Catatan: Semakin besar radius, semakin besar pula jarak yang akan di blur….

Langkah 7Gunakan Filter – Blur – Radial Blur... Sesuaikan blur yang akan digunakan….

Langkah 8 
Tampilan Radial Blur, tentukan apa saja yang kita ingin gunakan, dengan catatan semua tool yang ada dari tampilan ini mempunyai efek yang berbeda-beda…..

Hasilnya seperti ini, menggunakan blur Method: Zoom – Quality: Best – Amount: 50

Jika ingin melihat hasilnya secara detail, gunakan Ctrl+F untuk melihat hasilnnya

Langkah 9
Jika sudah selesai gunakan Ctrl+H untuk melepaskan/menghilangkan pointer
Hasil Akhir, seperti ini

Selamat mencoba.....

Terima Kasih

Semoga Bermanfaat... ^_^

7 Desa terunik di dunia

1. Desa dengan 100 kembar identik

tak heran jika guru di sekolah itu mendapat tugas tambahan untuk menghapal muridnya satu persatu. Kedua puluh pasang anak kembar itu berjenis kelamin sama dan merupakan kembar identik. Para guru kerap salah saat menyapa nama mereka. Apalagi setiap pasang anak kembar hanya dibedakan dengan belahan rambut.Kebanyakan anak kembar lahir di rumah sakit yang sama. Menurut gynaecologist rumah sakit setempat, selama 10 tahun ia bekerja tercatat ada 100 hingga 150 kembar. Lima atau enam di antaranya kembar tiga. Kenyataan itu melahirkan misteri yg mengundang untuk diteliti. (Desa Kodinji ,kerala utara ,india)

2. Desa unik yang mempunyai penduduk hanya satu orang

adalah seorang pria bernama don sammons (60th) yang sudah terbiasa tinggal sendirian. Di rumah? Tidak! Dia tinggal di dalam sebuah desa aneh yang hanya berpenduduk 1 orang, yaitu dirinya. Desa buford terletak di wyoming, colorado, daerah perbukitan dengan suhu rendah terlebih dimusim dingin. Desa ini tlh ditinggalkan oleh seluruh penghuninya yg memilih untuk tinggal di tempat lain untuk mencari penghidupan yg lebih baik karena merasa wilayah ini tidak akan bisa berkembang. Namun tidak demikian dengan kakek sammons yang kekeh untuk tetap tinggal disana walaupun seorang diri. Sammons meninggalkan los angeles th 1980 bersama istri dan anaknya dan memilih menetap di buford yg ketika itu masih dihuni oleh sekitar 2000 orang pekerja rel kereta api. Ketika istrinya meninggal 15 tahun lalu, anaknya yang kini berusia 26 tahun pun memilih untuk pindah ke kota colorado. Sammons mengelola sendiri sebuah pom bensin kecil dan sebuah toko untuk melayani mereka yang mampir dalam perjalanan lintas negara. “dalam sehari toko saya bisa dikunjungi 1000 orang di musim panas, namun menurun hingga 100 orang saja di musim dingin,” kata sammons yg mengklaim dirinya sebagai raja di buford.

 
3. Desa dengan penduduk keterbelakangan mental

sebanyak 445 warga di tiga desa yakni desa patihan, pandak, dan sidoharjo, kabupaten ponorogo, jawa timur, mengalami keterbelakangan mental atau idiot. Kondisi ini diyakini sudah terjadi sejak 1970-an. Tiga desa tersebut bersebelahan hanya dipisahkan oleh gugusan perbukitan rajekwesi. Desa sidoharjo berada dilereng sebelah utara, desa karang patihan di lereng timur, sementara desa pandak berada ditenggara. Namun jarak antar desa mencapai puluhan kilometer dipisahkan hutan dan perbukitan kapur. Kepala desa karang patihan daud cahyono menuturkan, sejak kemarau menerjang, kondisi desa di sekitar perbukitan menjadi tandus dan berkapur. Tak sedikit warga yang kekurangan gizi, kekurangan iodium, sehingga menyebabkan kebodohan.Kepala seksi gizi dinas kesehatan kabupaten ponorogo iman sukmanto membenarkan hal tsb. Menurut dia, salah satu penyebab keterbelakangan mental ratusan warga adalah kekurangan iodium yg banyak terdapat pada garam/kecap.

4. Desa kepiting

sebuah perkampungan yang warganya mengalami kelainan fisik ditemukan di dusun ulutaue, desa mario, kecamatan mare, bone, sulawesi selatan. Di sana, puluhan penduduknya menderita kelainan di jari kaki dan tangan. Mulai dari lanjut usia hingga bawah lima tahun, jari-jari mereka terbelah menjadi dua hingga mirip capit kepiting.di dusun ulutaue, baik anak-anak maupun dewasa memiliki jari terbelah dua dan terkadang hanya memiliki tiga ruas jari. Alhasil, jika difungsikan, jari mereka mirip dgn kepiting. Fenomena tersebut mereka anggap sebagai kutukan bagi mereka yg berasal dari garis keturunan yg sama. Akibat keanehan pada jari2 mereka, sebagian warga kampung lain ada yg merasa jijik bergaul dengan mereka. Tak hanya itu, perkampungan mereka pun diberi sebutan “kampung manusia kepiting” oleh warga setempat.

5. Desa berpenduduk poligami

Dalam hukum amerika, berpoligami adalah kejahatan. Tetapi bagi 1200 warga centennial park -kampung kecil di colorado arizona- berpoligami menjadi impian. Bahkan para gadis justru ingin berbagi suami saat menikah kelak. Mungkin ada yang bersikap moderat ditengah kontroversi soal poligami, bahwa orang berpoligami merupakan pilihan dan kesepakatan. Bahkan di as yang menegaskan bahwa poligami adalah kejahatan, praktik rumah tangga dgn dua atau beberapa cinta ternyata tetap ada. Sekitar 1200 penduduk centennial park, kampung kecil didekat colorado, menunjukkan bahwa mereka berpoligami juga dengan alasan sendiri. Berbeda dgn mayoritas warga as, mereka menyebut komunitasnya all-american families (keluarga amerika seluruhnya), dlm arti sebenarnya. Seperti ariel hammon, 32, yang menikahi helen, 30, yg memberinya tujuh orang anak, kemudian menikahi lisa, 20, yg memberinya dua anak. Bagi ariel dan dua istrinya berpoligami berarti menambah tenaga kerja untuk membangun rumah-rumah baru. “warga di centennial park pernah membangun rumah baru di dekat rumah induk hanya dalam waktu dua hari. Itu karena banyak anak, banyak sukarelawan,” kata ariel kepada abcnews. Cemburu karena cinta berbagi? “kami tidak pernah memikirkannya, justru ini yg saya impikan sejak dahulu,” kata helen, yang bekas siswa ariel seperti halnya lisa. “saya tidak masalah ariel sudah menikah, itu saya anggap bonus,” tambah lisa.

Beberapa penduduk yang ditanya soal seks, mengaku risih. Menurut mereka, para remaja tetap menjaga keperawanan dan dilarang berciuman sebelum menikah. Dan di tengah tergerusnya moralitas akibat merebaknya seks bebas di as, centennial park cenderung tertutup dan curiga dengan orang asing. “karena agama melarang (seks sebelum menikah),” kata seorang penduduk.

Seorang remaja putri, michelle misalnya berharap suatu hari keperawanan akan memberinya orang yang tepat. “tak masalah apakah calon suami saya punya enam istri. Laki2 bukan milik kami, kami juga tdk bisa menguasainya. Sebanyak apa pun istri yang diinginkannya, tak masalah selama itu kehendak tuhan,” kata michelle.
Ariel juga menilai program big love di televise hbo yg menggambarkan intrik, kecemburuan dan saling menjatuhkan antara para istri, bukannya kenyataan sebenarnya. Ariel menilai yg terpenting adalah menjaga keutuhan rumah tangga dan mengasuh anak-anak sehingga seks bukan prioritas. “untuk seks, harus mencuri waktu karena banyak anak di rumah. Tetapi seks adalah ekspresi cinta, banyak cinta di tempat ini,” kata ariel.

6. Desa yang penduduknya hidup tanpa air bersih

lebih dari 40 tahun warga pedukuhan wangon, desa kubangsari, kecamatan ketanggungan, kabupaten brebes, jawa tengah, hidup tanpa air bersih. Mereka merasa hidup tak layak di negera merdeka. Desa yang berpenduduk lebih dari 2.255 jiwa ini hidup tanpa air bersih.Air bersih bagaikan barang langka yang sulit didapat. Sementara pemerintah daerah seolah menutup mata terhadap kesulitan warganya itu. Konon katanya, desa ini kena kutukan karena ada seorang nenek nenek yang meminta air minum ke warga desa tapi ga ada yang ngasih.

7. Desa tanpa kasur

dusun kasuran adalah salah satu dusun yang yang ada di desa margodadi kecamatan sayegan, sleman. Sepintas emang gak beda sama dusun yang laen gan, tapi satu hal yang membedakan adalah mayoritas penduduknya gak tidur diatas kasur.
Tradisi ini udah berlangsung turun-temurun sejak jaman nenek moyang, dan gak cuma ditaati oleh orang-orang yang udah sepuh, tapi juga orang-orang muda dan anak-anak. Meyoritas warga tidur hanya beralaskan tikar atau dipan yang gak ada kasurnya.
Kebiasaan ini tentunya bukan tanpa alasan, mitosnya aturan agar warga gak tidur diatas kasur merupakan perintah dari sunan kalijaga. Dusun ini dulunya emang pernah disinggahi sunan kalijaga ketika melakukan perjalanan untuk menyebarkan agama islam. Sunan kalijaga berjalan dari godean menuju arah utara, antara lain melewati dusun grogol dan tuksibeduk. Sampai di kasuran sekitar pukul 13.00-14.00 sunan kalijaga merasa sangat lelah. Kemudian dia meminta salah satu warga agar menggelarkan kasur untuk istirahat.
Ketika akan melanjutkan perjalanan, sunan kalijaga berpesan agar warga jangan sekali-kali tidur diatas kasur. Pesan tersebut masih dilaksanakan sampe sekarang, bukan hanya buat penduduk asli tapi juga buat penduduk baru.trus bagaimana kalo dilanggar? Menurut pengakuan penduduk setempat biasanya akan terjadi hal-hal yang aneh. Seperti yang terjadi pada 11 orang mahasiswa yang sedang kkn di daerah ini, sebelumnya mereka udah diberitahu tentang peraturan tak tertulis yang dipercaya masyarakat, tapi gak tau apakah mereka bener-bener percaya atau hanya manggut-manggut tapi dalam hati menolak. Alhasil menjelang tengah malam 4 orang mahasiswa teriak-teriak histeris, teman-temannya mengira 4 orang ini masuk angin, setelah dipanggilkan dokter kondisi mereka tetap sama, setelah dipanggilkan sesepuh barulah mereka bisa tenang.

TOP 10 Virus terganas di Dunia

10. CIH – Kerugian $ 80.000.000

Virus ini dianggap salah satu virus yang paling berbahaya dan paling merusak yang pernah ada karena memiliki kemampuan untuk tetap tidak terdeteksi dalam memori komputer, dan menginfeksi setiap aplikasi yang dijalankan. Pertama kali dirilis pada tahun 1998, virus CIH file executable menginfeksi mulai dari sistem operasi Windows 95, 98, sampai windows ME.

Virus ini juga sengaja didistribusikan oleh vendor perangkat lunak, yang memberikan kontribusi  besar untuk menginfeksi komputer. Apa yang membuat virus ini berbahaya adalah bahwa ia memiliki tanggal pemicu. Setelah tanggal itu tercapai, hal itu menimpa file pada hard drive dan menghancurkan semua isi file.

CIH juga memiliki kemampuan untuk menimpa BIOS dari komputer untuk mencegah boot up. Virus ini juga dikenal sebagai virus Chernobyl karena beberapa varian yang ditetapkan untuk menghancurkan data di komputer yang bertepatan dengan kecelakaan pembangkit tenaga nuklir.

9. Blaster – Kerugian $ 320.000.000

Virus Blaster adalah sebuah malware kompleks yang menyebar sendiri tanpa melalui email, tetapi melalui kerentanan pengamanan baik di sistem Windows 2000 dan Windows XP. Ini perangkat lunak berbahaya yang terdeteksi pada pertengahan-2003 dan pada saat itu telah menginfeksi ratusan ribu komputer.

Setelah komputer terinfeksi, virus ini menampilkan sebuah kotak pesan yang menunjukkan bahwa sistem akan menutup dalam beberapa menit. Ia juga diprogram untuk meluncurkan serangan DDoS ke server yang dijalankan oleh Microsoft pada April 2003. Didalam kode virus ini juga ditemukan pesan tersembunyi untuk pendiri Microsoft Bill Gates yang berbunyi “Billy Gates, mengapa Anda membuat ini terjadi? Berhentilah membuat uang, dan memperbaiki perangkat lunak Anda! ”

8. Sasser – Kerugian $ 500.000.000

Sasser adalah virus komputer yang cukup rumit yang mampu melumpuhkan ribuan komputer. Virus ini dibuat oleh seorang mahasiswa berumur 17 tahun di Jerman pada tahun 2004. Sasser tidak menyebar melalui email, dan tidak memerlukan campur tangan manusia untuk menginfeksi sebuah komputer. Virus ini menginfeksi komputer dengan memanfaatkan kerentanan yang hadir di kedua mesin Windows 2000 dan Windows XP, yang dikenal sebagai mengeksploitasi (Remote Procedure Call) RPC – kerentanan yang sama yang digunakan oleh virus Blaster.

Sasser berhasil menginfeksi dan mematikan ribuan jaringan komputer hanya dalam hitungan hari. Setelah menginfeksi komputer, virus ini diprogram untuk mengakses internet untuk mencari mesin rentan lainnya sehingga dapat menginfeksi komputer lainnya.

7. SQL Slammer – Kerugian $ 750.000.000

SQL Slammer adalah virus peringkat 7 yang paling merusak dalam daftar ini. Muncul pada Januari 2003, menyebar cepat lewat internet. Waktu itu virus ini sempat membuat layanan ATM Bank Amerika crash, hancurnya layanan 911 Seattle, dan Continental Airlines membatalkan beberapa penerbangan karena error check in dan ticketing.

6. Virus Melissa – Kerugian $ 1.200.000.000

Dibikin tahun 1999 oleh David L Smith, basicnya Microsoft Word macro. Menyebar via email dengan dokumen “Here is that document you asked for, don’t show it to anybodey else.” Virus ini juga telah menginfeksi sampai 20% pemilik komputer di seluruh dunia. Bila sampai dibuka, virus akan mereplikasi dan otomatis terkirim ke top 50 di address book email Anda. Smith dipenjara 20 bulan karena ulahnya dan didenda $5000 serta dilarang mengakses komputer tanpa pengawasan.

5. Code Red – Kerugian $ 2.000.000.000

Tidak seperti virus lain, ini adalah virus yang ditargetkan agar komputer menjalankan Microsoft IIS (Internet Information Server) Web Server, dan mengeksploitasi bug dalam perangkat lunak. Setelah komputer telah terinfeksi, virus ini akan memodifikasi situs yang diakses dan menampilkan pesan “Welcome to http://www.worm.com! Hacked oleh Cina “Lalu!, Nanti virus ini akan mencari komputer lain untuk menjalankan software web server dan melakukan hal yang sama. Setelah sekitar dua minggu menginfeksi, virus ini diprogram untuk memulai DDoS (Distributed Denial of Service) serangan pada situs-situs tertentu, termasuk server Gedung Putih.

4. Conficker: Kerugian $ 9.100.000.000

Conficker (juga disebut Downup, Downandup dan Kido) adalah worm yang muncul pada Oktober 2008. Conficker menyerang Windows dan paling banyak ditemui dalam Windows XP. Microsoft merilis patch untuk menghentikan worm ini pada tanggal 15 Oktober 2008. Heinz Heise memperkirakan Conficker telah menginfeksi 2.5 juta PC pada 15 Januari 2009, sementara The Guardian memperkirakan 3.5 juta PC terinfeksi.Pada 16 Januari 2009, worm ini telah menginfeksi hampir 9 juta PC, dan menjadikannya salah satu infeksi virus yang paling cepat menyebar dalam waktu singkat.

3. ILOVEYOU – Kerugian $ 15.000.000.000

Worm ini berasal dari Manila, Filipina pada tanggal 4 Mei 2000 dan menyebar ke seluruh dunia dalam satu hari, pindah ke Hong Kong, kemudian ke Eropa dan Amerika Serikat, menyebabkan kerugian ekonomi sekitar $ 5,5 miliar dalam jangka waktu kurang dari 2 minggu. Pada tahun 2000, 50 juta orang telah melapor terinfeksi virus ini. Dalam rangka untuk membebaskan diri dari virus ini, Pentagon, CIA, dan Parlemen Inggris harus menutup sistem email mereka;. Seperti yang dilakukan kebanyakan perusahaan besar dunia.

Worm ini menimpa file penting – file musik, file multimedia, dan banyak lagi – dengan salinan dirinya. Virus ini juga mengirim worm ke lima puluh orang pertama dalam daftar buku teman. Karena ditulis dalam Visual Basic Script dan dihubungkan dengan Buku Alamat Windows Outlook, worm ini hanya mempengaruhi komputer yang menjalankan sistem operasi Microsoft Windows.

2. Sobig.F – Kerugian $ 37.000.000.000

Virus komputer ini menyebabkan kerugian miliaran dolar dengan mengulur-ulur atau benar-benar menabrak gateway Internet dan server email, sehingga tanpa ampun memperlambat akses internet global. Virus Ini dapat mengirim lebih dari satu juta salinan dari dirinya sendiri hanya dalam beberapa jam. Pada September 2003, virus ini telah diprogram untuk menonaktifkan dirinya sendiri. Dan akhirnya virus ini berhenti mengancam dunia dengan sendirinya.

1. MyDoom – Kerugian $ 38.000.000.000

Mulai menyerang tanggal 1 Februari 2004, virus ini membuat backdoor di OS. Pertama kali tanggal 1 itu mulai DDoS. Kedua, tanggal 12 Feb, virus ini berhenti menyebar dan mulai buat backdoors. MyDoom menyebar via email, selain itu selalu search di search engines, seperti Google mulai menerima jutaan permintaan pencarian dan bikin lambat sampai akhirnya crash. Gara-gara MyDoom, Senator US Chuck Schumer mengajukan pembuatan National Virus Response Center.

SMS Bomber (kirim 1.000 sms ke HP musuh)

Program yang satu ini sangat cocok untuk memberi pelajaran bagi orang-orang yang selalu melakukan penipuan lewat SMS seperti dapat uang, mobil, atau hadiah-hadiah lainnya. Yang selanjutnya meminta rekening kita dan bisa-bisa uang kita yang tersimpan di Bank tersebut bisa hilang karena ulah mereka. Kita juga bisa menggunakan untuk membalas cowok-cowok yang sering sms atau telepon untuk menggoda cewek kita (pengalaman pribadi!! ).

Program yang satu ini tidak memerlukan koneksi internet, hanya membutuhkan Handphone, kabel data, dan PC. Karena tidak menggunakan internet, maka untuk setiap SMS yang keluar dikenakan pulsa. Untuk itu gunakanlah operator yang memiliki fitur bonus SMS terbanyak, agar kita tidak mengalami kerugian dalam melakukan Bomber SMS tersebut.

Sekarang langsung saja kita praktek untuk Bomb SMS...

• Koneksikan HP anda dengan PC menggunakan kabel data (terinstall PC Suite).
• Install program SMSCaster, download DI SINI.
• Klik Yes untuk Auto Detect HP kita.
• Klik "Compose" buat mengirim sms baru. Isikan nomor target yang di akan di Boom dan ketikkan pesan yang anda inginkan.
• Klik tulisan "send to Outbox" sebanyak yang akan kita kirimkan (langsung klik terus tulisan "send to Outbox") sampai 100, 1.000, 10.000 juga bisa.
• Kalau sudah no. 3, sekarang klik di "outbox" (angka dalam kurung merupakan jumlah yang ada dalam outbox alias yang akan kita kirim), selanjutnya tekan "START" atau "Send".... Terkirim tuh....
• Untuk ngecek berapa yang sudah terkirim, tinggal klik "Sent" (angka dalam kurung merupakan jumlah yang sudah terkirim).

Kalau Boom SMS anda berhasil, bakal mampus atau Hang deh HP musuh kita tersebut . Karena menerima begitu banyak SMS sekaligus sampai Inbox nya penuh dengan SMS yang kita kirim.

Selamat mencoba...!! Gunakanlah trik ini secara bijak...!!

Cara membuat username atau nama invisible Facebook

Character Map adalah sebuah tools sederhana dari Windows yang bisa anda buat untuk berkreasi membuat nama-nama unik dan aneh di Facebook.

Dengan tools tersebut kita bisa membuat bermacam-macam username atau nama unik di Facebook sesuai dengan keinginan kita. Dari mulai mencampur font dan simbol yang kita inginkan untuk di pakai sebagai username atau nama Facebook kita.

Kali ini saya akan mengajarkan teman-teman semua untuk membuat username atau nama Facebook kita menjadi Invisible (tidak kelihatan) dengan menggunakan tools Character Map agar bisa seperti INI.

Langsung saja kita coba......

• Klik Start > Programs > Accessories > System Tools > Character Map.
• Untuk Font pilih Arial Unicode MS, terus centang pada Advanced view dan masukkan 200D pada kolom “ Go To Unicode “.
• Pilih Font pertama sebelah kiri atas, lalu tekan tombol Select 1x dan selanjutnya tekan tombol Copy 1x.
• Login ke akun Facebook anda dan klik Akun > Pengaturan akun.
• Paste hasil copy Font dari Character Map pada kolom Nama Depan sebanyak 2x dan pada Nama Belakang sebanyak 2x. Klik Ganti Nama jika sudah selesai.
• Lihat hasilnya pada halaman profil anda.

Untuk lebih jelasnya anda bisa download tutorialnya DISINI yang sudah saya lengkapi dengan gambar.

NB : biasanya konfirmasi perubahan username atau nama Facebook memerlukan waktu 1x24 jam.

Cara melihat status lama Facebook (History Status)

Update status di Facebook merupakan hal yang tidak bisa dipisahkan dari kehidupan manusia, itu semua karena setiap kali kita akan :

tiduuurrr.........
bangun tiduuurrr...........
sarapan.............
makan sesuatu.........
melakukan sesuatu hal.........
sedih.......
gembira..........
susah........
bahkan mau melakukan operasi kanker pun, masih update status........

Akan tetapi, dengan seiring bertambahnya umur manusia tersebut. Maka status di Facebook setiap manusia, lama -kelamaan akan berangsur-angsur lebih dewasa. Yang dulu kata-katanya agak alay dan lebay, lama-kelamaan akan berangsur-angsur menjadi dewasa.

Untuk itu, saya akan mengajak anda semua untuk bernostalgia dengan status-status anda di masa lalu. Karena dengan salah satu aplikasi dari Facebook ini, kita dapat mengetahui History dari status-status yang pernah kita buat selama ini. Bahkan, akan ditampilkan status kita dari pertama kali kita buat status sampai yang terakhir.

Barangkali dengan itu semua, bisa membuat anda sadar dengan apa yang telah anda ketikkan di status Facebook selama ini. Semoga anda bisa kembali ke jalan yang benar. (emang penjahat!! )

Oke langsung saja kita praktekkan......

1. Login ke akun Facebook anda.
2. Selanjutnya, klik link aplikasi dibawah ini :

http://apps.facebook.com/mystatuses/newestfirst

3. Lalu izinkan aplikasi tersebut.
4. Silakan ber-Nostalgia dengan status-status anda.

DILARANG KERAS UNTUK TERTAWA.....