UNITY AREA V9

ni sob cheat Point Blank yang emang masih mau GB.,.

DOWNLOAD

no pass,.,.,.,.,.,.

Read More

Cheat PB 12112010

download here

Read More

Synister Mp3 Player

ini karya arek Synister.,.,.,,.,.,.
download yuuukkk

Read More

Resensi Harry Potter dan Batu Bertuah

IDENTITAS BUKU

Judul buku : Harry Potter dan Batu Bertuah (Harry Potter and The Sorcerer Stone)
Pengarang : J.K. Rowling
Penerjemah : Listiani Srisani
Penerbit : PT Gramedia Pustaka Utama
Tahun terbit : 2000
Tebal : 384 halaman
Diresensi oleh Ruthadaning Inayati

GAMBARAN UMUM

“Anak yang Bertahan Hidup”

Harry berhasil selamat dari pembunuhan yang akan dilakukan musuh orang tuanya, Lord Voldemort. Padahal umurnya baru 1 tahun.
Harry tinggal di rumah paman dan bibinya di Privet Drive no. 13 selama 11 tahun. Namun slama itu Harry belum pernah diperlakukan layak oleh paman dan bibinya. Mereka punya anak bernama Dudley yang super duper besar, Dudley pun sama seperti kedua orang tuanya.
Hingga suatu hari, kejadian ajaib mendatanginya. Seorang manusia setengah raksasa tiba-tiba mendatanginya dan mengatakan bahwa Harry seorang penyihir. Sontak saja paman dan bibinya kaget bukan main. Bagaimana mungkin rahasia yang mereka jaga selama 11 tahun terungkap begitu saja kalau Harry Potter adalah seorang penyihir. Singkatnya, Harry dibawa dan diperkenalkan dengan sebuah sekolah sihir bernama Hogwarts dan segala komunitas sihir yang selama ini bersembunyi. Dari sini petualangan Harry Potter “Anak yang Bertahan Hidup” dimulai
Di tahun pertamanya di Hogwarts, Harry telah banyak dikenal. Ia juga selain berbakat sihir, juga bakat mengendarai sapu terbang sehingga ia dipilih menjadi seorang seeker di sebuah olahraga bernama Quidditch. Selain itu Harry punya 2 orang sahabat, Ronald Weasley dan Hermione Granger. Ron seorang yg konyol dan lucu. Sedangkan Hermione memiliki kecerdasan yang luar biasa. Merekalah yang membantu Harry Potter dalam petualangannya.
Harry di akhir tahun ajaran pertamanya, berhasil tahu bahwa ada seseorang yang ingin mencuri “SORCERER STONE”, batu bertuah, yang disembunyikan di Hogwarts. Air yang dihasilkan batu itu bisa membuat peminumnya berumur panjang. Itulah yang diincar Voldemort, musuh yang telah membunuh kedua orang tua Harry. Namun, Harry, Ron dan Hermione bisa menggagal rencananya. Harry nyaris saja kehilangan jiwanya ketika tiba-tiba bekas lukanya begitu sakit saat berhadapan dengan Voldemort yang merasuki tubuh Quirrel. Harry nyaris tak tertolong jika saja Dumbledore, kepala sekolahnya, tidak datang disaat yang tepat.





KELEBIHAN
• Alur cerita menarik dan berurutan
• Bahasa yang digunakan sederhana dan lugas sehingga pembaca tidak akan merasa bosan
• Penokohan yang unik, tokoh antagonis dan protagonis digambarkan dengan baik dan jelas
• Klimaks dan antiklimaks yang bagus membuat pembaca merasa puas dengan akhir cerita.
• Konflik-konflik cerita yang disajikan mampu membuat pembaca penasaran.
• Diselingi dengan humor-humor dan kejadian-kejadian lucu membuat pembaca tidak mudah bosan dengan alur cerita.

KEKURANGAN
• Desain kover yang kurang menarik dan bahan kertas kurang bagus.
• Terlalu banyak tokoh-tokoh sampingan yang muncul membuat pembaca sulit mengingat nama tokoh tersebut.

