Izinkan Aku Mencintaimu

Tahukah engkau
apa yang ku rasa
disaaT kau tak ada dsampingku
ku sangat Merindukanmu
saaT kau Jauh
ku sangat Mengkhuatirkanmu...

aku Mengerti... kau apa adanya...
begitupun yang ku mau darimu...

jangan pernah khianaTi aku...!!!

aku juga janji....
aku selalu ada untukmu,
karena tak akan ada yang bisa
menggantikanmu di HaTiku

kau adalah Hal Yang Terindah
yang pernah ku miliki,

I Love You.....

Jangan Pernah Mengeluh

“Daripada menghitung kesulitan-kesulitan kita, cobalah
Menjumlahkan berkah-berkah yang telah kita terima!”.

Seorang musafir dengan seorang Pelayan kesayangannya mengadakan perjalanan jauh. Dalam perjalanan itu mereka membawa barang-barang berharga untuk dijual, seperti seekor kambing, ayam jago, serta sebuah obor.
Di sepanjang perjalanan, mereka berdiskusi tentang sifat Tuhan.”Tuhan itu baik, Dia selalu menyertai kemana pun kita pergi,”ujar Si Pelayan. “Aku tidak yakin dengan apa yang kau katakan, lihat saja mungkin Tuhan menyertai perjalanan kita, “ujar musafir, sinis.Menjelang sore tibalah mereka di sebuah desa. Mereka berharap dapat beristirahat sejenak di desa itu, tetapi sayang tidak seorang pun yang bersedia menerima mereka. Penduduk di desa itu tidak mau menerima orang asing. Jadi mereka mengusir musafir dan Pelayannya. Mendapat perlakuan kasar seperti itu, musafir menggerutu,”Benar, kan, kataku ? Tuhan tidak menyertai kita. Buktinya, Dia tidak memberi kita tempat istirahat.”

Karena tidak ada tempat untuk beristirahat maka musafir dan Pelayannya terpaksa pergi ke tengah hutan yang letaknya tidak jauh dari desa. Sampai di sana musafir itu memasang tenda lalu berbaring melepas rasa lelah. Si Pelayan berusaha menghibur tuann tuannya, “Pasti menurut Tuhan, bermalam di tengah hutan ini merupakan yang terbaik bagi kita.”

Tidak lama kemudian terdengarlah suara binatang buas. Ternyata seekor serigala datang menerkam kambing milik sang musafir. Karena ketakutan, sang Musafir pun lari dan memanjat pohon untuk menyelamatkan diri. Dari atas pohon sang Musafir berkata kepada Si Pelayan “Masih beranikah engkau mengatkan bahwa Tuhan itu baik? Lihat saja Tuhan sudah membiarkan kita kedinginan di hutan ini. Tidak hanya itu saja, dia sudah membuatku rugi karena tidak dapat lagi menjual kambingku ke pasar.” Pelayan yang bijaksana itu berusaha menenangkan majikannya,”Tuan seharusnya bersyukur dan berterima kasih karena jika serigala itu tidak menerkam kambing, Tuan dan akulah yang diterkamnya. Tuhan memang baik karena sudah melindungi kita dari maut.”

Musafir masih berada di atas pohon ketika hembusan angin kencang memadamkan obor yang merupakan satu-satunya penghangat yang ia miliki di tengah cuaca yang begitu dingin. Sang musafir itu masih saja mengeluh dan tidak memedulikan kata-kata Si Pelayan. Dengan sindiran sinis ia berkata, “Kelihatannya kebaikan Tuhan kepada kita begitu nyata di sepanjang malam ini.”

Keesokan harinya mereka bersiap untuk melanjutkan perjalanan. Ketika melewati desa yang kemarin mereka singgahi, mereka terkejut melihat keadaan desa yang porak-poranda. Setelah bertanya kepada para penduduk tahulah sang musafir bahwa semalam sekelompak perampok telah menjarah desa tersebut. “Telah terbukti bahwa Tuhan itu memang baik. Jika semalam kita menginap disana, barang-barang Tuan yang berharga akan ikut dirampok. Dan, kalau saja angin kencang tidak memadamkan obor, perampok-perampok itu pasti dapat melihat barang-barang dengan jelas lalu mengambilnya semua,”ujar Pelayan. Sang musafir tertunduk malu. Ia lalu menangis karena dia sepanjang jalan ini ia hanya mengeluh dan menggerutu kepada Tuhan.

