"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