"bahasa Pemogramman"

LANGKAH PERTAMA “ Membuat data yang ada di ComboBox”

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

        jabatan.Items.Add("KEPALA DIVISI")

        jabatan.Items.Add("STAFF")

        jabatan.Items.Add("WAKIL KEPALA")

        status.Items.Add("menikah")

        status.Items.Add("belum menikah")

        ja.Items.Add("0")

        ja.Items.Add("1")

        ja.Items.Add("2")

    End Sub

LANGKAH KE DUA “ Membuat perintah data diri “

    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 = "Reza Pahlevi"

            Case "PS111"

                nama.Text = "Bryan"

            Case "KU101"

                nama.Text = "Oblak"

            Case "GD100"

                nama.Text = "Samsul"

        End Select

        Dim z As String

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

        If z = "PM" Then

            bagian.Text = "Pemasaran"

        ElseIf z = "PS" Then

            bagian.Text = "Personalia"

        ElseIf z = "KU" Then

            bagian.Text = "Keuangan"

        ElseIf z = "GD" Then

            bagian.Text = "Gudang"

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

                gp.Text = "5000000"

            Case "Staff"

                gp.Text = "2000000"

            Case Else

                gp.Text = "3500000"

        End Select

        pajak.Text = gp.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"

                tk.Text = gp.Text * 0.05

            Case "belum menikah"

                ja.Text = ""

                tk.Text = 0

        End Select

    End Sub

Private Sub ja_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ja.SelectedIndexChanged

        Select Case "ja.text"

            Case "0"

                ta.Text = 0

            Case "1"

                ta.Text = gp.Text * 0.05

            Case "2"

                ta.Text = gp.Text * 0.1

            Case Else

                ta.Text = gp.Text * 0.5

        End Select

    End Sub

LANGKAH KE TIGA “ Membuat  rumus yang telah di tentukan”

Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click

        tg.Text = (gp.Text) + Val(ta.Text) + Val(tk.Text) - pajak.Text

        tg.Enabled = False

    End Sub

End Class

LANGKAH KE EMPAT “ Membuat perintah penghapusan data”

   

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

        nik.Text = ""

        nama.Text = ""

        jabatan.Text = ""

        tg.Text = ""

        ja.Text = ""

        gp.Text = ""

        pajak.Text = ""

        status.Text = ""

        ta.Text = ""

        bagian.Text = ""

        ta.Text = ""

    End Sub

LANGKAH KE LIMA “ Membuat perintah keluar dari pemrosesan”

    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 ingin keluar?", MsgBoxStyle.YesNo)

        If tanya = vbCancel Then

            Me.Close()

        ElseIf tanya = vbNo Then

            Me.Focus()

        ElseIf tanya = vbYes Then

            Me.Close()

        End If

    End Sub

  mesran.blogspot.com