Mengeluh hanya akan menguras tenaga dan membuang waktu kita dengan percuma. Menggerutu tidak akan pernah menyelesaikan persoalan, justru menambah beban. Ketika sedang dilanda masalah, belajarlah untuk tetap bersyurkur. Kata-kata positif memang tidak langsung mengubah keadaan, tetapi setidaknya kita memiliki suasana hati yang lebih baik. Hati dan pikiran yang tenang akan membuat kita kuat dalam menghadapi masalah apa pun. Mungkin ada yang berkata,”Bila keadaan sedang kacau, saya tidak mungkin mengucapkan kata-kata yang baik.”Bila tidak dapat berkata-kata yang baik, ada baiknya Anda juga memutuskan untuk tidak berkata-kata sama sekali. Diamlah. Bukankah sering kali diam justru menyelesaikan segalanya? Belajarlah berdiam diri sejenak dan setelah itu lihat apa yang akan terjadi.

“Dan janganlah kamu iri hati terhadap karunia yang telah dilebihkan Allah kepada sebagian kamu atas sebagian yang lain. (Karena) bagi laki-laki ada bagian dari apa yang mereka usahakan, dan bagi perempuan (pun) ada bagian dari apa yang mereka usahakan. Mohonlah kepada Allah sebagian dari karunia-NYA. Sungguh Allah Maha Mengetahui segala sesuatu” (QS: An-Nisa:32)
“Sungguh, Allah tidak akan menzalimi seseorang walaupun sebesar Zarrah, dan jika ada kebajikan (sekecil zarrah), niscaya Allah akan melipatgandakannya dan memberikan pahala yang besar dari sisi-NYA.” (QS: An-Nisa:40).
“Allah tidak menghendaki untuk memberikan kamu sesuatu beban yang berat, tetapi ia berkehendak untuk membersihkan kamu dan menyempurnakan nikmat-Nya kepadamu supaya kamu berterimakasih.” (QS:Al-Maidah: 6)
“Apakah manusia mengira bahwa mereka akan dibiarkan hanya dengan mengatakan, “Kami telah beriman”, dan mereka tidak diuji?”(QS: Al-Ankabut:2)
“Maka sesungguhnya bersama kesulitan ada kemudahan, sesungguhnya bersama kesulitan ada kemudahan” (QS: Al- Insyirah: 5-6).
Allah SWT berfirman dalam hadis qudsiy, ana `inda dzonni `abdi = AKU TERGANTUNG BAGAIMANA HAMBA KU BERPRASANGKA KEPADAKU. Semua harapan, semua prasangka, semua hajat makhluknya bisa dilayani oleh kehendakNya.

Dia Pecandu Narkoba

Dia Mencintai Begitu Dalam Sehingga Menjerat Nafsu Jiwa
Jatuh Ke Dalam Keindahan
Melepaskannya dari Derita
Memegang Semua Kehidupan
Tidak Bisa Meninggalkannya
Selalu Bersimpuh Dihadapannya
Mengharapkan.....
Terciptanya Surga
Yang Membawa Kedamaian
Membawa Dia Terbang...

Akan Tetapi....

Sadarkah...

Dia Hanya Menciptakan Kedamaian Sesaat
Yang Nantinya Surga Akan Jadi Neraka Baginya
Menghancurkan Kehidupannya
Membuat Dia Terjatuh dan Selalu Terjatuh...
Membuat Dia Perih dan Menghantui...
Untuk Selamanya....

KAU Bagaikan Simbol Semesta Alam

Begitu Indahnya Bola Matamu...
Menatap Aku dengan Tajam...
Tak Sadar Ku telah terhipnotis Oleh mu...
Oleh Keindahan Yang Kau Beri...
Kau Lepas Aku dari Derita Ku...
Kau Beri Aku Keindahan mu...

Kau Bagaikan Simbol Semesta Alam
Yang Membuat Ku selalu bersimpuh di Hadapanmu...
Mengharap Keindahan itu terus Mengalir...
Darimu.... Untuk Ku.......
dan Selamanya.....

jawaban No.3

