belajar visual basic part II

 Public Class Form1

    Private Sub Npm_SelecteedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Npm.SelectedIndexChanged

        Select Case Npm.Text

            Case "11120544"

                Nama.Text = "taufik"

            Case "16120545"

                Nama.Text = "arifin fitri yasa "

            Case "10120546"

                Nama.Text = "arofan fitri yana"

            Case Else

                Nama.Text = "_"

        End Select

        Dim i As String

        i = Microsoft.VisualBasic.Left(Npm.Text, 2)

        If i = "11" Then

            Jurusan.Text = "Sistem Informasi"

            Jenjang.Text = "SI"

        ElseIf i = "16" Then

            Jurusan.Text = "Teknik Informatika"

            Jenjang.Text = "D3"

        ElseIf i = "10" Then

            Jurusan.Text = "Komputer Akuntansi"

            Jenjang.Text = "D1"

        End If

    End Sub

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

        Npm.Items.Add("12110128")

        Npm.Items.Add("12110346")

        Npm.Items.Add("12110347")

        KoDO.Items.Add("11122")

        KoDO.Items.Add("11123")

        KoDO.Items.Add("11124")

        Dim i As Integer

        For i = 40 To 100

            Nk.Items.Add(i)

            NUS.Items.Add(i)

            Nt.Items.Add(i)

            Nu.Items.Add(i)

        Next i

    End Sub

    Private Sub KoDo_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KoDO.SelectedIndexChanged

        Select Case KoDO.Text

            Case ("11122")

                NaDo.Text = ("Mesran,SKom")

            Case ("11123")

                NaDo.Text = ("Sinar Sinurat")

            Case ("11124")

                NaDo.Text = ("Kristian Siregar")

            Case Else

                Nama.Text = "_"

        End Select

        Dim i As String

        i = Microsoft.VisualBasic.Right(KoDO.Text, 3)

        If i = "122" Then

            Koma.Text = "001"

            Matakuliah.Text = "Pemograman"

        ElseIf i = "123" Then

            Koma.Text = "002"

            Matakuliah.Text = "stuktur data"

        ElseIf i = "123" Then

            Koma.Text = "003"

            Matakuliah.Text = "HTML"

        End If

    End Sub

    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click

        End

    End Sub

    Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click

        Npm.Text = ""

        Nama.Text = ""

        Jenjang.Text = ""

        Jurusan.Text = ""

        KoDO.Text = ""

        NaDo.Text = ""

        Koma.Text = ""

        Matakuliah.Text = ""

        Nk.Text = ""

        Nt.Text = ""

        NUS.Text = ""

        Nu.Text = ""

        Ket.Text = ""

        NH.Text = ""

        NA.Text = ""

    End Sub

    Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click

        NA.Text = 0.01 * Nk.Text + 0.15 * Nt.Text + 0.3 * Nu.Text + 0.45 * NUS.Text

        If NA.Text <= 50 Then

            Ket.Text = "GagaL"

            NH.Text = "E"

        ElseIf NA.Text <= 60 Then

            Ket.Text = "Gagal"

            NH.Text = "D"

        ElseIf NA.Text <= 70 Then

            Ket.Text = "Lulus"

            NH.Text = "B"

        ElseIf NA.Text >= 70 Then

            Ket.Text = "Lulus"

            NH.Text = "B+"

        ElseIf NA.Text >= 80 Then

            Ket.Text = "Lulus"

            NH.Text = "A"

        End If

    End Sub

End Class

