TUGAS PEMROGRAMAN VISUAL BASIC

http://yustinuszai.blogspot.com/2013/05/tugas-pemrograman-visual-basic_19.html

KELAS TIM-1112

NAMA      : YUSTINUS ZAI

NPM          : 1111185

TUGAS PEMROGRAMAN VISUAL BASIC

DESIG FOR

PROGRAM :

Public Class Form1

    Sub buattabel()

        LV.Columns.Add("NPM", 80, HorizontalAlignment.Center)

        LV.Columns.Add("NAMA", 180, HorizontalAlignment.Left)

        LV.View = View.Details

        LV.GridLines = True

        LV.FullRowSelect = True

    End Sub

    Sub isitabel()

        Dim Lst As New ListViewItem

        Lst.Text = NPM.Text

        Lst.SubItems.Add(NAMA.Text)

        LV.Items.Add(Lst)

    End Sub

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

        NIK.Items.Add("001")

        NIK.Items.Add("002")

        NIK.Items.Add("003")

        JABATAN.Items.Add("MANDOR")

        JABATAN.Items.Add("KEPALA BAGIAN")

        JABATAN.Items.Add("STAF")

        STATUS.Items.Add("MENIKAH")

        STATUS.Items.Add("TIDAK MENIKAH")

        For I = 1 To 4

            JUMLAHANAK.Items.Add(I)

        Next I

        For i = 1 To 10

            JAMLEMBUR.Items.Add(i)

        Next i

        buattabel()

    End Sub

    Private Sub STATUS_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles STATUS.SelectedIndexChanged

        Select Case STATUS.Text

            Case "MENIKAH" : TUNJANGANISTRI.Text = 0.09 * GAJI.Text

            Case "TIDAK MENIKAH" : TUNJANGANISTRI.Text = 0

        End Select

    End Sub

    Private Sub JUMLAHANAK_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JUMLAHANAK.SelectedIndexChanged

        If JUMLAHANAK.Text >= 2 And STATUS.Text = "MENIKAH" Then

            TUNJANGANANAK.Text = 0.07 * GAJI.Text

        ElseIf JUMLAHANAK.Text = 1 And STATUS.Text = "TIDAK MENIKAH" Then

            TUNJANGANANAK.Text = 0.03 * GAJI.Text

        Else

            TUNJANGANANAK.Text = 0

        End If

    End Sub

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

        NIK.Text = ""

        NPM.Text = ""

        NAMA.Text = ""

        JABATAN.Text = ""

        GAJI.Text = ""

        STATUS.Text = ""

        TUNJANGANISTRI.Text = ""

        TUNJANGANANAK.Text = ""

        JUMLAHANAK.Text = ""

        JAMLEMBUR.Text = ""

        HONORLEMBUR.Text = ""

        PAJAK.Text = ""

        TOTAL.Text = ""

        LV.Text = ""

    End Sub

    Private Sub BTNPROSES_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNPROSES.Click

        If JABATAN.Text = "MANDOR" Then

            HONORLEMBUR.Text = 7500

        ElseIf JABATAN.Text = "KEPALA BAGIAN" Then

            HONORLEMBUR.Text = 10000

        ElseIf JABATAN.Text = "STAF" Then

            HONORLEMBUR.Text = 5000

        Else

            HONORLEMBUR.Text = 0

           

        End If

        TOTAL.Text = Val(JAMLEMBUR.Text) + Val(GAJI.Text) + Val(TUNJANGANISTRI.Text) + Val(TUNJANGANANAK.Text) - Val(PAJAK.Text)

        isitabel()

        NPM.Text = ""

        NAMA.Text = ""

       

    End Sub

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

        Select Case JABATAN.Text

            Case "MANDOR" : GAJI.Text = 1750000

            Case "KEPALA BAGIAN" : GAJI.Text = 2500000

            Case "STAF" : GAJI.Text = 1250000

        End Select

        PAJAK.Text = 0.015 * GAJI.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 JAMLEMBUR_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JAMLEMBUR.SelectedIndexChanged

    End Sub

End Class

HASIL PROGRAM