kasus
http://mesran.wordpress.com/2012/01/26/soal-quiz-online-hari-kamis/comment-page-5/#comments

listing program

Public Class PEGAWAI

    Private Sub PEGAWAI_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        BuatTabel()
        JABATAN.Items.Add("MANDOR")
        JABATAN.Items.Add("KEPALA BAGIAN")
        JABATAN.Items.Add("STAFF")
        STATUS.Items.Add("MENIKAH")
        STATUS.Items.Add("TIDAK MENIKAH")
    End Sub
    Sub BANDING()
        If JABATAN.Text = "MANDOR" Then
            GAJI.Text = "1750000"
            PAJAK.Text = 15 * Val(GAJI.Text) / 100
        ElseIf JABATAN.Text = "KEPALA BAGIAN" Then
            GAJI.Text = "2500000"
            PAJAK.Text = 15 * Val(GAJI.Text) / 100
        ElseIf JABATAN.Text = "STAFF" Then
            GAJI.Text = "1250000"
            PAJAK.Text = 15 * Val(GAJI.Text) / 100
        End If
        Select Case STATUS.Text
            Case "MENIKAH" : TUNJANGANISTRI.Text = 9 * Val(GAJI.Text) / 100
            Case "BELUM MENIKAH" : TUNJANGANANAK.Text = 0
        End Select
        If JLHANAK.Text = "1" Then
            TUNJANGANANAK.Text = 3 * Val(GAJI.Text) / 100
        ElseIf JLHANAK.Text = "2" Then
            TUNJANGANANAK.Text = 7 * Val(GAJI.Text) / 100
        ElseIf JLHANAK.Text >= "2" Then
            TUNJANGANANAK.Text = 7 * Val(GAJI.Text) / 100
        ElseIf JLHANAK.Text <= "1" Then
            TUNJANGANANAK.Text = 0
        End If
        If JABATAN.Text = "MANDOR" Then
            If JAM.Text = "0" Then
                LEMBUR.Text = 0
            ElseIf JAM.Text = "1" Then
                LEMBUR.Text = 7500
            ElseIf JAM.Text >= "1" Then
                LEMBUR.Text = 7500 * Val(JAM.Text)
            End If
        ElseIf JABATAN.Text = "KEPALA BAGIAN" Then
            If JAM.Text = "0" Then
                LEMBUR.Text = 0
            ElseIf JAM.Text = "1" Then
                LEMBUR.Text = 10000
            ElseIf JAM.Text >= "1" Then
                LEMBUR.Text = 10000 * Val(JAM.Text)
            End If
        ElseIf JABATAN.Text = "STAFF" Then
            If JAM.Text = "0" Then
                LEMBUR.Text = 0
            ElseIf JAM.Text = "1" Then
                LEMBUR.Text = 5000
            ElseIf JAM.Text >= "1" Then
                LEMBUR.Text = 5000 * Val(JAM.Text)
            End If
        End If
        TTLGAJI.Text = Val(GAJI.Text) + Val(TUNJANGANISTRI.Text) + Val(TUNJANGANANAK.Text) + Val(LEMBUR.Text) - Val(PAJAK.Text)
    End Sub
    Sub BuatTabel()
        With LV()
            .Columns.Add("NAMA", 100, HorizontalAlignment.Center)
            .Columns.Add("JABATAN", 120, HorizontalAlignment.Left)
            .Columns.Add("GAJI", 100, HorizontalAlignment.Left)
            .Columns.Add("STATUS", 100, HorizontalAlignment.Left)
            .Columns.Add("JLH ANAK", 80, HorizontalAlignment.Left)
            .Columns.Add("TNJGN ANAK", 120, HorizontalAlignment.Left)
            .Columns.Add("JAM", 80, HorizontalAlignment.Left)
            .Columns.Add("LEMBUR", 110, HorizontalAlignment.Left)
            .Columns.Add("TNJGN ISTRI", 120, HorizontalAlignment.Left)
            .Columns.Add("PAJAK", 80, HorizontalAlignment.Left)
            .Columns.Add("TOTAL GAJI", 80, HorizontalAlignment.Left)
            .GridLines = True
            .FullRowSelect = True
            .View = View.Details
        End With
    End Sub
    Sub IsiTabel()
        Dim Lst As New ListViewItem
        With Lst
            .Text = NAMA.Text
            .SubItems.Add(JABATAN.Text)
            .SubItems.Add(GAJI.Text)
            .SubItems.Add(STATUS.Text)
            .SubItems.Add(JLHANAK.Text)
            .SubItems.Add(TUNJANGANANAK.Text)
            .SubItems.Add(JAM.Text)
            .SubItems.Add(LEMBUR.Text)
            .SubItems.Add(TUNJANGANISTRI.Text)
            .SubItems.Add(PAJAK.Text)
            .SubItems.Add(TTLGAJI.Text)
            LV.Items.Add(Lst)
        End With
    End Sub

    Private Sub JABATAN_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JABATAN.SelectedIndexChanged
        Call BANDING()
    End Sub

    Private Sub STATUS_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles STATUS.SelectedIndexChanged
        Call BANDING()
    End Sub
   
    Private Sub JAM_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JAM.TextChanged
        Call BANDING()
    End Sub

    Private Sub JLANAK_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JLHANAK.TextChanged
        Call BANDING()
    End Sub
   

    Private Sub BTNSIMPAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNSIMPAN.Click
        IsiTabel()
    End Sub

    Private Sub BTNHAPUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNHAPUS.Click
        LV.Items.Clear()
    End Sub

    Private Sub BTNDATA_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNDATA.Click
        LV.Items.Remove(LV.SelectedItems(0))
    End Sub

    Private Sub BTNKELUAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNKELUAR.Click
        End
    End Sub

    Private Sub BTNBERSIH_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNBERSIH.Click
        NAMA.Text = ""
        JABATAN.Text = ""
        STATUS.Text = ""
        GAJI.Text = ""
        JLHANAK.Text = ""
        TUNJANGANANAK.Text = ""
        JAM.Text = ""
        LEMBUR.Text = ""
        TUNJANGANISTRI.Text = ""
        PAJAK.Text = ""
        TTLGAJI.Text = ""
    End Sub

