Selasa, 20 Maret 2012

KATA NASEHAT PENYEJUK HATI.

1. Jangan tertarik kepada seseorang karena parasnya, sebab keelokan paras dapat menyesatkan. Jangan pula tertarik kepada kekayaannya, karena kekayaan dapat musnah. Tertariklah kepada seseorang yang dapat membuatmu tersenyum, karena hanya senyum yang dapat membuat hari-hari yang gelap menjadi cerah. Semoga kamu menemukan orang seperti itu.


2. Ada saat-saat dalam hidup ketika kamu sangat merindukan seseorang, sehingga ingin hati menjemputnya dari alam mimpi dan memeluknya dalam alam nyata. Semoga kamu memimpikan orang seperti itu.

3. Bermimpilah tentang apa yang ingin kamu impikan, pergilah ke tempat-tempat kamu ingin pergi, jadilah seperti yang kamu inginkan, karena kamu hanya memiliki satu kehidupan dan satu kesempatan untuk melakukan hal-hal yang ingin kamu lakukan.

4. Semoga kamu mendapatkan kebahagiaan yang cukup untuk membuatmu baik hati, cobaan yang cukup untuk membuatmu kuat, kesedihan yang cukup untuk membuatmu manusiawi, pengharapan yang cukup untuk membuatmu bahagia dan uang yang cukup untuk membeli hadiah-hadiah.

5. Ketika satu pintu kebahagiaan tertutup, pintu yang lain dibukakan. Tetapi acapkali kita terpaku terlalu lama pada pintu yang tertutup sehingga tidak melihat pintu lain yang dibukakan bagi kita.

6. Sahabat terbaik adalah dia yang dapat duduk berayun-ayun di beranda bersamamu, tanpa mengucapkan sepatah katapun, dan kemudian kamu meninggalkannya dengan perasaan telah bercakap-cakap lama dengannya.

7. Sungguh benar bahwa kita tidak tahu apa yang kita milik sampai kita kehilangannya, tetapi sungguh benar pula bahwa kita tidak tahu apa yang belum pernah kita miliki sampai kita mendapatkannya.

8. Pandanglah segala sesuatu dari kacamata orang lain. Apabila hal itu menyakitkan hatimu, sangat mungkin hal itu menyakitkan hati orang itu pula.

9. Kata-kata yang diucapkan sembarangan dapat menyulut perselisihan. Kata-kata yang kejam dapat menghancurkan suatu kehidupan. Kata-kata yang diucapkan pada tempatnya dapat meredakan ketegangan. Kata-kata yang penuh cinta dapat menyembuhkan dan memberkahi.

10. Awal dari cinta adalah membiarkan orang yang kita cinta menjadi dirinya sendiri, dan tidak merubahnya menjadi gambaran yang kita inginkan. Jika tidak, kita hanya mencintai pantulan diri sendiri yang kita temukan di dalam dia.

11. Orang-orang yang paling berbahagia tidak selalu memiliki hal-hal terbaik, mereka hanya berusaha menjadikan yang terbaik dari setiap hal yang hadir dalam hidupnya.

12. Mungkin Tuhan menginginkan kita bertemu dengan beberapa orang yang salah sebelum bertemu dengan orang yang tepat, kita harus mengerti bagaimana berterima kasih atas karunia itu.

13. Hanya diperlukan waktu semenit untuk menaksir seseorang, sejam untuk menyukai seseorang dan sehari untuk mencintai seseorang tetapi diperlukan waktu seumur hidup untuk melupakan seseorang.

14. Kebahagiaan tersedia bagi mereka yang menangis, mereka yang disakiti hatinya, mereka yang mencari dan mereka yang mencoba. Karena hanya mereka itulah yang menghargai pentingnya orang-orang yang pernah hadir dalam hidup mereka.

15. Cinta adalah jika kamu kehilangan rasa, gairah, romantika dan masih tetap peduli padanya.

16. Hal yang menyedihkan dalam hidup adalah ketika kamu bertemu seseorang yang sangat berarti bagimu dan mendapati pada akhirnya bahwa tidak demikian adanya dan kamu harus melepaskannya.

17. Cinta dimulai dengan sebuah senyuman, bertumbuh dengan sebuah ciuman dan berakhir dengan tetesan air mata.

18. Cinta datang kepada mereka yang masih berharap sekalipun pernah dikecewakan, kepada mereka yang masih percaya sekalipun pernah dikhianati, kepada mereka yang masih mencintai sekalipun pernah disakiti hatinya.