KEBERMANFAATAN
• Bacaan yang menarik bagi pembaca yang menyukai cerita misteri dan imajinasi.
• Memberi amanat agar tidak mudah berburuk sangka pada orang lain.
• Menggambarkan tentang persahabatan manis yang terjalin antara Harry Potter, Ronald Weasley dan Hermione Granger sehingga pembaca diharapkan mampu mencontoh sifat mereka.

Read More

KALKULATOR SEDERHANA DENGAN VISUAL BASIC 6

belajar bikin Kalkulator sederhana dengan Visual Basic...
Pertama buka dulu Program Visual Basicnya.... yg Portable ato yg Enterprise gpp...




Nich buat dulu susunannya kayak gambar di atas.. dengan propertis seperti di bawah ini...
Textbox 1:
(Name) : txtDisplay
Alignment: 1-Right Justify
Text : (kosongkan)
Maxlength : 12
Command Button 1:
(Name) : cmdAngka
Index : 1
Caption : 1
Command Button 2:
(Name) : cmdAngka
Index : 2
Caption : 2
Command Button 3:
(Name) : cmdAngka
Index : 3
Caption : 3
Command Button 4:
(Name) : cmdAngka
Index : 4
Caption : 4
Command Button 5:
(Name) : cmdAngka
Index : 5
Caption : 5
Command Button 6:
(Name) : cmdAngka
Index : 6
Caption : 6
Command Button 7:
(Name) : cmdAngka
Index : 7
Caption : 7
Command Button 8:
(Name) : cmdAngka
Index : 8
Caption : 8
Command Button 9:
(Name) : cmdAngka
Index : 9
Caption : 9

Command Button 10:
(Name) : cmdAngka
Index : 0
Caption : 0
Command Button 11:
(Name) : cmdPlusMinus
Caption : +/-
Command Button 12:
(Name) : cmdKoma
Caption : .
Command Button 13:
(Name) : cmdOperator
Index : 1
Caption : +
Command Button 14:
(Name) : cmdOperator
Index : 2
Caption : -
Command Button 15:
(Name) : cmdOperator
Index : 3
Caption : x
Command Button 16:
(Name) : cmdOperator
Index : 4
Caption : /
Command Button 17:
(Name) : cmdClearEntry
Caption : CE
Command Button 18:
(Name) : cmdClear
Caption : C
Command Button 19:
(Name) : cmdSamaDengan
Caption : =
Berikutnya, Anda tinggal membuat coding dari kalkulator tersebut. Jika Anda mengikuti semua
setting properties seperti diatas, maka codingnya saya contohkan seperti ini:

Option Explicit
Private Hasil As Double
Private Const opNol = 0
Private Const opTambah = 1
Private Const opKurang = 2
Private Const opKali = 3

Private Const opBagi = 4
Private Operator As Integer
Private NilaiBaru As Boolean
' untuk menghapus karakter terakhir
Private Sub Hapus()
Dim txt As String
Dim min_len As Integer
txt = txtDisplay.Text
If Left$(txt, 1) = "-" Then
min_len = 2
Else
min_len = 1
End If
If Len(txt) > min_len Then
txtDisplay.Text = Left$(txt, Len(txt) - 1)
Else
txtDisplay.Text = "0"
End If
End Sub
' hapus angka, hasil terakhir dan operator
Private Sub cmdClear_Click()
cmdClearEntry_Click
Hasil = 0
Operator = opNol
End Sub
' hapus angka
Private Sub cmdClearEntry_Click()
txtDisplay.Text = ""
End Sub
' menambahkan koma (desimal)
Private Sub cmdKoma_Click()
If InStr(txtDisplay.Text, ".") Then
Beep
Else
If NilaiBaru Then
txtDisplay.Text = "."
NilaiBaru = False
Else
txtDisplay.Text = txtDisplay.Text & "."
End If
End If
End Sub
' Menghitung
Private Sub cmdSamaDengan_Click()
Dim HasilBaru As Double
If txtDisplay.Text = "" Then
HasilBaru = 0

