"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

"Bahasa Pemogramman"

LANGKAH PERTAMA “ Membuat data yang berisi di ComboBox”

Public Class Form1

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

        npm.Items.Add("12110000")

        npm.Items.Add("12110001")

        npm.Items.Add("12110002")

      

        kd.Items.Add("111")

        kd.Items.Add("222")

        kd.Items.Add("333")

      

        km.Items.Add("1212")

        km.Items.Add("1313")

        km.Items.Add("1414")

      

        Dim z As Integer

        For z = 1 To 100

            kehadiran.Items.Add(z)

            tugas.Items.Add(z)

            uts.Items.Add(z)

            uas.Items.Add(z)

        Next

    End Sub

LANGKAH KE DUA “ Membuat perintah data diri “

     

Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged

        Select Case npm.Text

            Case "12110000"

                nama.Text = "Reza Pahlevi"

                jenjang.Text = "S1"

                jurusan.Text = "Teknik Informatika"

            Case "12110001"

                nama.Text = "David"

                jenjang.Text = "S1"

                jurusan.Text = "Sistem Informasi"

            Case "12110002"

                nama.Text = "Ramos"

                jenjang.Text = "S1"

                jurusan.Text = "Teknik Informatika"

        End Select

    End Sub

    Private Sub kd_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kd.SelectedIndexChanged

        Select Case kd.Text

            Case "111"

                nd.Text = "Mesran"

            Case "222"

                nd.Text = "Pilipus Tarigan"

            Case "333"

                nd.Text = "soni Bahagia"

        End Select

    End Sub

    Private Sub km_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles km.SelectedIndexChanged

        Select Case km.Text

            Case "1212"

                mk.Text = "Pemogramman Visual"

            Case "1313"

                mk.Text = "Arsitektur"

            Case "1414"

                mk.Text = "Komunikasi data"

        End Select

    End Sub

LANGKAH KE TIGA “ Membuat rumus atau perintah yang sudah di tentukan”

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

        na.Text = 0.1 * kehadiran.Text + 0.15 * tugas.Text + 0.4 * uts.Text + 0.6 * uas.Text

        If na.Text >= 80 Then

            nh.Text = "A"

            ket.Text = "lulus"

        ElseIf na.Text >= 70 Then

            nh.Text = "B"

            ket.Text = "lulus"

        ElseIf na.Text >= 60 Then

            nh.Text = "C+"

            ket.Text = "lulus"

        ElseIf na.Text >= 50 Then

            nh.Text = "C"

            ket.Text = "Perbaikan Nilai"

        ElseIf na.Text >= 40 Then

            nh.Text = "D"

            ket.Text = "Mengulang"

        Else

            nh.Text = "E"

            ket.Text = "Tidak Lengkap"

        End If

    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

        npm.Text = ""

        nama.Text = ""

        jenjang.Text = ""

        jurusan.Text = ""

        kd.Text = ""

        nd.Text = ""

        km.Text = ""

        mk.Text = ""

        kehadiran.Text = ""

        uts.Text = ""

        uas.Text = ""

        na.Text = ""

        nh.Text = ""

        ket.Text = ""

        tugas.Text = ""

    End Sub

LANGKAH KE LIMA “ Membuat perintah keluar”

Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

        End

    End Sub

mesran.blogspot.com