19. Sungguh menyakitkan mencintai seseorang yang tidak mencintaimu, tetapi yang lebih menyakitkan adalah mencintai seseorang dan tidak pernah memiliki keberanian untuk mengutarakan cintamu kepadanya.

20. Masa depan yang cerah selalu tergantung kepada masa lalu yang dilupakan, kamu tidak dapat hidup terus dengan baik jika kamu tidak melupakan kegagalan dan sakit hati di masa lalu.

21. Jangan pernah mengucapkan selamat tinggal jika kamu masih mau mencoba, jangan pernah menyerah jika kamu masih merasa sanggup jangan pernah mengatakan kamu tidak mencintainya lagi jika kamu masih tidak dapat melupakannya.

22. Memberikan seluruh cintamu kepada seseorang bukanlah jaminan dia akan membalas cintamu! Jangan mengharapkan balasan cinta, tunggulah sampai cinta berkembang di hatinya, tetapi jika tidak, berbahagialah karena cinta tumbuh di hatimu.

23. Ada hal-hal yang sangat ingin kamu dengar tetapi tidak akan pernah kamu dengar dari orang yang kamu harapkan untuk mengatakannya. Namun demikian janganlah menulikan telinga untuk mendengar dari orang yang mengatakannya dengan sepenuh hati.

24. Waktu kamu lahir, kamu menangis dan orang-orang di sekelilingmu tersenyum – jalanilah hidupmu sehingga pada waktu kamu meninggal, kamu tersenyum dan orang-orang di sekelilingmu menangis.

Rabu, 29 Februari 2012

Cara Mengganti Nama Facebook

Kita sering kali mengganti nama sesuai keinginan kita sehingga mencapai batas yang ditentukan Facebook dan ketika batas yang ditentukan tercapai, maka saat kita mengganti nama akan muncul pesan seperti di bawah ini :
“Batas Perubahan Nama Tercapai”
Maaf anda telah beberapa kali mengubah nama melebihi jumlah yang diperbolehkan dan nama anda tidak dapat diubah lagi. Untuk mencantumkan nama lain yang anda miliki, seperti nama gadis Anda, silahkan gunakan ruas Nama Alternatif di bawah.
Lalu bagaimana caranya agar kita bisa ganti nama???
Langkah-langkah:
  1. Ubah dulu nama di pengaturan akun (nama-nama yang pernah kita pakai dulu) pilih salah satu.
  2. klik http://www.facebook.com/hacked/ atau http://www.facebook.com/roadblock/roadblock_me.php?r=5
  3. Klik amankan akun
  4. masukkan kata sandi baru
  5. ceklis konfirmasi penggantian
  6. klik lanjutkan
  7. tinjau informasi Akun Anda
  8. Ubah nama anda
  9. klik lanjutkan
  10. aktifkan akun
Silahkan ganti nickname akun fb kamu yang baru. Untuk mengganti nama sepuasnya kamu tinggal ulangi langkah di atas.

Minggu, 29 Januari 2012

