ListView Pembayaran Gaji

Public Class Form1

    Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GajiBersih.TextChanged

    End Sub

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

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapus.Click
        LV.Items.Clear()

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        LV.Columns.Add("NIK", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Nama", 80, HorizontalAlignment.Center)
        LV.Columns.Add("GOL", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Gaji Pokok", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Pajak", 80, HorizontalAlignment.Center)
        LV.Columns.Add("Gaji Bersih", 80, HorizontalAlignment.Center)

        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True

        NIK.Items.Add("1")
        NIK.Items.Add("2")
        NIK.Items.Add("3")

        GOL.Items.Add("1")
        GOL.Items.Add("2")
        GOL.Items.Add("3")


    End Sub

    Private Sub NIK_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NIK.SelectedIndexChanged
        Select Case NIK.Text
            Case "1"
                NamaPegawai.Text = "hendro"
            Case "2"
                NamaPegawai.Text = "Dian"
            Case "3"
                NamaPegawai.Text = "Jhoni"
        End Select
    End Sub

    Private Sub GOL_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GOL.SelectedIndexChanged
        Select Case GOL.Text
            Case "1"
                GajiPokok.Text = 1500000
            Case "2"
                GajiPokok.Text = 2500000
            Case "3"
                GajiPokok.Text = 3500000

        End Select
    End Sub

    Private Sub Proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Proses.Click
        Pajak.Text = 0.05 * GajiPokok.Text
        GajiBersih.Text = Val(GajiPokok.Text)
        Val(Pajak.Text)

        Dim lst As New ListViewItem
        lst.Text = NIK.Text
        lst.SubItems.Add(NamaPegawai.Text)
        lst.SubItems.Add(GOL.Text)
        lst.SubItems.Add(GajiPokok.Text)
        lst.SubItems.Add(Pajak.Text)
        lst.SubItems.Add(GajiBersih.Text)
        LV.Items.Add(lst)
    End Sub

    Private Sub Batal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Batal.Click
        NIK.Text = ""
        NamaPegawai.Text = ""
        GOL.Text = ""
        GajiPokok.Text = ""
        GajiBersih.Text = ""
        Pajak.Text = ""


    End Sub
End Class

Cerita Nabi Muhammad SAW - Mukjizat Air Memancar Dari Jarinya

Nabi muhammad merupakan nabi yang terakhir, setiap nabi Oleh Allah dianugrai dengan mukjizat yang unik. Nabi Muhammad pun juga dianugrahi mujizat oleh Allah SWT. Nah pada cerita nabi muhammad ini akan diceritakan mengenai salah satu mukjizat nabi muhammad. Selamat membaca.

Ketika waktu untuk shalat subuh tiba, Rasulullah akan berwudhu. Tapi, sama sekali tak ada air, padahal, yang akan berwuhdu cukup banyak.  Para sahabat hendak sholat berjamaah bersama Rasululloh. Tentunya air banyak sangat diperlukan untuk berwudhu.

Kisah Nabi Nuh yang penyabar

Kisah Nabi Nuh adalah  ia merupakan salah satu nabi Allah yang memiliki kesabaran di atas rata-rata. Kaum nabi Nuh selalu melakukan tipu daya untuk menghancurkan nabi Nuh dan keluarganya, namun mereka semua tidak berhasil. Sementara itu nabi Nuh terus bersabar. Hingga akhirnya kaum nabi Nuh dianggap sudah berlaku keterlaluan oleh Allah. Bahkan mereka menantang turunnya adzab Allah kepada mereka.

Cerita Ali bin Abi Thalib – Kisah Sahabat Rasulullah yang mencintai ukhuwwah islamiyah

Sepengal kisah yang mengulas tentang cerita Ali bin Abi Thalib, saudara, menantu dan sekaligu sahabat Rasulullah shalallahu ‘alaihi wasallam. Beliau adalah khalifah keempat, dimana beliau ini adalah orang yang paling mencintai ukhuwwah islamiyah. Cerita ini bermula saat beliau baru saja memegang tampuk pemerintahan. Beberapa tokoh sahabat melakukan pemberontakan. Ada beberapa pemimpin Muhajirin yang meminta ijin melakukan umrah, namun ternyata mereka bergabung dengan pasukan pembangkang.

Cerita Ali bin Abi Thalib

Menurut hukum Islam, pembangkang haruslah diperangi. Namun Ali bin Abi Thalib lebih memilih pendekatan persuasif.

Cerita Nabi Musa dan Wanita pezina ingin bertaubat

Sebuah cerita islami tentang Cerita Nabi Musa dan wanita pezina, Kala itu adalah masa yang lenggang. Ia berpakaian hitam, tanda sebuah duka cita yang mendalam. Ia berkerudung rapat menutupi seluruh tubuhnya. Meskipun roman mukanya cantik namun kesedihan tidak dapat tersembunyi di baliknya. Ia melangkah dengan terhuyung-huyung ke kediaman nabi Musa. Diketuknya pintu tersebut pelan-pelan sambil mengucapkan salam. Dari dalam terdapat sambutan dan ucapan mempersilahkan masuk.

Perempuan muda nan cantik itu berjalan masuk sambil kepalanya terus menunduk. Air matanya langsung terurai tatkala ia membuka percakapan.