Else
HasilBaru = CDbl(txtDisplay.Text)
End If
Select Case Operator
Case opNol
Hasil = HasilBaru
Case opTambah
Hasil = Hasil + HasilBaru
Case opKurang
Hasil = Hasil - HasilBaru
Case opKali
Hasil = Hasil * HasilBaru
Case opBagi
'Tidak bisa dibagi nol
If HasilBaru = 0 Then
MsgBox "Tidak bisa dibagi 0", vbOKOnly + vbCritical, "Kalku ERROR"
Call cmdClear_Click
Else
Hasil = Hasil / HasilBaru
End If
End Select
Operator = opNol
NilaiBaru = True
txtDisplay.Text = Format$(Hasil)
End Sub
' menuliskan angka
Private Sub cmdAngka_Click(Index As Integer)
If NilaiBaru Then
txtDisplay.Text = Format$(Index)
NilaiBaru = False
Else
txtDisplay.Text = _
txtDisplay.Text & Format$(Index)
End If
End Sub
' tombol tambah/kurang/bagi/kali
Private Sub cmdOperator_Click(Index As Integer)
cmdSamaDengan_Click
Operator = Index
NilaiBaru = True
End Sub
' merubah tanda +/-
Private Sub cmdPlusMinus_Click()
If NilaiBaru Then
txtDisplay.Text = "-"
ElseIf Left$(txtDisplay.Text, 1) = "-" Then
txtDisplay.Text = Right$(txtDisplay.Text, 2)
Else

txtDisplay.Text = "-" & txtDisplay.Text
End If
End Sub
' filter untuk angka saja yg dapat diketikkan
Private Sub Form_KeyPress(KeyAscii As Integer)
txtDisplay_KeyPress KeyAscii
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
txtDisplay_KeyUp KeyCode, Shift
End Sub
' supaya kursor tetap di kanan
Private Sub txtDisplay_Change()
txtDisplay.SelStart = Len(txtDisplay.Text)
End Sub
Private Sub txtDisplay_GotFocus()
txtDisplay_Change
End Sub
' untuk mengetikkan angka di keyboard
Private Sub txtDisplay_KeyPress(KeyAscii As Integer)
Dim ch As String
ch = Chr$(KeyAscii)
Select Case ch
Case "0"
cmdAngka_Click 0
Case "1"
cmdAngka_Click 1
Case "2"
cmdAngka_Click 2
Case "3"
cmdAngka_Click 3
Case "4"
cmdAngka_Click 4
Case "5"
cmdAngka_Click 5
Case "6"
cmdAngka_Click 6
Case "7"
cmdAngka_Click 7
Case "8"
cmdAngka_Click 8
Case "9"
cmdAngka_Click 9
Case "*", "x", "X"
cmdOperator_Click opKali
Case "+"
cmdOperator_Click opTambah
Case vbCrLf, vbCr, "="

cmdSamaDengan_Click
Case "-"
cmdOperator_Click opKurang
Case "."
cmdKoma_Click
Case "/"
cmdOperator_Click opBagi
Case "C", "c"
cmdClearEntry_Click
End Select
KeyAscii = 0
End Sub
' untuk ketikan angka di numpad
Private Sub txtDisplay_KeyUp(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyNumpad0
cmdAngka_Click 0
Case vbKeyNumpad1
cmdAngka_Click 1
Case vbKeyNumpad2
cmdAngka_Click 2
Case vbKeyNumpad3
cmdAngka_Click 3
Case vbKeyNumpad4
cmdAngka_Click 4
Case vbKeyNumpad5
cmdAngka_Click 5
Case vbKeyNumpad6
cmdAngka_Click 6
Case vbKeyNumpad7
cmdAngka_Click 7
Case vbKeyNumpad8
cmdAngka_Click 8
Case vbKeyNumpad9
cmdAngka_Click 9
Case vbKeyMultiply
cmdOperator_Click opKali
Case vbKeyAdd
cmdOperator_Click opTambah
Case vbKeySeparator
cmdSamaDengan_Click
Case vbKeySubtract
cmdOperator_Click opKurang
Case vbKeyDivide
cmdOperator_Click opBagi
Case vbKeyDecimal
cmdKoma_Click
Case vbKeyBack, vbKeyDelete
Hapus
End Select
KeyCode = 0
End Sub

kalo' males nulis COPAS az,,, hee..ee,,hee,,

nah dari yang saderhana di atas bisa dikembangin tu... tambah kuadrat, trigonometri, dsb....
Selamat Berkreasi....

Read More