quiz3

    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("KABAG")
        JABATAN.Items.Add("STAFF")
        STATUS.Items.Add("MENIKAH")
        STATUS.Items.Add("TIDAK MENIKAH")
    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("JUMLAH ANAK", 80, HorizontalAlignment.Left)
            .Columns.Add("TUNJANGAN ANAK", 120, HorizontalAlignment.Left)
            .Columns.Add("JAM", 80, HorizontalAlignment.Left)
            .Columns.Add("LEMBUR", 110, HorizontalAlignment.Left)
            .Columns.Add("TUNJANGAN 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
        If JABATAN.Text = "MANDOR" Then
            GAJI.Text = 175000
        ElseIf JABATAN.Text = "KABAG" Then
            GAJI.Text = 2500000
        ElseIf JABATAN.Text = "STAFF" Then
            GAJI.Text = 1250000
        Else
            GAJI.Text = " "
        End If
    End Sub

    Private Sub STATUS_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles STATUS.SelectedIndexChanged
        If STATUS.Text = "MENIKAH" Then
            TUNJANGANISTRI.Text = 9 * GAJI.Text / 100
            PAJAK.Text = 1.5 * GAJI.Text / 100
        ElseIf STATUS.Text = "TIDAK MENIKAH" Then
            TUNJANGANANAK.Text = 0
            TUNJANGANISTRI.Text = 0
            PAJAK.Text = 1.5 * GAJI.Text / 100
        Else
            STATUS.Text = " "
        End If
    End Sub
  
    Private Sub JAM_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JAM.TextChanged
        If JABATAN.Text = "MANDOR" Then
            LEMBUR.Text = Val(JAM.Text) * 7500
        ElseIf JABATAN.Text = "KABAG" Then
            LEMBUR.Text = Val(JAM.Text) * 10000
        ElseIf JABATAN.Text = "STAFF" Then
            LEMBUR.Text = Val(JAM.Text) * 5000
        End If
    End Sub

    Private Sub JLANAK_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JLHANAK.TextChanged
        If Val(JLHANAK.Text) = 1 Then
            TUNJANGANANAK.Text = 3 * GAJI.Text / 100
        ElseIf Val(JLHANAK.Text) >= 2 Then
            TUNJANGANANAK.Text = 7 * GAJI.Text / 100
        End If
    End Sub
    Sub PROSES( )
        TTLGAJI.Text = Val(GAJI.Text) + Val(TUNJANGANISTRI.Text) + Val(TUNJANGANANAK.Text) + Val(LEMBUR.Text) - Val(PAJAK.Text)
    End Sub
    Private Sub BTNTOTAL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNTOTAL.Click
        Call PROSES( )
    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

quiz2

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        BuatTabel()
        kodbrg.Items.Add("TS001")
        kodbrg.Items.Add("TS002")
        kodbrg.Items.Add("VG001")
        kodbrg.Items.Add("VG002")
    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 = pembelian.Text()
            .SubItems.Add(kodbrg.Text)
            .SubItems.Add(nmbrg.Text)
            .SubItems.Add(merk.Text)
            .SubItems.Add(harga.Text)
            .SubItems.Add(jlhbeli.Text)
            .SubItems.Add(ttlhrg.Text)
            LV.Items.Add(Lst)
        End With
    End Sub

    Private Sub kodbrg_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kodbrg.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Left(kodbrg.Text, 2)
        Select Case x
            Case "TS" : merk.Text = "Toshiba"
            Case "VG" : merk.Text = "V-Gen"
        End Select
        x = Microsoft.VisualBasic.Right(kodbrg.Text, 3)
        Select Case x
            Case "001" : nmbrg.Text = "Flashdisk 4GB"
            Case "002" : nmbrg.Text = "Flashdisk 2GB"
        End Select
        If kodbrg.Text = "TS001" Then
            harga.Text = 105000
        ElseIf kodbrg.Text = "TS002" Then
            harga.Text = 75000
        End If
        If kodbrg.Text = "VG001" Then
            harga.Text = 90000
        ElseIf kodbrg.Text = "VG002" Then
            harga.Text = 60000
        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 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
        pembelian.Text = ""
        kodbrg.Text = ""
        nmbrg.Text = ""
        merk.Text = ""
        harga.Text = ""
        jlhbeli.Text = ""
        ttlhrg.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 jlhbeli.TextChanged
        ttlhrg.Text = Val(jlhbeli.Text) * Val(harga.Text)
    End Sub
End Class



Kamis, 19 Januari 2012

FORM LOGIN


Public Class Form1

    Private Sub BtnOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOk.Click
        If Username.Text = "Dian" And passwordchar.Text = "111" Then
            Menuutama.Show()
            Me.Hide()
        Else
            MsgBox("Maaf Username/Password salah!")
            Username.Text = ""
            passwordchar.Text = ""
        End If
    End Sub
End Class


Public Class Menuutama

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

    Private Sub DataPegawaiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataPegawaiToolStripMenuItem.Click
        Pegawai.Show()
    End Sub
End Class

Rabu, 18 Januari 2012

VB (Listview)


Listing Program


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(JNJNG.Text)
            .SubItems.Add(JRSN.Text)
            .SubItems.Add(THNMSK.Text)
            .SubItems.Add(ANGKA.Text)
            .SubItems.Add(HURUF.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
                JNJNG.Text = "D3"
                JRSN.Text = "Manajemen Informatika"
            End If
        ElseIf X = "1" Then
            JNJNG.Text = "S1"
            If Y = "1" Then
                JRSN.Text = "Tek.Informatika"
            ElseIf Y = "2" Then
                JRSN.Text = "Sis.Informasi"
            End If

        End If
    End Sub

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

    End Sub

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

    End Sub

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

    Private Sub BTNHPS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNHPS.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 BTNBRSH_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNBRSH.Click
        NPM.Text = ""
        NAMA.Text = ""
        JNJNG.Text = ""
        JRSN.Text = ""
        THNMSK.Text = ""
        ANGKA.Text = ""
        HURUF.Text = ""

    End Sub
End Class