End Class

hasil program

jawaban No.2

kasus

http://mesran.wordpress.com/2012/01/26/soal-quiz-online-hari-kamis/comment-page-5/#comments

listing program

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        BuatTabel()
        kode.Items.Add("TS001")
        kode.Items.Add("TS002")
        kode.Items.Add("VG001")
        kode.Items.Add("VG002")
    End Sub
    Sub barang()
        Dim x As String
        x = Microsoft.VisualBasic.Left(kode.Text, 2)
        If x = "TS" Then
            merk.Text = "Toshiba"
        ElseIf x = "VG" Then
            merk.Text = "V-Gen"
        End If
        x = Microsoft.VisualBasic.Mid(kode.Text, 3, 3)
        If x = "001" Then
            brg.Text = "Flasdisk 4GB"
        ElseIf x = "002" Then
            brg.Text = "Flasdisk 2GB"
        End If
        If kode.Text = "TS001" Then
            hrg.Text = 105000
        ElseIf kode.Text = "TS002" Then
            hrg.Text = 75000
        End If
        If kode.Text = "VG001" Then
            hrg.Text = 90000
        ElseIf kode.Text = "VG002" Then
            hrg.Text = 60000
        End If
    End Sub
    Sub BuatTabel()
        With LV
            .Columns.Add("No Pembelian", 80, HorizontalAlignment.Center)
            .Columns.Add("Kode Barang", 120, HorizontalAlignment.Left)
            .Columns.Add("Nama Barang", 100, HorizontalAlignment.Left)
            .Columns.Add("Merk", 100, HorizontalAlignment.Left)
            .Columns.Add("Harga", 100, HorizontalAlignment.Left)
            .Columns.Add("Jumlah Beli", 80, HorizontalAlignment.Left)
            .Columns.Add("Total Harga", 80, HorizontalAlignment.Left)
            .GridLines = True
            .FullRowSelect = True
            .View = View.Details
        End With
    End Sub
    Sub IsiTabel()
        Dim Lst As New ListViewItem
        With Lst
            .Text = pmblian.Text()
            .SubItems.Add(kode.Text)
            .SubItems.Add(brg.Text)
            .SubItems.Add(merk.Text)
            .SubItems.Add(hrg.Text)
            .SubItems.Add(jumlah.Text)
            .SubItems.Add(total.Text)
            LV.Items.Add(Lst)
        End With
    End Sub

    Private Sub kodbrg_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode.SelectedIndexChanged

        Call barang()
    End Sub

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
        IsiTabel()
    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        LV.Items.Clear()
    End Sub

    Private Sub btndata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndata.Click
        LV.Items.Remove(LV.SelectedItems(0))
    End Sub

    Private Sub btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbersih.Click
        pmblian.Text = ""
        kode.Text = ""
        brg.Text = ""
        merk.Text = ""
        hrg.Text = ""
        jumlah.Text = ""
        total.Text = ""

    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        End
    End Sub


    Private Sub jlhbeli_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jumlah.TextChanged
        total.Text = Val(jumlah.Text) * Val(hrg.Text)
    End Sub