belajar pemograman visual basic

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        nik.Items.Add("PM010")
        nik.Items.Add("PS111")
        nik.Items.Add("KU101")
        nik.Items.Add("GD100")
        nik.Items.Add("PM0011")

        jabatan.Items.Add("KEPALA DIVISI")
        jabatan.Items.Add("STAFF")
        jabatan.Items.Add("WAKIL KEPALA")

        status.Items.Add("Menikah")
        status.Items.Add("Tidak Menikah")

        jumlaha.Items.Add("0")
        jumlaha.Items.Add("1")
        jumlaha.Items.Add("2")

        Call buattabel()
    End Sub

    Private Sub nik_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nik.SelectedIndexChanged
        Select Case nik.Text
            Case "PM010"
                nama.Text = "arifin fitri yasa"
            Case "PS111"
                nama.Text = "doni arman"
            Case "KU101"
                nama.Text = "saya sendiri"
            Case "GD100"
                nama.Text = "ftannn"
            Case Else
                nama.Text = "grolll"
        End Select

        Dim a As String
        a = Microsoft.VisualBasic.Left(nik.Text, 2)
        If a = "PM" Then
            bagian.Text = "pemasaran"
        ElseIf a = "PS" Then
            bagian.Text = "personalia"
        ElseIf a = "KU" Then
            bagian.Text = "keuangan"
        ElseIf a = "GD" Then
            bagian.Text = "gudang"
        ElseIf a = "PM" Then
            bagian.Text = "pemotongan"
        End If
    End Sub

    Sub isitabel()
        Dim isi As New ListViewItem
        isi.Text = (nik.Text)
        isi.SubItems.Add(nama.Text)
        isi.SubItems.Add(bagian.Text)
        isi.SubItems.Add(jabatan.Text)
        isi.SubItems.Add(gajip.Text)
        isi.SubItems.Add(pajak.Text)
        isi.SubItems.Add(status.Text)
        isi.SubItems.Add(tunjangank.Text)
        isi.SubItems.Add(jumlaha.Text)
        isi.SubItems.Add(tunjangana.Text)
        isi.SubItems.Add(totalg.Text)
        ListView1.Items.Add(isi)


    End Sub

    Sub buattabel()
        ListView1.Columns.Add("NIK", 75, HorizontalAlignment.Center)
        ListView1.Columns.Add("Nama", 75, HorizontalAlignment.Center)
        ListView1.Columns.Add("Bagian", 75, HorizontalAlignment.Center)
        ListView1.Columns.Add("Jabatan", 75, HorizontalAlignment.Center)
        ListView1.Columns.Add("Gaji Pokok", 75, HorizontalAlignment.Center)
        ListView1.Columns.Add("Pajak", 75, HorizontalAlignment.Center)
        ListView1.Columns.Add("Status", 75, HorizontalAlignment.Center)
        ListView1.Columns.Add("Tunjangan Keluarga", 85, HorizontalAlignment.Center)
        ListView1.Columns.Add("Jumlah Anak", 75, HorizontalAlignment.Center)
        ListView1.Columns.Add("Tunjangan Anak", 85, HorizontalAlignment.Center)
        ListView1.Columns.Add("Total Gaji", 75, HorizontalAlignment.Center)
        ListView1.View = View.Details
        ListView1.GridLines = True
        ListView1.FullRowSelect = True

    End Sub

    Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged
        Select Case jabatan.Text
            Case "KEPALA DIVISI"
                gajip.Text = "2500000"
            Case "STAFF"
                gajip.Text = "1500000"
            Case Else
                gajip.Text = "1000000"
        End Select
        pajak.Text = gajip.Text * 0.1

    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"
                tunjangank.Text = gajip.Text * 0.15
            Case "Tidak Menikah"
                jumlaha.Text = ""
                tunjangank.Text = 0
        End Select

    End Sub

    Private Sub jumlaha_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jumlaha.KeyPress
        If Asc(e.KeyChar) = 13 Then
            Select Case jumlaha.Text
                Case "0"
                    tunjangana.Text = 0
                Case "1"
                    tunjangana.Text = gajip.Text * 0.05
                Case "2"
                    tunjangana.Text = gajip.Text * 0.1
                Case Else
                    tunjangana.Text = gajip.Text * 0.5
            End Select
        End If
        totalg.Text = Val(gajip.Text) + Val(tunjangana.Text) + Val(tunjangank.Text) - Val(pajak.Text)
        totalg.Enabled = False
    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click
        nama.Text = ""
        nik.Text = ""
        bagian.Text = ""
        jabatan.Text = ""
        tunjangana.Text = ""
        tunjangank.Text = ""
        pajak.Text = ""
        status.Text = ""
        gajip.Text = ""
        totalg.Text = ""
        jumlaha.Text = ""

    End Sub

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

   
    Private Sub listview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles listview.Click
        Call isitabel()
    End Sub
End Class