Selamat Idul Adha

Selamat Idul Adha...
Semoga umat yang wukuf di arafah menjadi haji yang mabrur.
Semoga umat islam semua bisa berkorban untuk agamanya..
Islam bangkit ...

Perempuanku

Perempuanku
by : dian heryana

Hai Perempuan ...
mengapa kau mendekat disaat ku coba tuk menjauh
Hai Perempuan ...
mengapa kau hadir dalam mimpiku disaat ku coba tuk melupakan

Hai perempuan ...
jangan kau tersenyum padaku
karena senyumu luluhkan hatiku
Hai perempuan ...
jangan kau berkata padaku
karena katamu teluh jiwaku

hai perempuan ...
simpan semua tuk lelaki mu..

maafkan saya ...
maafkan ..
maaf.

Install windows XP from USB Disk Drive

Waktu terus berjalan tanpa kenal lelah, tanpa jeda walau hanya untuk sekedar menghela nafas.
kita tidak akan pernah berada dalam satu tempat yang sama dalam waktu yang sama. waktu terus berjalan, tanpa peduli kita kita hanya diam, tertawa dengan kesombongan, ghibah atau hanya diam tanpa makna, waktu akan terus berjalan tanpa akan kembali.

---

berikut ini ada link yang menurut saya cukup menarik mungkin bisa untuk mengisi waktu kita dengan ilmu sehingga waktu tidak kita sia siakan.
ini adalah link cara install windows xp dari usb disk drive :
http://www.techrena.net/computers/install-windows-xp-usb-disk-drive-pen-drive/

---
link yang berikutnya adalah link untuk membuka password login windows xp, ini adalah tutorial yang cukup menarik. tool ini bisa digunakan untuk kebaikan atau keburukan. jadi perkuat iman dan moral :)

http://ebsoft.web.id/2009/04/27/hack-password-windows-7-vista-xp-ubuntu-atau-fedora/
http://ebsoft.web.id/2008/07/07/cara-me-reset-password-admin-user-windows/

---

kenapa saya tidak memuat artikel nya di blog ini, terus terang saya agak sedikit males copy - pastenya, jadi link nya ajah :)

semoga bermanfaat, dan digunakan dalam kebaikan. kita akan menuai apa yang kita tanam. jadi apa yang akan kita taman? atau mau beli yang instan? :)

Latihan VB Lagi ....

Buat Latihan VB Lagi ........


Scriptnya ceperti ini ...

Private Sub Form_Load()
Combo1.AddItem "KM"
Combo1.AddItem "MJ"
Combo1.AddItem "IP"
Combo1.AddItem "VN"

End Sub

Private Sub cmd_exit_Click()
End
End Sub

Private Sub Combo1_Click()
If (Combo1.Text = "KM") Then
txt_jenis_buku.Text = "Komik"
txt_harga.Text = 250
ElseIf (Combo1.Text = "MJ") Then
txt_jenis_buku.Text = "Majalah"
txt_harga.Text = 200
ElseIf (Combo1.Text = "IP") Then
txt_jenis_buku.Text = "Iptek"
txt_harga.Text = 300
Else
txt_jenis_buku.Text = "Novel"
txt_harga.Text = 350
End If

End Sub

Private Sub DTPicker2_Change()
txt_lama.Text = DTPicker2.Value - DTPicker1.Value
txt_biaya.Text = Val(txt_harga.Text) * Val(txt_lama.Text) * Val(txt_jml_bk.Text)

If (txt_lama.Text > 7) Then
txt_denda.Text = Val(txt_lama.Text - 7) * 100 * Val(txt_jml_bk.Text)
Else
txt_denda.Text = 0
End If

End Sub

Private Sub cmd_hitung_Click()
txt_total.Text = Val(txt_biaya.Text) + Val(txt_denda.Text)
End Sub

Private Sub cmd_tambah_Click()
DTPicker1.Value = Date
DTPicker2.Value = Date
txt_jenis_buku.Text = ""
txt_harga.Text = ""
txt_lama.Text = ""
txt_total.Text = ""
txt_denda.Text = ""
txt_biaya.Text = ""
txt_nama.Text = ""
txt_jml_bk.Text = ""


End Sub