End Class

hasil program

TUGAS LISTVIEW

Public Class Form1
    Sub BuatTabel()
        With LV
            .Columns.Add("NPM", 80, HorizontalAlignment.Center)
            .Columns.Add("NAMA", 120, HorizontalAlignment.Left)
            .Columns.Add("JENJANG", 100, HorizontalAlignment.Left)
            .Columns.Add("JURUSAN", 100, HorizontalAlignment.Left)
            .Columns.Add("TAHUN MASUK", 100, HorizontalAlignment.Left)
            .Columns.Add("NILAI ANGKA", 80, HorizontalAlignment.Left)
            .Columns.Add("NILAI HURUF", 80, HorizontalAlignment.Left)
            .GridLines = True
            .FullRowSelect = True
            .View = View.Details
        End With
    End Sub
    Sub IsiTabel()
        Dim Lst As New ListViewItem
        With Lst
            .Text = NPM.Text(0)
            .SubItems.Add(NAMA.Text)
            .SubItems.Add(JENJANG.Text)
            .SubItems.Add(JURUSAN.Text)
            .SubItems.Add(THNMASUK.Text)
            .SubItems.Add(NILANGKA.Text)
            .SubItems.Add(NILHURUF.Text)
            LV.Items.Add(Lst)
        End With
    End Sub


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        BuatTabel()
    End Sub

    Private Sub NPM_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.TextChanged
        Dim X, Y As String
        X = Microsoft.VisualBasic.Mid(NPM.Text, 3, 1)
        Y = Microsoft.VisualBasic.Mid(NPM.Text, 4, 1)
        If X = "0" Then
            If Y = "2" Then
                JENJANG.Text = "D3"
                JURUSAN.Text = "Manajemen Informatika"
            End If
        ElseIf X = "1" Then
            JENJANG.Text = "S1"
            If Y = "1" Then
                JURUSAN.Text = "Tek.Informatika"
            ElseIf Y = "2" Then
                JURUSAN.Text = "Sis.Informasi"
            End If
        End If
    End Sub


    Private Sub NILANGKA_Keyprees(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles NILANGKA.KeyPress
        Dim tombol As Integer = Asc(e.KeyChar)
        If tombol = 13 Then
            CariNilai()
        End If

    End Sub

    Sub CariNilai()
        If NILANGKA.Text >= 85 Then
            NILHURUF.Text = "A"
        ElseIf NILANGKA.Text >= 75 Then
            NILHURUF.Text = "B"
        ElseIf NILANGKA.Text >= 70 Then
            NILHURUF.Text = "C"
        ElseIf NILANGKA.Text >= 60 Then
            NILHURUF.Text = "D"
        Else
            NILHURUF.Text = "E"
        End If

    End Sub

    Private Sub BTNSIMPAN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNSIMPAN.Click
        IsiTabel()
    End Sub

    Private Sub BTNHAPUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNHAPUS.Click
        LV.Items.Clear()
    End Sub

    Private Sub BTNBERSIH_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNBERSIH.Click
        NPM.Text = ""
        NAMA.Text = ""
        JENJANG.Text = ""
        JURUSAN.Text = ""
        THNMASUK.Text = ""
        NILANGKA.Text = ""
        NILHURUF.Text = ""
    End Sub

    Private Sub BTNDATA_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNDATA.Click
        LV.Items.Remove(LV.SelectedItems(0))
    End Sub

    Private Sub BTNKELUAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNKELUAR.Click
        End
    End Sub
End Class

HASIL...........