PRESENT PERFECT TENSE
(+) S + HAVE/ HAS + VERB 3 + O
Jeff has bought car
(-) S + HAVE/ HAS + NOT + VERB 3 + O
Jeff has not bought car
(?) HAVE/HAS + S + V3 + O?
Has Jeff bought car
SIMPLE PAST TENSE
(+)S + VERB 2 + O + ADVERB OF TIME (keterangan waktu)
Deni went to Jogja yesterday
(-)S + DID + NOT + V1 + O +ADVERB OF TIME
Deni did not go to Jogja yesterday
(?)DID + S + V 1 + O + ADVERB OF TIME
Did Deni go to Jogja yesterday?
Secara rumus, memang penyusunan kalimat present perfect tense dan simple past tense sangat berbeda, jika dalam present perfect tense kita menggunakan Verb 3 (kata kerja bentuk ketiga), sedangkan dalam simple past tense kita menggunakan Verb 2 (kata kerja bentuk kedua).
Sedangkan maknanya, jika kalimat ini diterjemahkan ke dalam bahasa Indonesia, kalimat yang mempunyai bentuk tenses present perfect tense dan simple present tense mempunyai arti yang sama yaitu: sudah atau telah.
Contoh:
I have eaten bread : saya telah makan nasi
I ate bread yesterday: saya telah makan nasi kemarin
Terkadang kita bingung kapan kita kita harus menggunakan simple present tense, kapan kita menggunakan simple past tense. Jika ingin membuat suatu kalimat yang kita tidak tahu atau tidak disertai dengan keterangan waktu maka kita menyusunnya menggunakan bentuk present perfect tense, sedangkan jika kita mengetahui keterangan waktunya, maka kita menggunakan simple past tense.
Jadi, perbedaan antara present perfect tense dan simple past tense hanya penggunaan keterangan waktu saja. present perfect tense tidak ada keterangan waktu secara jelas. sedangkan simple past tense, ada keterangan waktu lampau yang jelas.
Contoh Present Perfect Tense:
1. She has gone (Dia baru saja pergi) (+)
2. She has not gone (-)
3. Has She gone? (?)
4. I have written english lesson for 30 minutes
5. You have read my lesson since 2 PM
Contoh Simple Past Tense:
1. I saw her standing there
2. My Father bought this car last year
3. They went to Tokyo last month
4. She went home two minutes ago
5. Did My Father buy this car last year ?
19 Feb 2011
Hipotesis Mahasiswa Ini Mematahkan Jawaban Profesornya
Seorang Profesor dari sebuah universitas terkenal menantang mahasiswa-mahasiswa nya dengan pertanyaan ini, "Apakah Tuhan menciptakan segala yang ada?".
Seorang mahasiswa dengan berani menjawab, "Betul, Dia yang menciptakan semuanya".
"Tuhan menciptakan semuanya?" Tanya professor sekali lagi. "Ya, Pak, semuanya" kata mahasiswa tersebut.
Profesor itu menjawab, "Jika Tuhan menciptakan segalanya, berarti Tuhan menciptakan Kejahatan. Karena kejahatan itu ada, dan menurut prinsip kita bahwa pekerjaan kita menjelaskan siapa kita, jadi kita bisa berasumsi bahwa Tuhan itu adalah kejahatan".
"Mahasiswa itu terdiam dan tidak bisa menjawab hipotesis professor tersebut. Profesor itu merasa menang dan menyombongkan diri bahwa sekali lagi dia telah membuktikan kalau Agama itu adalah sebuah mitos.
Mahasiswa lain mengangkat tangan dan berkata, "Profesor, boleh saya bertanya sesuatu?".
"Tentu saja," jawab si Profesor,
Mahasiswa itu berdiri dan bertanya, "Profesor, apakah dingin itu ada?"
"Pertanyaan macam apa itu? Tentu saja dingin itu ada.
Kamu tidak pernah sakit flu?" Tanya si professor diiringi tawa mahasiswa lainnya.
Mahasiswa itu menjawab, "Kenyataannya, Pak, dingin itu tidak ada.
Menurut hukum fisika, yang kita anggap dingin itu adalah ketiadaan panas. Suhu -460F adalah ketiadaan panas sama sekali. Dan semua partikel menjadi diam dan tidak bisa bereaksi pada suhu tersebut. Kita menciptakan kata dingin untuk mendeskripsikan ketiadaan panas."
Mahasiswa itu melanjutkan, "Profesor, apakah gelap itu ada?" Profesor itu menjawab, "Tentu saja itu ada."
Mahasiswa itu menjawab, "Sekali lagi anda salah, Pak.
Gelap itu juga tidak ada. Gelap adalah keadaan dimana tidak ada cahaya. Cahaya bisa kita pelajari, gelap tidak.
Kita bisa menggunakan prisma Newton untuk memecahkan cahaya menjadi beberapa warna dan mempelajari berbagai panjang gelombang setiap warna. Tapi Anda tidak bisa mengukur gelap. Seberapa gelap suatu ruangan diukur dengan berapa intensitas cahaya di ruangan tersebut. Kata gelap dipakai manusia untuk mendeskripsikan ketiadaan cahaya."
Akhirnya mahasiswa itu bertanya, "Profesor, apakah kejahatan itu ada?"
Dengan bimbang professor itu menjawab, "Tentu saja, seperti yang telah kukatakan sebelumnya.
Kita melihat setiap hari di Koran dan TV. Banyak perkara kriminal dan kekerasan di antara manusia. Perkara-perkara tersebut adalah manifestasi dari kejahatan."
Terhadap pernyataan ini mahasiswa itu menjawab, "Sekali lagi Anda salah, Pak.
Kajahatan itu tidak ada. Kejahatan adalah ketiadaan Tuhan. Seperti dingin atau gelap, kajahatan adalah kata yang dipakai manusia untuk mendeskripsikan ketiadaan Tuhan.
Tuhan tidak menciptakan kajahatan. Kajahatan adalah hasil dari tidak adanya kasih Tuhan dihati manusia. Seperti dingin yang timbul dari ketiadaan panas dan gelap yang timbul dari ketiadaan cahaya."
Profesor itu terdiam.
Siapakah mahasiswa tersebut???
ALBERT EINSTEIN
Seorang mahasiswa dengan berani menjawab, "Betul, Dia yang menciptakan semuanya".
"Tuhan menciptakan semuanya?" Tanya professor sekali lagi. "Ya, Pak, semuanya" kata mahasiswa tersebut.
Profesor itu menjawab, "Jika Tuhan menciptakan segalanya, berarti Tuhan menciptakan Kejahatan. Karena kejahatan itu ada, dan menurut prinsip kita bahwa pekerjaan kita menjelaskan siapa kita, jadi kita bisa berasumsi bahwa Tuhan itu adalah kejahatan".
"Mahasiswa itu terdiam dan tidak bisa menjawab hipotesis professor tersebut. Profesor itu merasa menang dan menyombongkan diri bahwa sekali lagi dia telah membuktikan kalau Agama itu adalah sebuah mitos.
Mahasiswa lain mengangkat tangan dan berkata, "Profesor, boleh saya bertanya sesuatu?".
"Tentu saja," jawab si Profesor,
Mahasiswa itu berdiri dan bertanya, "Profesor, apakah dingin itu ada?"
"Pertanyaan macam apa itu? Tentu saja dingin itu ada.
Kamu tidak pernah sakit flu?" Tanya si professor diiringi tawa mahasiswa lainnya.
Mahasiswa itu menjawab, "Kenyataannya, Pak, dingin itu tidak ada.
Menurut hukum fisika, yang kita anggap dingin itu adalah ketiadaan panas. Suhu -460F adalah ketiadaan panas sama sekali. Dan semua partikel menjadi diam dan tidak bisa bereaksi pada suhu tersebut. Kita menciptakan kata dingin untuk mendeskripsikan ketiadaan panas."
Mahasiswa itu melanjutkan, "Profesor, apakah gelap itu ada?" Profesor itu menjawab, "Tentu saja itu ada."
Mahasiswa itu menjawab, "Sekali lagi anda salah, Pak.
Gelap itu juga tidak ada. Gelap adalah keadaan dimana tidak ada cahaya. Cahaya bisa kita pelajari, gelap tidak.
Kita bisa menggunakan prisma Newton untuk memecahkan cahaya menjadi beberapa warna dan mempelajari berbagai panjang gelombang setiap warna. Tapi Anda tidak bisa mengukur gelap. Seberapa gelap suatu ruangan diukur dengan berapa intensitas cahaya di ruangan tersebut. Kata gelap dipakai manusia untuk mendeskripsikan ketiadaan cahaya."
Akhirnya mahasiswa itu bertanya, "Profesor, apakah kejahatan itu ada?"
Dengan bimbang professor itu menjawab, "Tentu saja, seperti yang telah kukatakan sebelumnya.
Kita melihat setiap hari di Koran dan TV. Banyak perkara kriminal dan kekerasan di antara manusia. Perkara-perkara tersebut adalah manifestasi dari kejahatan."
Terhadap pernyataan ini mahasiswa itu menjawab, "Sekali lagi Anda salah, Pak.
Kajahatan itu tidak ada. Kejahatan adalah ketiadaan Tuhan. Seperti dingin atau gelap, kajahatan adalah kata yang dipakai manusia untuk mendeskripsikan ketiadaan Tuhan.
Tuhan tidak menciptakan kajahatan. Kajahatan adalah hasil dari tidak adanya kasih Tuhan dihati manusia. Seperti dingin yang timbul dari ketiadaan panas dan gelap yang timbul dari ketiadaan cahaya."
Profesor itu terdiam.
Siapakah mahasiswa tersebut???
ALBERT EINSTEIN
Visual Basic – Daftar Buku Project
Sekarang kita mencoba belajar Database visual basic, yaitu database dengan menggunakan Microsoft Office Acces sebagai sumber datanya. Kita akan membuat sebuah aplikasi sederhana “Koleksi Bukuku” yang berfungsi untuk menyimpan daftar koleksi buku yang mungkin sangat banyak dan kita belum sempat melakukan inventarisasi terhadapnya.Saya sendiri sempat terkejut pada saat saya membuat project ini karena ketika saya memasukan data buku-buku saya eh..ternyata jumlahnya lumayan banyak yaitu 45 buku, bayangkan jika semua buku tersebut minimal harganya 25.000 sudah menghabiskan berapa rupiah nih ..???
Tapi semua buku pasti bermanfaat dan saya tentu tidak menyesal untuk membelinya dan memilikinya.
Thanks My Books.
Baik langsung saja yang dibutuhkan dalam project ini adalah :
1. satu form dengan nama main
2. satu dataenvironment dengan nama dataenvironment1
3. datareport dengan nama datareport1
Control yang ada didalam form, yaitu :
1. Imagelist1 sebagai penampung image untuk toolbar
2. Toolbar1 sebagai tempat menampung gambar yang akan dapat di klik langsung oleh user
3. frame1 sebagai tempat
4. tujuh Textbox yaitu txtjudul, txtreferensi, txtpenulis, txtcetakan, txtpenerbit, txtrecordaktif dan txtsearch
5. satu ComboBox yaitu cbosearch
6. satu CommandButton yaitu cmdcari
7. membuat Menubar untuk menampung File, Tambah, Hapus, urut sesuai Judul , urut sesuai Resensi dan seterusnya.
Fasilitas yang ada pada project sederhana ini adalah :
1. Pencarian
2. Tambah data
3. Hapus Data
4. Update data
5. Pembatalan data
6. Simpan data
7. edit data
8. Menampilkan laporan yang lumayan tampilannya
9. Lebih fleksibel karena untuk koneksi ke database menggunakan kode dan tidak menggunakan Adodc yang saya rasa kurang fleksibel dalam koneksi database.
10. navigasi (Next, Previous, First dan Last) yang diletakan di menubar sehingga lebih hemat tempat.
========================================================================================
BACA DAHULU CODE-CODE DIBAWAH INI KHUSUSNYA PADA “MNUITEMREPORT” DAN “CASE LAPORAN”. JANGAN JALANKAN JIKA BELUM DICOMPILE KARENA NANTI WALAUPUN SUDAH ANDA STOP PROJECT ANDA MAKA APLIKASI YANG BERADA DIFOLDER INI YAITU “KOLEKSIBUKUKU.EXE” AKAN DIJALANKAN !!!
BACA ALASANYA DI “MNUITEMREPORT” DAN “CASE LAPORAN”.
========================================================================================
Masukan semua kode di bawah ini dalam form
==============================================
Option Explicit
Private WithEvents adoPrimaryRSdaftarBuku As Recordset
Private Sub CboSearch_Click()
‘jika cbosearch diklik
Select Case CboSearch
‘memilih Judul
Case “Judul”
TxtSearch.Text = “”
TxtSearch.Enabled = True
TxtSearch.BackColor = vbWindowText
TxtSearch.SetFocus
Case “Referensi”
TxtSearch.Text = “”
TxtSearch.Enabled = True
TxtSearch.BackColor = vbWindowText
TxtSearch.SetFocus
Case “Penulis”
TxtSearch.Text = “”
TxtSearch.Enabled = True
TxtSearch.BackColor = vbWindowText
TxtSearch.SetFocus
Case “Penerbit”
TxtSearch.Text = “”
TxtSearch.Enabled = True
TxtSearch.BackColor = vbWindowText
TxtSearch.SetFocus
End Select
End Sub
Private Sub DisableSearch()
TxtSearch.Enabled = False
TxtSearch.BackColor = vbWindowText
TxtSearch.Text = “Masukan Kata Kunci Pencarian”
CboSearch.Text = “Pencarian”
End Sub
Private Sub Command1_Click()
If TxtSearch.Text = “” Then
Beep
TxtSearch.SetFocus
Else
‘jika cbosearch dipilih
Select Case CboSearch
Case “Judul”
‘melakukan pencarian data pd txtsearch
adoPrimaryRSdaftarBuku.Find “Judul like ‘*” + TxtSearch + “*’”, , adSearchForward, 1
Case “Referensi”
‘melakukan pencarian data pd txtsearch
adoPrimaryRSdaftarBuku.Find “Referensi like ‘*” + TxtSearch + “*’”, , adSearchForward, 1
Case “Penulis”
‘melakukan pencarian data pd txtsearch
adoPrimaryRSdaftarBuku.Find “Penulis like ‘*” + TxtSearch + “*’”, , adSearchForward, 1
Case “Penerbit”
‘melakukan pencarian data pd txtsearch
adoPrimaryRSdaftarBuku.Find “Penerbit like ‘*” + TxtSearch + “*’”, , adSearchForward, 1
End Select
‘jika data tidak ditemukan maka
If adoPrimaryRSdaftarBuku.EOF Then
MsgBox “Data yang anda cari tidak ditemukan”, vbOKOnly + vbCritical, “Search”
adoPrimaryRSdaftarBuku.MoveFirst
TxtSearch.Text = “”
TxtSearch.SetFocus
End If
End If
On Error GoTo 0
LblRecordAktif.Caption = ” Jumlah Koleksi ” & adoPrimaryRSdaftarBuku.RecordCount & ” Buku” & ” dan Sekarang Posisi di Koleksi Buku ke ” & adoPrimaryRSdaftarBuku.AbsolutePosition
End Sub
Private Sub Form_Load()
Dim db As Connection
Set db = New Connection
db.CursorLocation = adUseClient
db.Open “PROVIDER=Microsoft.Jet.OLEDB.4.0;” & _
“Data Source=” & App.Path & “\Daftar Buku.mdb;”
Set adoPrimaryRSdaftarBuku = New Recordset
adoPrimaryRSdaftarBuku.Open “TblDaftarBuku”, db, adOpenStatic, adLockOptimistic
‘Bind the ole controls to the data provider
Set txtJudul.DataSource = adoPrimaryRSdaftarBuku
Set txtReferensi.DataSource = adoPrimaryRSdaftarBuku
Set txtPenulis.DataSource = adoPrimaryRSdaftarBuku
Set TxtCetakan.DataSource = adoPrimaryRSdaftarBuku
Set txtPenerbit.DataSource = adoPrimaryRSdaftarBuku
‘mengurutkan berdasarkan field referensi
adoPrimaryRSdaftarBuku.Sort = “Referensi”
LblRecordAktif.Caption = ” Jumlah Koleksi ” & adoPrimaryRSdaftarBuku.RecordCount & ” Buku” & ” dan Sekarang Posisi di Koleksi Buku ke ” & adoPrimaryRSdaftarBuku.AbsolutePosition
End Sub
Private Sub Form_Unload(Cancel As Integer)
adoPrimaryRSdaftarBuku.Close
End Sub
Private Sub MnuBatal_Click()
DisableSearch
‘disable textbox
txtJudul.Enabled = False
txtReferensi.Enabled = False
txtPenulis.Enabled = False
TxtCetakan.Enabled = False
txtPenerbit.Enabled = False
‘batalkan update kemudian menuju ke record pertama
adoPrimaryRSdaftarBuku.CancelUpdate
adoPrimaryRSdaftarBuku.MoveFirst
End Sub
Private Sub mnuitemabout_Click()
DisableSearch
‘menampilkan pesan mengenai aplikasi
MsgBox “Koleksi Bukuku Version 1.0.0 Oleh Joko”, vbInformation, “Koleksi Bukuku”
End Sub
Private Sub mnuitemadd_Click()
DisableSearch
‘menambah data buku
adoPrimaryRSdaftarBuku.AddNew
‘textbox enable/dapat diisi
txtJudul.Enabled = True
txtReferensi.Enabled = True
txtPenulis.Enabled = True
TxtCetakan.Enabled = True
txtPenerbit.Enabled = True
‘pointer aktif di txtjudul
txtJudul.SetFocus
End Sub
Private Sub mnuitemdelete_Click()
DisableSearch
If txtJudul.Text = “” Then
MsgBox “Minimal Ketik Judul Bukunya dulu.”, vbOKOnly, “Informasi”
txtReferensi.Text = “.”
adoPrimaryRSdaftarBuku.Delete adAffectCurrent
adoPrimaryRSdaftarBuku.MoveFirst
Else
‘Hapus daftar buku record aktif
adoPrimaryRSdaftarBuku.Delete adAffectCurrent
adoPrimaryRSdaftarBuku.MoveFirst
End If
LblRecordAktif.Caption = ” Jumlah Koleksi ” & adoPrimaryRSdaftarBuku.RecordCount & ” Buku” & ” dan Sekarang Posisi di Koleksi Buku ke ” & adoPrimaryRSdaftarBuku.AbsolutePosition
End Sub
Private Sub mnuitemedit_Click()
DisableSearch
‘mengaktifkan textbox agar dapat diubah daftar bukunya
txtJudul.Enabled = True
txtReferensi.Enabled = True
txtPenulis.Enabled = True
TxtCetakan.Enabled = True
txtPenerbit.Enabled = True
End Sub
Private Sub mnuitemexit_Click()
‘mengakhiri aplikasi
Unload Me
End Sub
Private Sub mnuitemreport_Click()
DisableSearch
‘INI CODE UPDATE REPORT/LAPORAN YANG BURUK TETAPI EFEKTIF DAN TIDAK BIKIN SAYA PUSING HE..HE..,
‘SAYA TULISKAN KARENA JIKA KITA BUKA LAPORAN DAN MENUTUPNYA KEMBALI KEMUDIAN KITA MELAKUKAN PERUBAHAN
‘PADA DATA (PENAMBAHAN ATAU PENGHAPUSAN DATA) TERNYATA JIKA KITA BUKA KEMBALI LAPORAN
‘MAKA DIHASILKAN LAPORAN YANG MASIH LAMA (BELUM MENGALAMI PENAMBAHAN/PENGHAPUSAN)
‘SEHINGGA SAYA LAKUKAN CODE DIBAWAH INI YAITU MENUTUP APLIKASI DAN MEMANGGILNYA KEMBALI
‘KEMUDIAN BARU LAPORAN (DATAREPORT1) DITAMPILKAN. MAAF MENGGUNAKAN JALAN PINTAS HE..HE…BAGI YANG TAHU BAGI ILMU DONG..
Unload Main ‘MENUTUP APLIKASI
Shell App.Path & “\KOLEKSIBUKUKU.EXE” ‘MEMANGGIL APLIKASI KEMBALI
DataReport1.Show ‘MENAMPILKAN LAPORAN
End Sub
Private Sub mnuitemsave_Click()
DisableSearch
If txtJudul.Text = “” Then
MsgBox “Minimal Ketik Judul Bukunya dulu.”, vbOKOnly, “Informasi”
txtReferensi.Text = “.”
adoPrimaryRSdaftarBuku.Delete adAffectCurrent
adoPrimaryRSdaftarBuku.MoveFirst
Else
‘menyimpan daftar buku yang telah di inputkan
adoPrimaryRSdaftarBuku.Save
End If
txtJudul.Enabled = False
txtReferensi.Enabled = False
txtPenulis.Enabled = False
TxtCetakan.Enabled = False
txtPenerbit.Enabled = False
LblRecordAktif.Caption = ” Jumlah Koleksi ” & adoPrimaryRSdaftarBuku.RecordCount & ” Buku” & ” dan Sekarang Posisi di Koleksi Buku ke ” & adoPrimaryRSdaftarBuku.AbsolutePosition
End Sub
Private Sub MnuFirst_Click()
‘menuju ke record pertama
adoPrimaryRSdaftarBuku.MoveFirst
DisableSearch
LblRecordAktif.Caption = ” Jumlah Koleksi ” & adoPrimaryRSdaftarBuku.RecordCount & ” Buku” & ” dan Sekarang Posisi di Koleksi Buku ke ” & adoPrimaryRSdaftarBuku.AbsolutePosition
End Sub
Private Sub MnuLast_Click()
‘menuju ke record terakhir
adoPrimaryRSdaftarBuku.MoveLast
DisableSearch
LblRecordAktif.Caption = ” Jumlah Koleksi ” & adoPrimaryRSdaftarBuku.RecordCount & ” Buku” & ” dan Sekarang Posisi di Koleksi Buku ke ” & adoPrimaryRSdaftarBuku.AbsolutePosition
End Sub
Private Sub mnunext_Click()
‘menuju ke record setelah/ke depan
adoPrimaryRSdaftarBuku.MoveNext
‘jika record sudah sampai pada record yang terakhir maka akan berbunyi nada beep dan record yang aktif adalah record terakhir
If adoPrimaryRSdaftarBuku.EOF Then
Beep
adoPrimaryRSdaftarBuku.MoveLast
End If
DisableSearch
LblRecordAktif.Caption = ” Jumlah Koleksi ” & adoPrimaryRSdaftarBuku.RecordCount & ” Buku” & ” dan Sekarang Posisi di Koleksi Buku ke ” & adoPrimaryRSdaftarBuku.AbsolutePosition
End Sub
Private Sub mnuprevious_Click()
adoPrimaryRSdaftarBuku.MovePrevious
‘jika record sudah sampai pada record yang pertama maka akan berbunyi nada beep dan record yang aktif adalah record pertama
If adoPrimaryRSdaftarBuku.BOF Then
Beep
adoPrimaryRSdaftarBuku.MoveFirst
End If
DisableSearch
LblRecordAktif.Caption = ” Jumlah Koleksi ” & adoPrimaryRSdaftarBuku.RecordCount & ” Buku” & ” dan Sekarang Posisi di Koleksi Buku ke ” & adoPrimaryRSdaftarBuku.AbsolutePosition
End Sub
Private Sub MnuUpdate_Click()
DisableSearch
With adoPrimaryRSdaftarBuku
‘mengedit data pada record aktif
.Clone
!Judul = txtJudul.Text
!Referensi = txtReferensi.Text
!Penulis = txtPenulis.Text
!cetakan = TxtCetakan.Text
!Penerbit = txtPenerbit.Text
‘menyimpan hasil pengeditan data
.Update
End With
If txtJudul.Text = “” Then
MsgBox “Minimal Ketik Judul Bukunya dulu.”, vbOKOnly, “Informasi”
mnuitemdelete_Click
End If
End Sub
Private Sub MnuUrutJudul_Click()
‘mengurutkan berdasarkan field Judul
adoPrimaryRSdaftarBuku.Sort = “Judul”
DisableSearch
End Sub
Private Sub MnuUrutpenerbit_Click()
‘mengurutkan berdasarkan field Penerbit
adoPrimaryRSdaftarBuku.Sort = “Penerbit”
DisableSearch
End Sub
Private Sub MnuUrutPenulis_Click()
‘mengurutkan berdasarkan field Penulis
adoPrimaryRSdaftarBuku.Sort = “Penulis”
DisableSearch
End Sub
Private Sub MnuUrutReferensi_Click()
‘mengurutkan berdasarkan field referensi
adoPrimaryRSdaftarBuku.Sort = “Referensi”
DisableSearch
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
‘menggunakan statemen select case
‘initialisasi toolbar dan isi
Select Case Button.Key
Case “Tambah”
‘disabled TxtSearch
DisableSearch
‘menambah daftar koleksi buku
adoPrimaryRSdaftarBuku.AddNew
txtJudul.Enabled = True
txtReferensi.Enabled = True
txtPenulis.Enabled = True
TxtCetakan.Enabled = True
txtPenerbit.Enabled = True
txtJudul.SetFocus
Case “Simpan”
DisableSearch
If txtJudul.Text = “” Then
MsgBox “Minimal Ketik Judul Bukunya dulu.”, vbOKOnly, “Informasi”
txtReferensi.Text = “.”
adoPrimaryRSdaftarBuku.Delete adAffectCurrent
adoPrimaryRSdaftarBuku.MoveFirst
Else
‘menyimpan daftar buku yang telah di inputkan
adoPrimaryRSdaftarBuku.Save
End If
txtJudul.Enabled = False
txtReferensi.Enabled = False
txtPenulis.Enabled = False
TxtCetakan.Enabled = False
txtPenerbit.Enabled = False
LblRecordAktif.Caption = ” Jumlah Koleksi ” & adoPrimaryRSdaftarBuku.RecordCount & ” Buku” & ” dan Sekarang Posisi di Koleksi Buku ke ” & adoPrimaryRSdaftarBuku.AbsolutePosition
Case “Hapus”
DisableSearch
If txtJudul.Text = “” Then
MsgBox “Minimal Ketik Judul Bukunya dulu.”, vbOKOnly, “Informasit”
txtReferensi.Text = “.”
adoPrimaryRSdaftarBuku.Delete adAffectCurrent
adoPrimaryRSdaftarBuku.MoveFirst
Else
‘Hapus daftar buku record aktif
adoPrimaryRSdaftarBuku.Delete adAffectCurrent
adoPrimaryRSdaftarBuku.MoveFirst
End If
LblRecordAktif.Caption = ” Jumlah Koleksi ” & adoPrimaryRSdaftarBuku.RecordCount & ” Buku” & ” dan Sekarang Posisi di Koleksi Buku ke ” & adoPrimaryRSdaftarBuku.AbsolutePosition
Case “Laporan”
DisableSearch
‘INI CODE UPDATE REPORT/LAPORAN YANG BURUK TETAPI EFEKTIF DAN TIDAK BIKIN SAYA PUSING HE..HE..,
‘SAYA TULISKAN KARENA JIKA KITA BUKA LAPORAN DAN MENUTUPNYA KEMBALI KEMUDIAN KITA MELAKUKAN PERUBAHAN
‘PADA DATA (PENAMBAHAN ATAU PENGHAPUSAN DATA) TERNYATA JIKA KITA BUKA KEMBALI LAPORAN
‘MAKA DIHASILKAN LAPORAN YANG MASIH LAMA (BELUM MENGALAMI PENAMBAHAN/PENGHAPUSAN)
‘SEHINGGA SAYA LAKUKAN CODE DIBAWAH INI YAITU MENUTUP APLIKASI DAN MEMANGGILNYA KEMBALI
‘KEMUDIAN BARU LAPORAN (DATAREPORT1) DITAMPILKAN. MAAF MENGGUNAKAN JALAN PINTAS HE..HE…BAGI YANG TAHU BAGI ILMU DONG..
Unload Main ‘MENUTUP APLIKASI
Shell App.Path & “\KoleksiBukuku.exe” ‘MEMANGGIL APLIKASI KEMBALI
DataReport1.Show ‘MENAMPILKAN LAPORAN
Case “Ubah”
DisableSearch
‘membuat textbox dapat di edit/ubah
txtJudul.Enabled = TruetxtReferensi.Enabled = True
txtPenulis.Enabled = True
TxtCetakan.Enabled = True
txtPenerbit.Enabled = True
Case “Batal”
DisableSearch
‘disable textbox
txtJudul.Enabled = False
txtReferensi.Enabled = False
txtPenulis.Enabled = False
TxtCetakan.Enabled = False
txtPenerbit.Enabled = False
‘batalkan update kemudian menuju ke record pertama
adoPrimaryRSdaftarBuku.CancelUpdate
adoPrimaryRSdaftarBuku.MoveFirst
Case “Update”
DisableSearch
With adoPrimaryRSdaftarBu’mengedit data pada record aktif
.Clone
!Judul = txtJudul.Text
!Referensi = txtReferensi.Text
!Penulis = txtPenulis.Text
!cetakan = TxtCetakan.Text
!Penerbit = txtPenerbit.Text
‘menyimpan hasil pengeditan data
.Update
End With
If txtJudul.Text = “” Then
MsgBox “Minimal Ketik Judul Bukunya dulu.”, vbOKOnly, “Informasi”
mnuitemdelete_Click
End If
Case “Keluar”
‘keluar dari aplikasi
Unload Me
End Select
End Sub
Private Sub TxtSearch_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
On Error Resume Next
‘jika menekan enter
If KeyAscii = 13 Then
TxtSearch.SetFocus
TxtSearch.SelStart = 0
TxtSearch.SelLength = Len(TxtSearch.Text)
‘jika cbosearch dipilih
Select Case CboSearch
Case “Judul”
‘melakukan pencarian data pd txtsearch
adoPrimaryRSdaftarBuku.Find “Judul like ‘*” + TxtSearch + “*’”, , adSearchForward, 1
Case “Referensi”
‘melakukan pencarian data pd txtsearch
adoPrimaryRSdaftarBuku.Find “Referensi like ‘*” + TxtSearch + “*’”, , adSearchForward, 1Case “Penulis”
‘melakukan pencarian data pd txtsearch
adoPrimaryRSdaftarBuku.Find “Penulis like ‘*” + TxtSearch + “*’”, , adSearchForward, 1
Case “Penerbit”
‘melakukan pencarian data pd txtsearch
adoPrimaryRSdaftarBuku.Find “Penerbit like ‘*” + TxtSearch + “*’”, , adSearchForward, 1
End Select
‘jika data tidak ditemukan maka
If adoPrimaryRSdaftarBuku.EOF Then
MsgBox “Data yang anda cari tidak ditemukan”, vbOKOnly + vbCritical, “Search”
adoPrimaryRSdaftarBuku.MoveFirst
TxtSearch.Text = “”
TxtSearch.SetFocus
End If
End If
On Error GoTo 0
End Sub
=================================================
Letakan kode di bawah ini di Data environment1
=================================================
Private Sub DataEnvironment_Initialize()
‘Selalu terkoneksi dengan database “Daftar Buku.mdb” asalkan masih dalam satu folder dengan aplikasi.
‘Akibat jika anda lupa tdk menulis kode di bawah ini adalah
‘- muncul pesan untuk memasukan alamat yang benar database pada saat akan melihat laporan/report,
‘pesan ini muncul karena anda membuat folder baru untuk meletakkan project sehingga alamat tdk ditemukan
‘untuk latihan jangan tulis kode di bawah ini tetapi melalui Dataenvironment1 klik kanan properties
‘pilih alamat file database “Daftar Buku.mdb”. Kemudian coba jalankan aplikasi dan
‘pilih laporan maka laporan akan terlihat. Sekarang keluar dari VB dan pindahkan folder project anda
‘ke sembarang (alamat baru), jalankan aplikasi database masih terkoneksi
‘tetapi pada saat ingin melihat laporan akan muncul pesan error.
DataEnvironment1.DaftarBuku.ConnectionString = App.Path & “\Daftar Buku.mdb”
End Sub
Tapi semua buku pasti bermanfaat dan saya tentu tidak menyesal untuk membelinya dan memilikinya.
Thanks My Books.
Baik langsung saja yang dibutuhkan dalam project ini adalah :
1. satu form dengan nama main
2. satu dataenvironment dengan nama dataenvironment1
3. datareport dengan nama datareport1
Control yang ada didalam form, yaitu :
1. Imagelist1 sebagai penampung image untuk toolbar
2. Toolbar1 sebagai tempat menampung gambar yang akan dapat di klik langsung oleh user
3. frame1 sebagai tempat
4. tujuh Textbox yaitu txtjudul, txtreferensi, txtpenulis, txtcetakan, txtpenerbit, txtrecordaktif dan txtsearch
5. satu ComboBox yaitu cbosearch
6. satu CommandButton yaitu cmdcari
7. membuat Menubar untuk menampung File, Tambah, Hapus, urut sesuai Judul , urut sesuai Resensi dan seterusnya.
Fasilitas yang ada pada project sederhana ini adalah :
1. Pencarian
2. Tambah data
3. Hapus Data
4. Update data
5. Pembatalan data
6. Simpan data
7. edit data
8. Menampilkan laporan yang lumayan tampilannya
9. Lebih fleksibel karena untuk koneksi ke database menggunakan kode dan tidak menggunakan Adodc yang saya rasa kurang fleksibel dalam koneksi database.
10. navigasi (Next, Previous, First dan Last) yang diletakan di menubar sehingga lebih hemat tempat.
========================================================================================
BACA DAHULU CODE-CODE DIBAWAH INI KHUSUSNYA PADA “MNUITEMREPORT” DAN “CASE LAPORAN”. JANGAN JALANKAN JIKA BELUM DICOMPILE KARENA NANTI WALAUPUN SUDAH ANDA STOP PROJECT ANDA MAKA APLIKASI YANG BERADA DIFOLDER INI YAITU “KOLEKSIBUKUKU.EXE” AKAN DIJALANKAN !!!
BACA ALASANYA DI “MNUITEMREPORT” DAN “CASE LAPORAN”.
========================================================================================
Masukan semua kode di bawah ini dalam form
==============================================
Option Explicit
Private WithEvents adoPrimaryRSdaftarBuku As Recordset
Private Sub CboSearch_Click()
‘jika cbosearch diklik
Select Case CboSearch
‘memilih Judul
Case “Judul”
TxtSearch.Text = “”
TxtSearch.Enabled = True
TxtSearch.BackColor = vbWindowText
TxtSearch.SetFocus
Case “Referensi”
TxtSearch.Text = “”
TxtSearch.Enabled = True
TxtSearch.BackColor = vbWindowText
TxtSearch.SetFocus
Case “Penulis”
TxtSearch.Text = “”
TxtSearch.Enabled = True
TxtSearch.BackColor = vbWindowText
TxtSearch.SetFocus
Case “Penerbit”
TxtSearch.Text = “”
TxtSearch.Enabled = True
TxtSearch.BackColor = vbWindowText
TxtSearch.SetFocus
End Select
End Sub
Private Sub DisableSearch()
TxtSearch.Enabled = False
TxtSearch.BackColor = vbWindowText
TxtSearch.Text = “Masukan Kata Kunci Pencarian”
CboSearch.Text = “Pencarian”
End Sub
Private Sub Command1_Click()
If TxtSearch.Text = “” Then
Beep
TxtSearch.SetFocus
Else
‘jika cbosearch dipilih
Select Case CboSearch
Case “Judul”
‘melakukan pencarian data pd txtsearch
adoPrimaryRSdaftarBuku.Find “Judul like ‘*” + TxtSearch + “*’”, , adSearchForward, 1
Case “Referensi”
‘melakukan pencarian data pd txtsearch
adoPrimaryRSdaftarBuku.Find “Referensi like ‘*” + TxtSearch + “*’”, , adSearchForward, 1
Case “Penulis”
‘melakukan pencarian data pd txtsearch
adoPrimaryRSdaftarBuku.Find “Penulis like ‘*” + TxtSearch + “*’”, , adSearchForward, 1
Case “Penerbit”
‘melakukan pencarian data pd txtsearch
adoPrimaryRSdaftarBuku.Find “Penerbit like ‘*” + TxtSearch + “*’”, , adSearchForward, 1
End Select
‘jika data tidak ditemukan maka
If adoPrimaryRSdaftarBuku.EOF Then
MsgBox “Data yang anda cari tidak ditemukan”, vbOKOnly + vbCritical, “Search”
adoPrimaryRSdaftarBuku.MoveFirst
TxtSearch.Text = “”
TxtSearch.SetFocus
End If
End If
On Error GoTo 0
LblRecordAktif.Caption = ” Jumlah Koleksi ” & adoPrimaryRSdaftarBuku.RecordCount & ” Buku” & ” dan Sekarang Posisi di Koleksi Buku ke ” & adoPrimaryRSdaftarBuku.AbsolutePosition
End Sub
Private Sub Form_Load()
Dim db As Connection
Set db = New Connection
db.CursorLocation = adUseClient
db.Open “PROVIDER=Microsoft.Jet.OLEDB.4.0;” & _
“Data Source=” & App.Path & “\Daftar Buku.mdb;”
Set adoPrimaryRSdaftarBuku = New Recordset
adoPrimaryRSdaftarBuku.Open “TblDaftarBuku”, db, adOpenStatic, adLockOptimistic
‘Bind the ole controls to the data provider
Set txtJudul.DataSource = adoPrimaryRSdaftarBuku
Set txtReferensi.DataSource = adoPrimaryRSdaftarBuku
Set txtPenulis.DataSource = adoPrimaryRSdaftarBuku
Set TxtCetakan.DataSource = adoPrimaryRSdaftarBuku
Set txtPenerbit.DataSource = adoPrimaryRSdaftarBuku
‘mengurutkan berdasarkan field referensi
adoPrimaryRSdaftarBuku.Sort = “Referensi”
LblRecordAktif.Caption = ” Jumlah Koleksi ” & adoPrimaryRSdaftarBuku.RecordCount & ” Buku” & ” dan Sekarang Posisi di Koleksi Buku ke ” & adoPrimaryRSdaftarBuku.AbsolutePosition
End Sub
Private Sub Form_Unload(Cancel As Integer)
adoPrimaryRSdaftarBuku.Close
End Sub
Private Sub MnuBatal_Click()
DisableSearch
‘disable textbox
txtJudul.Enabled = False
txtReferensi.Enabled = False
txtPenulis.Enabled = False
TxtCetakan.Enabled = False
txtPenerbit.Enabled = False
‘batalkan update kemudian menuju ke record pertama
adoPrimaryRSdaftarBuku.CancelUpdate
adoPrimaryRSdaftarBuku.MoveFirst
End Sub
Private Sub mnuitemabout_Click()
DisableSearch
‘menampilkan pesan mengenai aplikasi
MsgBox “Koleksi Bukuku Version 1.0.0 Oleh Joko”, vbInformation, “Koleksi Bukuku”
End Sub
Private Sub mnuitemadd_Click()
DisableSearch
‘menambah data buku
adoPrimaryRSdaftarBuku.AddNew
‘textbox enable/dapat diisi
txtJudul.Enabled = True
txtReferensi.Enabled = True
txtPenulis.Enabled = True
TxtCetakan.Enabled = True
txtPenerbit.Enabled = True
‘pointer aktif di txtjudul
txtJudul.SetFocus
End Sub
Private Sub mnuitemdelete_Click()
DisableSearch
If txtJudul.Text = “” Then
MsgBox “Minimal Ketik Judul Bukunya dulu.”, vbOKOnly, “Informasi”
txtReferensi.Text = “.”
adoPrimaryRSdaftarBuku.Delete adAffectCurrent
adoPrimaryRSdaftarBuku.MoveFirst
Else
‘Hapus daftar buku record aktif
adoPrimaryRSdaftarBuku.Delete adAffectCurrent
adoPrimaryRSdaftarBuku.MoveFirst
End If
LblRecordAktif.Caption = ” Jumlah Koleksi ” & adoPrimaryRSdaftarBuku.RecordCount & ” Buku” & ” dan Sekarang Posisi di Koleksi Buku ke ” & adoPrimaryRSdaftarBuku.AbsolutePosition
End Sub
Private Sub mnuitemedit_Click()
DisableSearch
‘mengaktifkan textbox agar dapat diubah daftar bukunya
txtJudul.Enabled = True
txtReferensi.Enabled = True
txtPenulis.Enabled = True
TxtCetakan.Enabled = True
txtPenerbit.Enabled = True
End Sub
Private Sub mnuitemexit_Click()
‘mengakhiri aplikasi
Unload Me
End Sub
Private Sub mnuitemreport_Click()
DisableSearch
‘INI CODE UPDATE REPORT/LAPORAN YANG BURUK TETAPI EFEKTIF DAN TIDAK BIKIN SAYA PUSING HE..HE..,
‘SAYA TULISKAN KARENA JIKA KITA BUKA LAPORAN DAN MENUTUPNYA KEMBALI KEMUDIAN KITA MELAKUKAN PERUBAHAN
‘PADA DATA (PENAMBAHAN ATAU PENGHAPUSAN DATA) TERNYATA JIKA KITA BUKA KEMBALI LAPORAN
‘MAKA DIHASILKAN LAPORAN YANG MASIH LAMA (BELUM MENGALAMI PENAMBAHAN/PENGHAPUSAN)
‘SEHINGGA SAYA LAKUKAN CODE DIBAWAH INI YAITU MENUTUP APLIKASI DAN MEMANGGILNYA KEMBALI
‘KEMUDIAN BARU LAPORAN (DATAREPORT1) DITAMPILKAN. MAAF MENGGUNAKAN JALAN PINTAS HE..HE…BAGI YANG TAHU BAGI ILMU DONG..
Unload Main ‘MENUTUP APLIKASI
Shell App.Path & “\KOLEKSIBUKUKU.EXE” ‘MEMANGGIL APLIKASI KEMBALI
DataReport1.Show ‘MENAMPILKAN LAPORAN
End Sub
Private Sub mnuitemsave_Click()
DisableSearch
If txtJudul.Text = “” Then
MsgBox “Minimal Ketik Judul Bukunya dulu.”, vbOKOnly, “Informasi”
txtReferensi.Text = “.”
adoPrimaryRSdaftarBuku.Delete adAffectCurrent
adoPrimaryRSdaftarBuku.MoveFirst
Else
‘menyimpan daftar buku yang telah di inputkan
adoPrimaryRSdaftarBuku.Save
End If
txtJudul.Enabled = False
txtReferensi.Enabled = False
txtPenulis.Enabled = False
TxtCetakan.Enabled = False
txtPenerbit.Enabled = False
LblRecordAktif.Caption = ” Jumlah Koleksi ” & adoPrimaryRSdaftarBuku.RecordCount & ” Buku” & ” dan Sekarang Posisi di Koleksi Buku ke ” & adoPrimaryRSdaftarBuku.AbsolutePosition
End Sub
Private Sub MnuFirst_Click()
‘menuju ke record pertama
adoPrimaryRSdaftarBuku.MoveFirst
DisableSearch
LblRecordAktif.Caption = ” Jumlah Koleksi ” & adoPrimaryRSdaftarBuku.RecordCount & ” Buku” & ” dan Sekarang Posisi di Koleksi Buku ke ” & adoPrimaryRSdaftarBuku.AbsolutePosition
End Sub
Private Sub MnuLast_Click()
‘menuju ke record terakhir
adoPrimaryRSdaftarBuku.MoveLast
DisableSearch
LblRecordAktif.Caption = ” Jumlah Koleksi ” & adoPrimaryRSdaftarBuku.RecordCount & ” Buku” & ” dan Sekarang Posisi di Koleksi Buku ke ” & adoPrimaryRSdaftarBuku.AbsolutePosition
End Sub
Private Sub mnunext_Click()
‘menuju ke record setelah/ke depan
adoPrimaryRSdaftarBuku.MoveNext
‘jika record sudah sampai pada record yang terakhir maka akan berbunyi nada beep dan record yang aktif adalah record terakhir
If adoPrimaryRSdaftarBuku.EOF Then
Beep
adoPrimaryRSdaftarBuku.MoveLast
End If
DisableSearch
LblRecordAktif.Caption = ” Jumlah Koleksi ” & adoPrimaryRSdaftarBuku.RecordCount & ” Buku” & ” dan Sekarang Posisi di Koleksi Buku ke ” & adoPrimaryRSdaftarBuku.AbsolutePosition
End Sub
Private Sub mnuprevious_Click()
adoPrimaryRSdaftarBuku.MovePrevious
‘jika record sudah sampai pada record yang pertama maka akan berbunyi nada beep dan record yang aktif adalah record pertama
If adoPrimaryRSdaftarBuku.BOF Then
Beep
adoPrimaryRSdaftarBuku.MoveFirst
End If
DisableSearch
LblRecordAktif.Caption = ” Jumlah Koleksi ” & adoPrimaryRSdaftarBuku.RecordCount & ” Buku” & ” dan Sekarang Posisi di Koleksi Buku ke ” & adoPrimaryRSdaftarBuku.AbsolutePosition
End Sub
Private Sub MnuUpdate_Click()
DisableSearch
With adoPrimaryRSdaftarBuku
‘mengedit data pada record aktif
.Clone
!Judul = txtJudul.Text
!Referensi = txtReferensi.Text
!Penulis = txtPenulis.Text
!cetakan = TxtCetakan.Text
!Penerbit = txtPenerbit.Text
‘menyimpan hasil pengeditan data
.Update
End With
If txtJudul.Text = “” Then
MsgBox “Minimal Ketik Judul Bukunya dulu.”, vbOKOnly, “Informasi”
mnuitemdelete_Click
End If
End Sub
Private Sub MnuUrutJudul_Click()
‘mengurutkan berdasarkan field Judul
adoPrimaryRSdaftarBuku.Sort = “Judul”
DisableSearch
End Sub
Private Sub MnuUrutpenerbit_Click()
‘mengurutkan berdasarkan field Penerbit
adoPrimaryRSdaftarBuku.Sort = “Penerbit”
DisableSearch
End Sub
Private Sub MnuUrutPenulis_Click()
‘mengurutkan berdasarkan field Penulis
adoPrimaryRSdaftarBuku.Sort = “Penulis”
DisableSearch
End Sub
Private Sub MnuUrutReferensi_Click()
‘mengurutkan berdasarkan field referensi
adoPrimaryRSdaftarBuku.Sort = “Referensi”
DisableSearch
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
‘menggunakan statemen select case
‘initialisasi toolbar dan isi
Select Case Button.Key
Case “Tambah”
‘disabled TxtSearch
DisableSearch
‘menambah daftar koleksi buku
adoPrimaryRSdaftarBuku.AddNew
txtJudul.Enabled = True
txtReferensi.Enabled = True
txtPenulis.Enabled = True
TxtCetakan.Enabled = True
txtPenerbit.Enabled = True
txtJudul.SetFocus
Case “Simpan”
DisableSearch
If txtJudul.Text = “” Then
MsgBox “Minimal Ketik Judul Bukunya dulu.”, vbOKOnly, “Informasi”
txtReferensi.Text = “.”
adoPrimaryRSdaftarBuku.Delete adAffectCurrent
adoPrimaryRSdaftarBuku.MoveFirst
Else
‘menyimpan daftar buku yang telah di inputkan
adoPrimaryRSdaftarBuku.Save
End If
txtJudul.Enabled = False
txtReferensi.Enabled = False
txtPenulis.Enabled = False
TxtCetakan.Enabled = False
txtPenerbit.Enabled = False
LblRecordAktif.Caption = ” Jumlah Koleksi ” & adoPrimaryRSdaftarBuku.RecordCount & ” Buku” & ” dan Sekarang Posisi di Koleksi Buku ke ” & adoPrimaryRSdaftarBuku.AbsolutePosition
Case “Hapus”
DisableSearch
If txtJudul.Text = “” Then
MsgBox “Minimal Ketik Judul Bukunya dulu.”, vbOKOnly, “Informasit”
txtReferensi.Text = “.”
adoPrimaryRSdaftarBuku.Delete adAffectCurrent
adoPrimaryRSdaftarBuku.MoveFirst
Else
‘Hapus daftar buku record aktif
adoPrimaryRSdaftarBuku.Delete adAffectCurrent
adoPrimaryRSdaftarBuku.MoveFirst
End If
LblRecordAktif.Caption = ” Jumlah Koleksi ” & adoPrimaryRSdaftarBuku.RecordCount & ” Buku” & ” dan Sekarang Posisi di Koleksi Buku ke ” & adoPrimaryRSdaftarBuku.AbsolutePosition
Case “Laporan”
DisableSearch
‘INI CODE UPDATE REPORT/LAPORAN YANG BURUK TETAPI EFEKTIF DAN TIDAK BIKIN SAYA PUSING HE..HE..,
‘SAYA TULISKAN KARENA JIKA KITA BUKA LAPORAN DAN MENUTUPNYA KEMBALI KEMUDIAN KITA MELAKUKAN PERUBAHAN
‘PADA DATA (PENAMBAHAN ATAU PENGHAPUSAN DATA) TERNYATA JIKA KITA BUKA KEMBALI LAPORAN
‘MAKA DIHASILKAN LAPORAN YANG MASIH LAMA (BELUM MENGALAMI PENAMBAHAN/PENGHAPUSAN)
‘SEHINGGA SAYA LAKUKAN CODE DIBAWAH INI YAITU MENUTUP APLIKASI DAN MEMANGGILNYA KEMBALI
‘KEMUDIAN BARU LAPORAN (DATAREPORT1) DITAMPILKAN. MAAF MENGGUNAKAN JALAN PINTAS HE..HE…BAGI YANG TAHU BAGI ILMU DONG..
Unload Main ‘MENUTUP APLIKASI
Shell App.Path & “\KoleksiBukuku.exe” ‘MEMANGGIL APLIKASI KEMBALI
DataReport1.Show ‘MENAMPILKAN LAPORAN
Case “Ubah”
DisableSearch
‘membuat textbox dapat di edit/ubah
txtJudul.Enabled = TruetxtReferensi.Enabled = True
txtPenulis.Enabled = True
TxtCetakan.Enabled = True
txtPenerbit.Enabled = True
Case “Batal”
DisableSearch
‘disable textbox
txtJudul.Enabled = False
txtReferensi.Enabled = False
txtPenulis.Enabled = False
TxtCetakan.Enabled = False
txtPenerbit.Enabled = False
‘batalkan update kemudian menuju ke record pertama
adoPrimaryRSdaftarBuku.CancelUpdate
adoPrimaryRSdaftarBuku.MoveFirst
Case “Update”
DisableSearch
With adoPrimaryRSdaftarBu’mengedit data pada record aktif
.Clone
!Judul = txtJudul.Text
!Referensi = txtReferensi.Text
!Penulis = txtPenulis.Text
!cetakan = TxtCetakan.Text
!Penerbit = txtPenerbit.Text
‘menyimpan hasil pengeditan data
.Update
End With
If txtJudul.Text = “” Then
MsgBox “Minimal Ketik Judul Bukunya dulu.”, vbOKOnly, “Informasi”
mnuitemdelete_Click
End If
Case “Keluar”
‘keluar dari aplikasi
Unload Me
End Select
End Sub
Private Sub TxtSearch_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
On Error Resume Next
‘jika menekan enter
If KeyAscii = 13 Then
TxtSearch.SetFocus
TxtSearch.SelStart = 0
TxtSearch.SelLength = Len(TxtSearch.Text)
‘jika cbosearch dipilih
Select Case CboSearch
Case “Judul”
‘melakukan pencarian data pd txtsearch
adoPrimaryRSdaftarBuku.Find “Judul like ‘*” + TxtSearch + “*’”, , adSearchForward, 1
Case “Referensi”
‘melakukan pencarian data pd txtsearch
adoPrimaryRSdaftarBuku.Find “Referensi like ‘*” + TxtSearch + “*’”, , adSearchForward, 1Case “Penulis”
‘melakukan pencarian data pd txtsearch
adoPrimaryRSdaftarBuku.Find “Penulis like ‘*” + TxtSearch + “*’”, , adSearchForward, 1
Case “Penerbit”
‘melakukan pencarian data pd txtsearch
adoPrimaryRSdaftarBuku.Find “Penerbit like ‘*” + TxtSearch + “*’”, , adSearchForward, 1
End Select
‘jika data tidak ditemukan maka
If adoPrimaryRSdaftarBuku.EOF Then
MsgBox “Data yang anda cari tidak ditemukan”, vbOKOnly + vbCritical, “Search”
adoPrimaryRSdaftarBuku.MoveFirst
TxtSearch.Text = “”
TxtSearch.SetFocus
End If
End If
On Error GoTo 0
End Sub
=================================================
Letakan kode di bawah ini di Data environment1
=================================================
Private Sub DataEnvironment_Initialize()
‘Selalu terkoneksi dengan database “Daftar Buku.mdb” asalkan masih dalam satu folder dengan aplikasi.
‘Akibat jika anda lupa tdk menulis kode di bawah ini adalah
‘- muncul pesan untuk memasukan alamat yang benar database pada saat akan melihat laporan/report,
‘pesan ini muncul karena anda membuat folder baru untuk meletakkan project sehingga alamat tdk ditemukan
‘untuk latihan jangan tulis kode di bawah ini tetapi melalui Dataenvironment1 klik kanan properties
‘pilih alamat file database “Daftar Buku.mdb”. Kemudian coba jalankan aplikasi dan
‘pilih laporan maka laporan akan terlihat. Sekarang keluar dari VB dan pindahkan folder project anda
‘ke sembarang (alamat baru), jalankan aplikasi database masih terkoneksi
‘tetapi pada saat ingin melihat laporan akan muncul pesan error.
DataEnvironment1.DaftarBuku.ConnectionString = App.Path & “\Daftar Buku.mdb”
End Sub
10 Film Yang Wajib Ditonton Tahun 2011
Memasuki tahun 2011, setelah menyampirkan harapan tinggi-tinggi pada resolusi yang akan kita capai di Tahun Kelinci ini, ada baiknya kita simak beberapa film-film spektakuler Hollywood yang “layak tonton” dan pantas masuk dalam rekomendasi sepanjang tahun 2011. Banyak diantaranya merupakan sekuel atau prekuel film sukses sebelumnya.
Green Hornet (Januari 2011) :
Seth Rogen (Knocked Up, Pinneaple Express) berperan sebagai Britt Reid pahlawan bertopeng Green Hornet dalam film yang diarahkan oleh sutradara Michael Gondry ini. Britt adalah putra seorang pemilik surat kabar dan dalam aksinya ia ditemani oleh karyawan ayahnya, Kato (peran ini pernah dimainkan pula oleh alm. Bruce Lee) yang diperankan oleh artis Taiwan, Jay Chou.
Dikisahkan dalam film yang diangkat dari serial Radio ciptaan George W Trendle berjudul sama dan akan rilis pertengahan Januari ini, Sejak kematian ayahnya yang misterius, Britt Reid,anak pemilik surat kabar terkenal di Los Angeles yang dulunya adalah pemuda yang senang berhura-hura akhirnya menyadari bisa berbuat sesuatu yang bermakna untuk hidup. Ditemani oleh Kato mereka berkeliling kota membasmi kejahatan dengan mengendarai The Black Beauty, mobil ciptaan Kato yang canggih dan tak mudah dihancurkan. Film ini dimeriahkan pula oleh Cameron Diaz, yang berperan sebagai Lenore Chase
Fast and Furious V (April 2011) :
Vin Diesel dan Paul Walker akan kembali beraksi dalam film kebut-kebutan mobil dengan adegan-adegan berbahaya memacu adrenalin yang disutradarai oleh Justin Lin dan skenarionya ditulis oleh Chris Morgan ini. Petualangan Dominic Toretto dan Brian O’Conner yang melarikan diri dari petugas hukum akan menjadi daya tarik film yang akan dirilis pada akhir April 2011 ini.
Kungfu Panda II (Mei 2011) :
Sekuel Kungfu Panda ini dipastikan akan menarik banyak penonton untuk menyaksikannya di bioskop. Po (suaranya diisi oleh Jack Black) Sang pendekar Panda menghadapi Lord Shen (Gary Oldman) yang memiliki sebuah senjata rahasia yang sangat berbahaya.
Lord Shen terobsesi untuk menguasai seluruh negeri dan berencana menghancurkan ilmu bela diri Kung Fu. Po mendapat bantuan dari The SoothSayer (Michelle Yeoh), Master Skunkman (James Woods), Master Croc (Jean-Claude Van Damme), dan Master Thundering Rhino oleh (Victor Garber) . Aksi-aksi seru dan lucu PO bersama kawan-kawannya menggagalkan rencana jahat Lord Shen itu ditampilkan secara ciamik dalam film ini.
Pirates of Caribbean : On the Strangers Tide (Mei 2011)
Kapten Jack Sparrow (Johny Deep) berpetualang bersama Angelica (Penelope Cruzz) mencari mata air kehidupan yang konon tidak membuat seseorang bertambah tua sedikitpun. Masalah kian runyam ketika Jack menyadari bahwa Angelica tak lain adalah putri dari bajak laut Blackbeard (Ian McShane), musuh besar Jack Sparrow. Tapi perjalanan sudah dimulai dan Jack tak akan mengurungkan niatnya sedikitpun untuk melaksanakan niatnya.
X-Men : First Class (Juni 2011) :
Penggemar Wolverine (diperankan oleh Hugh Jackman) mesti bersiap-siap kecewa dalam film yang merupakan prekuel dari film-film X-Men sebelumnya karena tokoh tersebut tidak muncul dalam film ini. X-Men : First Class memang mengisahkan awal mula epik X-Men yakni mengangkat masa muda Charles Xavier dan Erik Magnus Lensherr sebelum didirikannya Xavier School For Gifted Youngster .
School of Mutant Resources mereka dirikan seusai menamatkan sekolah di Oxford untuk meneliti dan mempelajari fenomena baru yang terjadi pada manusia yaitu "homo superior", yaitu manusia jenis mutan yg memiliki gen X. Siswa yang belajar di sekolah khusus itu awalnya adalah Jean Grey, Scott Summers, Hank McCoy, Ororo Munroe, Raven Darkholme, Mortimer Toynbee dan Emma Frost. Perbedaan pemahaman dan idealisme membuat kedua sahabat ini menuai konflik hingga akhirnya justru menjadi seteru yang saling menghancurkan.
Harry Potter and The Deathly Hallows, Part 2 (Juli 2011) :
Ini adalah film yang ditunggu-tunggu oleh para penggemar Harry Potter sebagai edisi pamungkas rangkaian film Harry Potter sebelumnya, setelah sebelumnya mengikuti episode pertama menjelang akhir tahun 2010. Film ini masih tetap diperankan oleh Daniel Radcliffe, Emma Watson, Rupert Grint.
Transformers 3 : Dark Of The Moon (Juli 2011) :
Dua serial film Transformers sebelumnya berhasil menuai sukses besar dan pada episode ketiga ini para penggemar Megan Fox harus siap-siap kecewa karena artis sexy yang pada 2 episode sebelumnya berperan sebagai Mikaela Banes, kekasih sang tokoh utama, Sam Witwicky, tidak terlibat dalam Transformer 3. Meski tanpa Megan Fox lagi, film ini kembali akan menggelar aksi-aksi spektakuler dan efek sinematografi canggih lebih dashyat dari 2 film sebelumnya. Jadi bersiaplah saksikan kehebatan robot Optimus Prime, Bumble Bee, Iron Hide, Ratchet, Sides Wipes,Megatron, Starscream, dan Soundwave berjibaku dalam film ini.
Captain America : The First Avenger (Agustus 2011)
Chris Evans pemeran manusia api dalam film “Fantastic Four” akan berperan sebagai Steve Rogers alias Captain America. Kisah ini menampilkan setting tahun 1940-an dimana Steve Rogers – seorang prajurit yang tidak bisa turun ke medan perang untuk melawan Nazi karena fisiknya dianggap tidak layak—diminta untuk menjalani sebuah program rahasia militer yang dapat mengubah dirinya menjadi manusia super.
Spy Kids 4: All The Time in the World (Agustus 2011)
Jessica Alba akan berperan sebagai Marissa Cortez Wilson (Jessica Alba) mantan agen rahasia yang menikah dengan reporter televisi pemburu agen mata-mata terkenal Wilbur (Joel McHale) dan ibu tiri dari dua anak kembar yang sangat cerdas Rebecca (Rowan Blanchard) dan Cecil (Mason Cook) dalam film Spy Kids 4 yang disutradarai oleh Robert Rodriguez.
Jeremy Piven yang berperan sebagai tokoh antagonis dalam film ini mengancam akan mengambil alih bumi dan menghentikan waktu. Marissa dipanggil oleh Markas Besar OSS untuk mencegah aksi kejahatan tersebut dengan didampingi oleh Carmen (Alexa Vega) dan adiknya Juni Cortez (Daryl Sabara), anggota Spy Kids yang sudah beranjak remaja.
Mission Impossible 4: Ghost Protocol (Desember 2011) :
Aktor tampan Tom Cruise kembali akan membintangi film kolosal Mission Impossible IV berjudul “Ghost Protocol” yang rencananya akan ditayangkan perdana oleh Paramount Pictures 6 Desember 2011. Pada film yang gambarnya diambil di Dubai, Praha dan Canada ini, Tom akan didampingi oleh artis pendukung seperti Aktor Jeremy Renner dan aktris Paula Patton.
7 Gangster Wanita yang Paling Menakutkan di Dunia
Ada beberapa hal saja yang tidak lebih seksi di dunia ini jika dibandingkan dengan wanita-wanita yang memegang senjata, atau mungkin lebih tidak ada yang lebih seksi daripada harus menerima perintah dari wanit yang sama. Apa pekerjaan mereka?! Yang harus digaris bawahi adalah pekerjaan mereka sebagai "Bos Gangster" atau "GodMother". Yang akan anda lihat di bawahi ini adalah bukan lelucon tentan wanita-wanita yang menjadi pemimpin dalam dunia Gangster. Mereka yang menyatakan bahwa dunia kriminal adalah permainan para Lelaki tidak sepenuhnya menjadi benar setelah melihat profil mereka. Bukan berarti karena mereka perempuan maka mereka tidak akan memiliki peran yang lebih besar daripada anda (lelaki).
1.Judy Moran (dipenjara 2009-sampai sekarang)
Bagaimanapun, tidak berarti bahwa organisasi seperti Keluarga Moran tidak bisa mengubah geng sesekali dan mengubah Melbourne menjadi Dodge City. Judy Moran, adalah wanita berusia 66 tahun yang memimpin Gengster terbesar di Melbourne. Dia dijuluki "family matriarch".
2.Xie Caiping (dipenjara, 2009-sampai sekarang)
Hampir setahun yang lalu, kota Chongqing Cina mengeluarkan tindakan keras terhadap kejahatan terorganisir, sebuah operasi besar-besaran yang tertangkap hampir 1.500 tersangka, yang semuanya berada dibawah pimpinan Xie Caiping. Sebagai bos, Caiping menjalankan kasino ilegal dan bertanggung jawab untuk menjaga polisi dari belakang semua orang.
3.Sandra Avila Beltran (dipenjara 2007-sampai sekarang)
Dengan julukan seperti "Ratu Pasifik," Sangat sulit untuk tidak membayangkan Sandra Beltran seolah dirinya seorang bajak laut. Singkat cerita, Beltran lahir dan dibesarkan untuk menjadi "GodMother" Meksiko. Pamannya adalah Godfather penyelundupan narkoba Meksiko. Dia mendapat julukan itu karena dia memfasilitasi hubungan antara kartel Valle del Norte Kolombia dan kartel Sinaloa, dan membantu mengembangkan rute penyelundupan di sepanjang Pantai Pasifik Meksiko. Sandra sendiri dipenjara saat menghadapi tuduhan kejahatan terorganisir, pencucian uang dan konspirasi untuk obat lalu lintas.
4.Rosetta Cutolo (dipenjara 1993-sampai sekarang)
Wanita ini menjadi gangster karena rasa peduli dan berduka ketika saudaranya ditangkap kepolisian Italia. Dia kemudian meneruskan bisnis yang digeluti saudaranya itu. Dia menjadi daftar tersangka yang paling dicari di Italia karena dia termasuk dalam daftar nama keluarga Raffaele Cutolo, Nuova Camorra Organizzata (NCO), yaitu gangster yang paling ditakuti di Italia. Setelah menyerbu markas polisi Italia di tahun 1981, dia menghabiskan 10 tahun sebagai buronan sampai akhirnya menyerah.
5.Maria Licciardi (dipenjara, 2001-sampai sekarang)
Dari tahun 1993 hingga 2001, Maria Licciardi adalah kepala marga Licciardi, dan "Capo di Tutti Capi" gangster dari Napoli. Di bawah membimbingnya, keluarga Licciardi menjadi lebih terorganisir, dan lebih menguntungkan dalam segala usaha mereka. Mungkin kontribusinya yang paling penting, adalah memperkenalkan prostitusi di Camorra. Padahal sebelum itu, ada beberapa jenis kode etik yang melarang mafia mendapatkan uang dari porstitusi. Hal ini mungkin tampak bertentangan dengan memikirkan seorang wanita sebagai salah satu untuk memecah penghalang prostitusi. Tapi seperti Mary Wollstonecraft pernah berkata, ketika Anda bos, akan melakukan tindakan bodoh seperti dia.
6.Maria Leon (dipenjara 2010-sampai sekarang)
Seorang ibu 44 tahun dengan 13 anak-anak mungkin terdengar tidak terlalu berbahaya. Namun berbeda dengan Maria Leon, dia menjadi pemimpin peredaran obat bius besar yang menguasai timur laut Los Angles dan Beirut. Dia mengatur bisnisnya pada saat dia memberikan pendidikan bagi anak nya.
7.Griselda Blanco (status tidak diketahui sampai sekarang)
Ketika berusia 11, dia menculik anak dari orang kaya yang tinggal bersebelahan dengan tempat dia tinggal denggan harapan mendapatkan tebusan. Ketika orang tua anak yang diculiknya menyatakan tidak mau memberikan uang tebusan, dia menembak anak itu.
Setelah pindah ke New York dari Kolombia di era 70-an dan memulai karirnya dalam penyelundupan narkoba, Blanco pindah ke Miami untuk menghindari dakwaan. Di sanalah dia meletakkan dasar bagi Miami untuk menjadi ibukota kokain dari Amerika Serikat Jangan. Blanco diyakini telah mendalangi lebih dari 200 pembunuhan selama karirnya, termasuk (kemungkinan besar) ketiga suaminya. Pada tahun 1988, ia ditangkap oleh DEA di California dan menghabiskan 16 tahun penjara. Ketika dia dibebaskan pada tahun 2004, ia dideportasi kembali ke Kolombia dan belum pernah terlihat sejak itu.
1.Judy Moran (dipenjara 2009-sampai sekarang)
Bagaimanapun, tidak berarti bahwa organisasi seperti Keluarga Moran tidak bisa mengubah geng sesekali dan mengubah Melbourne menjadi Dodge City. Judy Moran, adalah wanita berusia 66 tahun yang memimpin Gengster terbesar di Melbourne. Dia dijuluki "family matriarch".
2.Xie Caiping (dipenjara, 2009-sampai sekarang)
Hampir setahun yang lalu, kota Chongqing Cina mengeluarkan tindakan keras terhadap kejahatan terorganisir, sebuah operasi besar-besaran yang tertangkap hampir 1.500 tersangka, yang semuanya berada dibawah pimpinan Xie Caiping. Sebagai bos, Caiping menjalankan kasino ilegal dan bertanggung jawab untuk menjaga polisi dari belakang semua orang.
3.Sandra Avila Beltran (dipenjara 2007-sampai sekarang)
Dengan julukan seperti "Ratu Pasifik," Sangat sulit untuk tidak membayangkan Sandra Beltran seolah dirinya seorang bajak laut. Singkat cerita, Beltran lahir dan dibesarkan untuk menjadi "GodMother" Meksiko. Pamannya adalah Godfather penyelundupan narkoba Meksiko. Dia mendapat julukan itu karena dia memfasilitasi hubungan antara kartel Valle del Norte Kolombia dan kartel Sinaloa, dan membantu mengembangkan rute penyelundupan di sepanjang Pantai Pasifik Meksiko. Sandra sendiri dipenjara saat menghadapi tuduhan kejahatan terorganisir, pencucian uang dan konspirasi untuk obat lalu lintas.
4.Rosetta Cutolo (dipenjara 1993-sampai sekarang)
Wanita ini menjadi gangster karena rasa peduli dan berduka ketika saudaranya ditangkap kepolisian Italia. Dia kemudian meneruskan bisnis yang digeluti saudaranya itu. Dia menjadi daftar tersangka yang paling dicari di Italia karena dia termasuk dalam daftar nama keluarga Raffaele Cutolo, Nuova Camorra Organizzata (NCO), yaitu gangster yang paling ditakuti di Italia. Setelah menyerbu markas polisi Italia di tahun 1981, dia menghabiskan 10 tahun sebagai buronan sampai akhirnya menyerah.
5.Maria Licciardi (dipenjara, 2001-sampai sekarang)
Dari tahun 1993 hingga 2001, Maria Licciardi adalah kepala marga Licciardi, dan "Capo di Tutti Capi" gangster dari Napoli. Di bawah membimbingnya, keluarga Licciardi menjadi lebih terorganisir, dan lebih menguntungkan dalam segala usaha mereka. Mungkin kontribusinya yang paling penting, adalah memperkenalkan prostitusi di Camorra. Padahal sebelum itu, ada beberapa jenis kode etik yang melarang mafia mendapatkan uang dari porstitusi. Hal ini mungkin tampak bertentangan dengan memikirkan seorang wanita sebagai salah satu untuk memecah penghalang prostitusi. Tapi seperti Mary Wollstonecraft pernah berkata, ketika Anda bos, akan melakukan tindakan bodoh seperti dia.
6.Maria Leon (dipenjara 2010-sampai sekarang)
Seorang ibu 44 tahun dengan 13 anak-anak mungkin terdengar tidak terlalu berbahaya. Namun berbeda dengan Maria Leon, dia menjadi pemimpin peredaran obat bius besar yang menguasai timur laut Los Angles dan Beirut. Dia mengatur bisnisnya pada saat dia memberikan pendidikan bagi anak nya.
7.Griselda Blanco (status tidak diketahui sampai sekarang)
Ketika berusia 11, dia menculik anak dari orang kaya yang tinggal bersebelahan dengan tempat dia tinggal denggan harapan mendapatkan tebusan. Ketika orang tua anak yang diculiknya menyatakan tidak mau memberikan uang tebusan, dia menembak anak itu.
Setelah pindah ke New York dari Kolombia di era 70-an dan memulai karirnya dalam penyelundupan narkoba, Blanco pindah ke Miami untuk menghindari dakwaan. Di sanalah dia meletakkan dasar bagi Miami untuk menjadi ibukota kokain dari Amerika Serikat Jangan. Blanco diyakini telah mendalangi lebih dari 200 pembunuhan selama karirnya, termasuk (kemungkinan besar) ketiga suaminya. Pada tahun 1988, ia ditangkap oleh DEA di California dan menghabiskan 16 tahun penjara. Ketika dia dibebaskan pada tahun 2004, ia dideportasi kembali ke Kolombia dan belum pernah terlihat sejak itu.
18 Feb 2011
Semut yang pantang menyerah...
Jum'at 18 Februari 2011
Ketika saya berada di mesjid tadi karena bosen dengerin ceramah maka saya iseng iseng nyentilin semut yang lagi jalan di lantai. Yang bikin saya heran, semut itu tetap jalan ke arah timur.. Walaupun Saya sentil berkali kali sampe mental jauh tapi semut itu tetap jalan ke arah yang sama... Mengapa bisa? Entahlah itu rahasia alam...
Tapi saya menyimpulkan, kita sebagai manusia yang jelas jelas mahkluk paling sempurna harus meniru si semut itu.. Kita tak boleh menyerah walaupu ujian yang kita hadapi itu bertubi-tubi menimpa kita.. Mau sesulit apapun ujian tersebut kita harus melangkah ke depan, kita harus menghadpinya dan jangan cepat menyerah..
Sungguh luar biasa sifat pekerja keras semut itu, tubuhnya kecil tapi mereka memiliki tekad keras, dan juga berjiwa besar.. Pasti kita sering kan liat semut yang berbaris menggendong makanan yang lebih besar dari tubuhnya.. Sungguh Dahsyat!
Ketika saya berada di mesjid tadi karena bosen dengerin ceramah maka saya iseng iseng nyentilin semut yang lagi jalan di lantai. Yang bikin saya heran, semut itu tetap jalan ke arah timur.. Walaupun Saya sentil berkali kali sampe mental jauh tapi semut itu tetap jalan ke arah yang sama... Mengapa bisa? Entahlah itu rahasia alam...
Tapi saya menyimpulkan, kita sebagai manusia yang jelas jelas mahkluk paling sempurna harus meniru si semut itu.. Kita tak boleh menyerah walaupu ujian yang kita hadapi itu bertubi-tubi menimpa kita.. Mau sesulit apapun ujian tersebut kita harus melangkah ke depan, kita harus menghadpinya dan jangan cepat menyerah..
Sungguh luar biasa sifat pekerja keras semut itu, tubuhnya kecil tapi mereka memiliki tekad keras, dan juga berjiwa besar.. Pasti kita sering kan liat semut yang berbaris menggendong makanan yang lebih besar dari tubuhnya.. Sungguh Dahsyat!
17 Feb 2011
Daftar Pemenang Grammy Awards 2011 ke 53
Song of The Year
Beg, Steal or Borrow - Ray LaMontagne
Forget You - Cee Lo
The House That Built Me - Miranda Lambert
Love The Way You Lie - Eminem Feat. Rihanna
Need You Now - Lady Antebellum - THE WINNER
Album of The Year
THE SUBURBS - Arcade Fire -THE WINNER
RECOVERY - Eminem
NEED YOU NOW - Lady Antebellum
THE FAME MONSTER - Lady Gaga
TEENAGE DREAM - Katy Perry
Best New Artist
Justin Bieber
Drake
Florence and the Machine
Mumford and Sons
Esperanza Spalding - THE WINNER
Record of The Year
Nothing on You - B.o.B Feat. Bruno Mars
Love the Way You Lie - Eminem Feat. Rihanna
Forget You - Cee-Lo
Empire State of Mind - Jay Z Feat. Alicia Keys
Need You Now - Lady Antebellum THE WINNER
Best Female Pop Vocal Performance
King of Anything - Sara Bareilles
Halo (Live) - Beyonce
Chasing Pirates - Norah Jones
Bad Romance - Lady Gaga - THE WINNER
Teenage Dream - Katy Perry
Best Male Pop Vocal Performance
Havent Met You Yet - Michael Buble
This is It - Michael Jackson
Whataya Want From Me - Adam Lambert
Just The Way You Are - Bruno Mars - THE WINNER
Half Of My Heart - John Mayer
Best Female Country Vocal Performance
Satisfied - Jewel
The House That Built Me - Miranda Lambert - THE WINNER
Swingin - LeAnn Rimes
Temporary Home - Carrie Underwood
I'd Love To Be Your Last - Gretchen Wilson
Best Pop Performance by a Group or Duo with Vocals
Don't Stop Believin' (Regionals Version) - Glee Cast
The Only Exception - Paramore
Babyfather - Sade
Hey, Soul Sister (Live) - Train -THE WINNER
Best Pop Collaboration with Vocals
Airplanes, Part II - B.o.B, Eminem & Hayley Williams
Imagine - Herbie Hancock, Pink, India.Arie, Seal, Konono No 1, Jeff Beck & Oumou Sangare - THE WINNER
If it Wasn't for Bad - Elton John & Leon Russell
Telephone - Lady GaGa & Beyonce
California Gurls - Katy Perry & Snoop Dogg
Best Pop Vocal Album
MY WORLD 2.0 - Justin Bieber
I DREAMED A DREAM - Susan Boyle
THE FAME MONSTER - Lady GaGa -THE WINNER
BATTLE STUDIES - John Mayer
TEENAGE DREAM - Katy Perry
Best Country Song
The Breath You Take - George Strait
Free - Zac Brown Band
The House That Built Me - Miranda Lambert
I'd Love to Be Your Last - Gretchen Wilson
If I Die Young - The Band Perry
Need You Now - Lady Antebellum - THE WINNER
Best Country Album
UP ON THE RIDGE - Dierks Bentley
YOU GET WHAT YOU GIVE - Zac Brown Band
THE GUITAR SONG - Jamey Johnson
NEED YOU NOW - Lady Antebellum - THE WINNER
REVOLUTION - Miranda Lambert
Best Rock SongAngry World - Neil Young - THE WINNER
Little Lion Man - Mumford & Sons
Radioactive - Kings Of Leon
Resistance - Muse
Tighten Up - The Black Keys
Best Rock Album
EMOTION & COMMOTION - Jeff Beck
THE RESISTANCE - Muse -THE WINNER
BACKSPACER - Pearl Jam
MOJO - Tom Petty And The Heartbreakers
LE NOISE - Neil Young
Best R&B Song
Bittersweet - Fantasia
Finding My Way Back - Jaheim
Second Chance - El DeBarge
Shine - John Legend & The Roots - THE WINNER
Why Would You Stay - Kem
Best R&B Album
THE LOVE & WAR MASTERPEACE - Raheem DeVaughn
BACK TO ME - Fantasia
ANOTHER ROUND - Jaheim
WAKE UP! - John Legend & The Roots -THE WINNER
STILL STANDING - Monica
Best Contemporary R&B Album
GRAFFITI - Chris Brown
UNTITLED - R. Kelly
TRANSITION - Ryan Leslie
THE ARCHANDROID - Janelle Monae
RAYMOND V RAYMOND - Usher - THE WINNER
Best Rap Song
Empire State Of Mind - Jay-Z & Alicia Keys THE WINNER
Love the Way You Lie - Eminem & Rihanna
Not Afraid - Eminem
Nothin On You - B.o.B & Bruno Mars
On To The Next One - Jay Z & Swizz Beatz
Best Rap Album
THE ADVENTURES OF BOBBY RAY - B.o.B
THANK ME LATER - Drake
RECOVERY - Eminem THE WINNER
THE BLUEPRINT 3 - Jay Z
HOW I GET OVER - The Roots
Best Compilation Soundtrack Album for Motion Picture, Television or Other Visual Media
CRAZY HEART - Various Artists - THE WINNER
GLEE: THE MUSIC, VOL. 1 - Glee Cast
TREME - Various Artists
TRUE BLOOD VOL. 2 - Various Artists
THE TWILIGHT SAGA: ECLIPSE - Various Artists.
Sumber: http://www.kaskus.us/showthread.php?t=6131035
Selengkapnya: http://www.grammy.com/nominees
Beg, Steal or Borrow - Ray LaMontagne
Forget You - Cee Lo
The House That Built Me - Miranda Lambert
Love The Way You Lie - Eminem Feat. Rihanna
Need You Now - Lady Antebellum - THE WINNER
Album of The Year
THE SUBURBS - Arcade Fire -THE WINNER
RECOVERY - Eminem
NEED YOU NOW - Lady Antebellum
THE FAME MONSTER - Lady Gaga
TEENAGE DREAM - Katy Perry
Best New Artist
Justin Bieber
Drake
Florence and the Machine
Mumford and Sons
Esperanza Spalding - THE WINNER
Record of The Year
Nothing on You - B.o.B Feat. Bruno Mars
Love the Way You Lie - Eminem Feat. Rihanna
Forget You - Cee-Lo
Empire State of Mind - Jay Z Feat. Alicia Keys
Need You Now - Lady Antebellum THE WINNER
Best Female Pop Vocal Performance
King of Anything - Sara Bareilles
Halo (Live) - Beyonce
Chasing Pirates - Norah Jones
Bad Romance - Lady Gaga - THE WINNER
Teenage Dream - Katy Perry
Best Male Pop Vocal Performance
Havent Met You Yet - Michael Buble
This is It - Michael Jackson
Whataya Want From Me - Adam Lambert
Just The Way You Are - Bruno Mars - THE WINNER
Half Of My Heart - John Mayer
Best Female Country Vocal Performance
Satisfied - Jewel
The House That Built Me - Miranda Lambert - THE WINNER
Swingin - LeAnn Rimes
Temporary Home - Carrie Underwood
I'd Love To Be Your Last - Gretchen Wilson
Best Pop Performance by a Group or Duo with Vocals
Don't Stop Believin' (Regionals Version) - Glee Cast
The Only Exception - Paramore
Babyfather - Sade
Hey, Soul Sister (Live) - Train -THE WINNER
Best Pop Collaboration with Vocals
Airplanes, Part II - B.o.B, Eminem & Hayley Williams
Imagine - Herbie Hancock, Pink, India.Arie, Seal, Konono No 1, Jeff Beck & Oumou Sangare - THE WINNER
If it Wasn't for Bad - Elton John & Leon Russell
Telephone - Lady GaGa & Beyonce
California Gurls - Katy Perry & Snoop Dogg
Best Pop Vocal Album
MY WORLD 2.0 - Justin Bieber
I DREAMED A DREAM - Susan Boyle
THE FAME MONSTER - Lady GaGa -THE WINNER
BATTLE STUDIES - John Mayer
TEENAGE DREAM - Katy Perry
Best Country Song
The Breath You Take - George Strait
Free - Zac Brown Band
The House That Built Me - Miranda Lambert
I'd Love to Be Your Last - Gretchen Wilson
If I Die Young - The Band Perry
Need You Now - Lady Antebellum - THE WINNER
Best Country Album
UP ON THE RIDGE - Dierks Bentley
YOU GET WHAT YOU GIVE - Zac Brown Band
THE GUITAR SONG - Jamey Johnson
NEED YOU NOW - Lady Antebellum - THE WINNER
REVOLUTION - Miranda Lambert
Best Rock SongAngry World - Neil Young - THE WINNER
Little Lion Man - Mumford & Sons
Radioactive - Kings Of Leon
Resistance - Muse
Tighten Up - The Black Keys
Best Rock Album
EMOTION & COMMOTION - Jeff Beck
THE RESISTANCE - Muse -THE WINNER
BACKSPACER - Pearl Jam
MOJO - Tom Petty And The Heartbreakers
LE NOISE - Neil Young
Best R&B Song
Bittersweet - Fantasia
Finding My Way Back - Jaheim
Second Chance - El DeBarge
Shine - John Legend & The Roots - THE WINNER
Why Would You Stay - Kem
Best R&B Album
THE LOVE & WAR MASTERPEACE - Raheem DeVaughn
BACK TO ME - Fantasia
ANOTHER ROUND - Jaheim
WAKE UP! - John Legend & The Roots -THE WINNER
STILL STANDING - Monica
Best Contemporary R&B Album
GRAFFITI - Chris Brown
UNTITLED - R. Kelly
TRANSITION - Ryan Leslie
THE ARCHANDROID - Janelle Monae
RAYMOND V RAYMOND - Usher - THE WINNER
Best Rap Song
Empire State Of Mind - Jay-Z & Alicia Keys THE WINNER
Love the Way You Lie - Eminem & Rihanna
Not Afraid - Eminem
Nothin On You - B.o.B & Bruno Mars
On To The Next One - Jay Z & Swizz Beatz
Best Rap Album
THE ADVENTURES OF BOBBY RAY - B.o.B
THANK ME LATER - Drake
RECOVERY - Eminem THE WINNER
THE BLUEPRINT 3 - Jay Z
HOW I GET OVER - The Roots
Best Compilation Soundtrack Album for Motion Picture, Television or Other Visual Media
CRAZY HEART - Various Artists - THE WINNER
GLEE: THE MUSIC, VOL. 1 - Glee Cast
TREME - Various Artists
TRUE BLOOD VOL. 2 - Various Artists
THE TWILIGHT SAGA: ECLIPSE - Various Artists.
Sumber: http://www.kaskus.us/showthread.php?t=6131035
Selengkapnya: http://www.grammy.com/nominees
Alasan Manusia Berumur Sampai 75 Tahun
Di awal zaman, Tuhan menciptakan seekor sapi. Tuhan berkata kepada sang sapi,
"Hari ini kuciptakan kau sebagai sapi, engkau harus pergi ke padang rumput. Kau harus bekerja di bawah terik matahari sepanjang hari. Kutetapkan umurmu sekitar 50 tahun".
Sang Sapi keberatan,
"Kehidupanku akan sangat berat selama 50 tahun, kiranya 20 tahun cukuplah buatku, kukembalikan kepadamu yang 30 tahun".
Maka setujulah Tuhan.
Di hari kedua, Tuhan menciptakan monyet.
"Hai monyet, hiburlah manusia. Aku berikan kau umur 20 tahun".
Sang monyet menjawab,
"Apa? Menghibur mereka dan membuat mereka tertawa? 10 tahun cukuplah, kukembalikan 10 tahun padamu".
Maka setujulah Tuhan.
Di hari ketiga, Tuhan menciptakan anjing.
"Apa yang harus kau lakukan adalah menjaga pintu rumah majikanmu. Setiap orang mendekat kau harus menggongongnya. Untuk itu kuberikan hidupmu selama 20 tahun".
Sang anjing menolak dan berkata,
"Menjaga pintu sepanjang hari selama 20 tahun? No way! Kukembalikan 10 tahun padamu".
Maka setujulah Tuhan.
Di hari keempat, Tuhan menciptakan manusia. Sabda Tuhan:
"Tugasmu adalah makan, tidur, dan bersenang-senang. Inilah kehidupan. Kau akan menikmatinya. Akan kuberikan engkau umur sepanjang 25 tahun!".
Sang manusia keberatan, katanya,
"Menikmati kehidupan selama 25 tahun? Itu terlalu pendek Tuhan...Let's make a deal. Karena sapi mengembalikan 30 tahun usianya, lalu anjing mengembalikan 10 tahun, dan monyet mengembalikan 10 tahun usianya padaMu, berikanlah semuanya itu padaku. Semua itu akan menambah masa hidupku menjadi 75 tahun. Setuju?".
Maka setujulah Tuhan.
Akibatnya...
Pada 25 tahun pertama kehidupan sebagai manusia dijalankan kita makan, tidur dan bersenang-senang. 30 tahun berikutnya menjalankan kehidupan layaknya seekor sapi, kita harus bekerja keras sepanjang hari untuk menopang keluarga kita. 10 tahun kemudian kita menghibur dan membuat cucu kita tertawa dengan berperan sebagai monyet yang menghibur. Dan 10 tahun berikutnya kita tinggal di rumah, duduk di depan pintu, dan menggonggong kepada orang yang lewat.
"Hari ini kuciptakan kau sebagai sapi, engkau harus pergi ke padang rumput. Kau harus bekerja di bawah terik matahari sepanjang hari. Kutetapkan umurmu sekitar 50 tahun".
Sang Sapi keberatan,
"Kehidupanku akan sangat berat selama 50 tahun, kiranya 20 tahun cukuplah buatku, kukembalikan kepadamu yang 30 tahun".
Maka setujulah Tuhan.
Di hari kedua, Tuhan menciptakan monyet.
"Hai monyet, hiburlah manusia. Aku berikan kau umur 20 tahun".
Sang monyet menjawab,
"Apa? Menghibur mereka dan membuat mereka tertawa? 10 tahun cukuplah, kukembalikan 10 tahun padamu".
Maka setujulah Tuhan.
Di hari ketiga, Tuhan menciptakan anjing.
"Apa yang harus kau lakukan adalah menjaga pintu rumah majikanmu. Setiap orang mendekat kau harus menggongongnya. Untuk itu kuberikan hidupmu selama 20 tahun".
Sang anjing menolak dan berkata,
"Menjaga pintu sepanjang hari selama 20 tahun? No way! Kukembalikan 10 tahun padamu".
Maka setujulah Tuhan.
Di hari keempat, Tuhan menciptakan manusia. Sabda Tuhan:
"Tugasmu adalah makan, tidur, dan bersenang-senang. Inilah kehidupan. Kau akan menikmatinya. Akan kuberikan engkau umur sepanjang 25 tahun!".
Sang manusia keberatan, katanya,
"Menikmati kehidupan selama 25 tahun? Itu terlalu pendek Tuhan...Let's make a deal. Karena sapi mengembalikan 30 tahun usianya, lalu anjing mengembalikan 10 tahun, dan monyet mengembalikan 10 tahun usianya padaMu, berikanlah semuanya itu padaku. Semua itu akan menambah masa hidupku menjadi 75 tahun. Setuju?".
Maka setujulah Tuhan.
Akibatnya...
Pada 25 tahun pertama kehidupan sebagai manusia dijalankan kita makan, tidur dan bersenang-senang. 30 tahun berikutnya menjalankan kehidupan layaknya seekor sapi, kita harus bekerja keras sepanjang hari untuk menopang keluarga kita. 10 tahun kemudian kita menghibur dan membuat cucu kita tertawa dengan berperan sebagai monyet yang menghibur. Dan 10 tahun berikutnya kita tinggal di rumah, duduk di depan pintu, dan menggonggong kepada orang yang lewat.
Foto-foto Squad Arsenal Saat Mempecundangi Barcelona di UCL
Berikut adalah foto-foto pada pertandingan UCL leg 1 16 Februari...
Squad Arsenal (ki-ka):
Sesni, Djorou, Koscielny, Eboue, Nasri, Alex Song..
Jack Wilshere, Clichy, Fabregas, Walcott, Rvp..
Rvp Vs Pique
Rvp10 :)
Sesni vs Alves
Hahaha Lemes Nih Yee...
Sumber: AKFC Kaskus
Squad Arsenal (ki-ka):
Sesni, Djorou, Koscielny, Eboue, Nasri, Alex Song..
Jack Wilshere, Clichy, Fabregas, Walcott, Rvp..
Rvp Vs Pique
Rvp10 :)
Sesni vs Alves
Hahaha Lemes Nih Yee...
Sumber: AKFC Kaskus
Alasan Jack Wilshere Sangat Hebat Pada Usianya...
Pasti semua orang yang nonton pertandingan Arsenal pada bingung kalo liat permainan Jack Wilshere...
Pasti pada mikir, kenapa ni bocah jago banget...
Pasti pada heran, kenapa dia bisa tenang banget....
Jadi inilah jawaban dari semua misteri yang ada...
Look at this......
Hahaha Ternyata Wilshere Mempunyai Beberapa DNA pemain Legend Arsenal...
Sumber: Akfc
Pasti pada mikir, kenapa ni bocah jago banget...
Pasti pada heran, kenapa dia bisa tenang banget....
Jadi inilah jawaban dari semua misteri yang ada...
Look at this......
Hahaha Ternyata Wilshere Mempunyai Beberapa DNA pemain Legend Arsenal...
Sumber: Akfc
14 Feb 2011
Hujan..
Senin, 14 Februari 2011
Hujan turun membasahi bumi..
Hawa dingin menyelimuti kalbu..
Tak ada burung yang bernyanyi..
Basah pohon, burung berselimutan..
Jalanan Macet sudah biasa..
Genangan air membasahi kaki..
Jalan Bolong, tak terlihat lagi..
Jalan Selonong, masuk lubang naik turun..
Entah anugrah atau ujian..
Banjir seakan-akan menjadi edisi tahunan..
Sampah berhamburan, baunya mencemar penciuman..
Kaki gatal, diare akut datang tanpa diundang..
Bocah kecil bermain air..
Bukan bermain bola di tanah lapang..
Abang-abang mancing di empang..
Tidak kerja cari nafkah...
10 Feb 2011
Pengertian Ilmu Budaya Dasar
PENGERTIAN
Ilmu budaya dasar adalah ilmu yang tanpa kita sadari telah sangat melekat dalam kehidupan kita, baik secara individual, dalam keluarga, maupun dalam masyarakat luas. Namun banyak dari kita yang tidak menyadari dan tidak mengerti akan hal itu, sehingga penerapannya dalam kehidupan menjadi sangat kurang. Hal ini tentu saja sangat mempengaruhi bagaimana seseorang bersikap dalam kehidupannya sehari-hari.
Oleh karena itu saya akan menjelaskan pengertian Ilmu Budaya Dasar serta hubungan ilmu tersebut dalam kehidupan sehari-hari kita.
Secara Umum, Ilmu budaya dasar yaitu ilmu yang mengajarkan mengenai budaya atau tata cara yang seharusnya diterapkan oleh seseorang dalam kehidupannya, baik secara individual, dalam keluarga, maupun dalam masyarakat luas.
Maksudnya adalah bagaimana kita harus bersikap dalam aspek kehidupan yang berbeda-beda sehingga kita dapat menempatkan diri pada situasi apapun yang akan kita hadapi.
1.Berbagai aspek kehidupan yang seluruhnya merupakan ungkapan masalah kemanusiaan dan budaya yang dapat didekati dengan menggunakan pengetahuan budaya (the humanities), baik dari segi masing-masing keahlian (disiplin) didalam pengetahuan budaya, maupun secara gabungan (antar bidang) berbagai disiplin dalam pengetahuan budaya
2.Hakekat manusia yang satu atau universal, akan tetapi yang beraneka ragam perwujudannya dalam kebudayaan masing-masing jaman dan tempat.
Menilik kedua pokok masalah yang bisa dikaji dalam mata kuliah IBD, nampak dengan jelas bahwa manusia menempati posisi sentral dalam pengkajian. Manusia tidak hanya sebagai obyek pengkajian. Bagaimana hubungan manusia dengan alam, dengan sesame, dirinya sendiri, nilai-nilai manusia dan bagaimana pula hubungan dengan sang pencipta menjadi tema sentral dalam IBD. Pokok-pokok bahasan yang dikembangkan adalah :
1.Manusia dan cinta kasih
2.Manusia dan Keindahan
3.Manusia dan Penderitaan
4.Manusia dan Keadilan
5.Manusia dan Pandangan hidup
6.Manusia dan tanggungjawab serta pengabdian
7.Manusia dan kegelisahan
8.Manusia dan harapan
Peranan Ilmu Budaya Dasar
Didalam kehidupan sehari-hari peran ilmu budaya dasar yaitu pada saat kita dihadapkan pada pilihan-pilihan yang sering kali membingungkan kita. Ini sangat penting dalam mengambil keputusan-keputusan dalam hidup kita. Serta bagaimana ilmu budaya dasar dapat mempengaruhi sikap kita terhadap anggota keluarga kita, bagaimana kita seharusnya bersikap agar tidak mengecewakan keluarga, terutama orang tua kita. Juga didalam masyarakat luas ilmu budaya dasar dapat mempengaruhi sikap dan tata cara kita dalam bermasyarakat. Bila kita sudah mempunyai dasar yang kuat, dapat diyakini bahwa kita akan dapat membawa diri dalam masyarakat.
Kritik Dan Saran
Kritik dan saran saya terhadap pembangunan budaya bangsa dengan menerapkan ilmu budaya dasar yaitu :
Kita perlu tahu bahwa adanya bangsa asing yang ingin selalu menguasai budaya kita bangsa Indonesia menurut saya itu yang sangat menghambat pertumbuhan dan perkembangan budaya kita sendiri. Kini banyak sekali para pemuda dan pemudi yang telah terjerumus dengan budaya kinsumtif dan hedonis, padahal dalam budaya kita atau ketimuran yang seperti itu sangatlah buruk karena tidak sesuai dengan budi pekerti dan norma yang ada.
Kita bisa membentengi itu semua dengan cara memfilter arus pergaulan kita, agar kita tidak terbawa arus budaya hedonisme dan konsumtif.
Kita perlu tahu bahwa adanya bangsa asing yang ingin selalu menguasai budaya kita bangsa Indonesia menurut saya itu yang sangat menghambat pertumbuhan dan perkembangan budaya kita sendiri. Kini banyak sekali para pemuda dan pemudi yang telah terjerumus dengan budaya kinsumtif dan hedonis, padahal dalam budaya kita atau ketimuran yang seperti itu sangatlah buruk karena tidak sesuai dengan budi pekerti dan norma yang ada.
Kita bisa membentengi itu semua dengan cara memfilter arus pergaulan kita, agar kita tidak terbawa arus budaya hedonisme dan konsumtif.
Sumber: http://dimyati.staff.gunadarma.ac.id/Downloads/files/18332/bab1-tinjauan_tentang_ilmu_budaya_dasar.pdf
http://massofa.wordpress.com/2008/10/21/pengertian-tujuan-dan-ruang-lingkup-ilmu-budaya-dasar/
http://massofa.wordpress.com/2008/10/21/pengertian-tujuan-dan-ruang-lingkup-ilmu-budaya-dasar/
5 Feb 2011
Curhatan "Sang Ketinggalan Zaman"
Perkenalkan nama saya Nasuha, Biasa di panggil Asu sama teman-teman saya. Saya bekerja jadi apa aja yang bisa di kerjain, kasarnya serabutan lah :D
Jadi gini, Saya gak ngerti sama kelakuan teman-teman saya yang sering bilang saya itu ketinggalan zaman.
Sebelumnya, saya kalau pergi kemana-mana suka naik sepeda roda 2 yang saya rakit sendiri. Saya senang keliling dengan sepeda itu, Kalau nongkrong bareng temen-temen saya suka bawa sepeda itu.
Tapi saya sedih kalo ikut nongkrong ama mereka, mereka selalu aja ngehina saya, Norak lah, Miskin lah, Kampungan lah.. Hanya gara-gara saya tidak punya sepeda motor.
Saya sedih, dan terpukul sekali dengan perkataan mereka. Lalu saya bertekad dalam hati saya mengumpulkan uang untuk membeli sepeda motor. Saya bekerja serabutan dimana-mana dari kerja jadi pelayan restaurant, penjaga kasir mini mart 24 jam, sampe jadi penjaga warnet. Semuanya saya lakukan dengan giat dan bersungguh-sungguh.
13 bulan saya bekerja keras dan alhamdulillah saya sudah mengumpulkan uang yang cukup untuk menyicil motor. Dan sisanya bisa di tabung untuk cicilan berikutnya. Karena sudah lama enggak nongkrong ama temen-temen saya akhirnya kami mengadakan acara kumpul kangen, mereka bilang saya sombonglah gak pernah ngumpul lagi, padahal saya kan sibuk nyari uang.
Akan tetapi saya shok disana, bagaimana tidak selama setahun lebih 1 bulan saya kerja keras ngumpulin uang. Disana saya melihat teman-teman saya bersepeda semua, sepedanya mirip dengan sepeda saya dulu. Sepeda tanpa rem, dan boleh rakit sendiri sehingga harganya lebih murah. Bagaikan tersambar petir saya diketawain ketika saya bawa sepeda motor sendiri. Saya di bilang KETINGGALAN ZAMAN, kata temen saya ini kan zamannya bersepeda.
Hancur, bener-bener hancur hati saya. Ketika saya mencoba mengikuti gaya teman-teman saya. Tapi mereka malah mengikuti gaya saya tahun lalu. Sedih emang, pengen bunuh diri tapi sayang orang tua. Apa yang harus saya lakukan???? Sekian curhatan dari saya tunggu edisi berikutnya..
Jadi gini, Saya gak ngerti sama kelakuan teman-teman saya yang sering bilang saya itu ketinggalan zaman.
Sebelumnya, saya kalau pergi kemana-mana suka naik sepeda roda 2 yang saya rakit sendiri. Saya senang keliling dengan sepeda itu, Kalau nongkrong bareng temen-temen saya suka bawa sepeda itu.
Tapi saya sedih kalo ikut nongkrong ama mereka, mereka selalu aja ngehina saya, Norak lah, Miskin lah, Kampungan lah.. Hanya gara-gara saya tidak punya sepeda motor.
Saya sedih, dan terpukul sekali dengan perkataan mereka. Lalu saya bertekad dalam hati saya mengumpulkan uang untuk membeli sepeda motor. Saya bekerja serabutan dimana-mana dari kerja jadi pelayan restaurant, penjaga kasir mini mart 24 jam, sampe jadi penjaga warnet. Semuanya saya lakukan dengan giat dan bersungguh-sungguh.
13 bulan saya bekerja keras dan alhamdulillah saya sudah mengumpulkan uang yang cukup untuk menyicil motor. Dan sisanya bisa di tabung untuk cicilan berikutnya. Karena sudah lama enggak nongkrong ama temen-temen saya akhirnya kami mengadakan acara kumpul kangen, mereka bilang saya sombonglah gak pernah ngumpul lagi, padahal saya kan sibuk nyari uang.
Akan tetapi saya shok disana, bagaimana tidak selama setahun lebih 1 bulan saya kerja keras ngumpulin uang. Disana saya melihat teman-teman saya bersepeda semua, sepedanya mirip dengan sepeda saya dulu. Sepeda tanpa rem, dan boleh rakit sendiri sehingga harganya lebih murah. Bagaikan tersambar petir saya diketawain ketika saya bawa sepeda motor sendiri. Saya di bilang KETINGGALAN ZAMAN, kata temen saya ini kan zamannya bersepeda.
Hancur, bener-bener hancur hati saya. Ketika saya mencoba mengikuti gaya teman-teman saya. Tapi mereka malah mengikuti gaya saya tahun lalu. Sedih emang, pengen bunuh diri tapi sayang orang tua. Apa yang harus saya lakukan???? Sekian curhatan dari saya tunggu edisi berikutnya..
Langganan:
Postingan (Atom)