Belajar Visual Basic

Pertama design lah form seperti di bawah ini :

Kemudian ketik listing program dibawah ini :

Public Class Form1

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

        nik.Items.Add("PM011")

        nik.Items.Add("PM010")

        nik.Items.Add("PS111")

        nik.Items.Add("KU101")

        nik.Items.Add("GD100")

        jabatan.Items.Add("Kepala Devisi")

        jabatan.Items.Add("Staff")

        jabatan.Items.Add("Wakil Kepala")

        status.Items.Add("Menikah")

        status.Items.Add("Belum Menikah")

    End Sub

    Private Sub nik_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nik.SelectedIndexChanged

        Select Case nik.Text

            Case "PM011"

                nama.Text = "Sari sartika"

            Case "PS111"

                nama.Text = "Monalisa"

            Case "KU101"

                nama.Text = "Eka pramadani"

            Case "GD100"

                nama.Text = "Cici dian lestari"

            Case Else

                nama.Text = "Nuri Monika"

        End Select

        Dim j As String

        j = Microsoft.VisualBasic.Left(nik.Text, 2)

        If j = "PM" Then

            bagian.Text = "Pemasaran"

        ElseIf j = "PS" Then

            bagian.Text = "Personalia"

        ElseIf j = "KU" Then

            bagian.Text = "Keuangan"

        ElseIf j = "GD" Then

            bagian.Text = "Gudang"

        End If

    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"

                t_keluarga.Text = 0.15 * g_pokok.Text

            Case "Belum Menikah"

                t_keluarga.Text = 0 * g_pokok.Text

        End Select

    End Sub

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

        nik.Text = ""

        nama.Text = ""

        bagian.Text = ""

        jabatan.Text = ""

        g_pokok.Text = ""

        pajak.Text = ""

        status.Text = ""

        j_anak.Text = ""

        t_keluarga.Text = ""

        t_anak.Text = ""

        t_gaji.Text = ""

    End Sub

    Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click

        Dim tanya As String

        tanya = MsgBox("Apakah Anda Yakin Mau Keluar", MsgBoxStyle.Question + MsgBoxStyle.YesNo)

        If tanya = vbYes Then

            Me.Close()

        Else

            Exit Sub

        End If

    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 Devisi"

                g_pokok.Text = "5000000"

                pajak.Text = 0.1 * g_pokok.Text

            Case "Staff"

                g_pokok.Text = "2000000"

                pajak.Text = 0.1 * g_pokok.Text

            Case "Wakil Kepala"

                g_pokok.Text = "3500000"

                pajak.Text = 0.1 * g_pokok.Text

        End Select

    End Sub

    Private Sub j_anak_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles j_anak.TextChanged

        If j_anak.Text = "1" Then

            t_anak.Text = 0.05 * g_pokok.Text

        ElseIf j_anak.Text = "2" Then

            t_anak.Text = 0.1 * g_pokok.Text

        Else

            t_anak.Text = 0

        End If

        t_gaji.Text = Val(g_pokok.Text) + Val(t_keluarga.Text) + Val(t_anak.Text) - Val(pajak.Text)

    End Sub

End Class


Niii dia hasil nya selamat mencoba , Semoga bermanfaat :