PEMROGRAMAN VISUAL BASIC

 Berikut ini adalah tugas Belajar Bahasa Pemrograman yang diberikan bapak Mesran kepada kelas kami TI-P1205.

Adapun bentuk formnya kurang lebih seperti dibawah ini:

Public Class Form2

   
    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
        Select Case NPM.Text
            Case "12110474"
                nama.Text = "Imron Rosyadi"
                jenjang.Text = "S1"
                jurusan.Text = "TEKNIK INFORMATIKA"

            Case "12110456"
                nama.Text = "mahmulia"
                jenjang.Text = "DIII"
                jurusan.Text = "SISTEM INFORMASI"
            Case "12110555"
                nama.Text = "Awaluddin"
                jenjang.Text = "D1"
                jurusan.Text = "KOMPUTER AKUNTANSI"
           
        End Select
        na.Enabled = False
    End Sub

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        NPM.Items.Add("12110474")
        NPM.Items.Add("12110456")
        NPM.Items.Add("12110555")


        KDOS.Items.Add("1001")
        KDOS.Items.Add("1002")
        KDOS.Items.Add("1003")

        Kodemkul.Items.Add("KM1")
        Kodemkul.Items.Add("KM2")
        Kodemkul.Items.Add("KM3")

        Dim I As Integer
        For I = 0 To 100
            nilkehadiran.Items.Add("" & I)
            nt.Items.Add("" & I)
            nuts.Items.Add("" & I)
            nuas.Items.Add("" & I)
        Next

        na.Enabled = False
    End Sub

    Private Sub KDOS_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KDOS.SelectedIndexChanged
        Select Case KDOS.Text
            Case "1001"
                ndosen.Text = "MESRAN"
            Case "1002"
                ndosen.Text = "YASIR HASAN"
            Case "1003"
                ndosen.Text = "ALEX RIKKI"




        End Select
    End Sub

    Private Sub Kodemkul_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kodemkul.SelectedIndexChanged
        Select Case Kodemkul.Text

            Case "KM1"
                mkuliah.Text = "PEMROGRAMAN VISUAL"
            Case "KM2"
                mkuliah.Text = "SISTEM OPERASI"
            Case "KM3"
                mkuliah.Text = "STRUKTUR DATA"

        End Select
    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        na.Text = nilkehadiran.Text * 0.1 + nt.Text * 0.15 + nuts.Text * 0.35 + nuas.Text * 0.4




        If na.Text >= 80 Then
            nh.Text = "A"
        ElseIf na.Text >= 70 Then
            nh.Text = "B"

        ElseIf na.Text >= 60 Then
            nh.Text = "C"
        ElseIf na.Text >= 50 Then
            nh.Text = "D"
        Else
            nh.Text = "E"
        End If


        If na.Text >= 50 Then
            ktrngn.Text = "LULUS"
        Else
            ktrngn.Text = "GAGAL"
        End If

      
    End Sub

    Private Sub BTNHAPUS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNHAPUS.Click
        NPM.Text = ""
        nama.Text = ""
        jurusan.Text = ""
        jenjang.Text = ""
        KDOS.Text = ""
        ndosen.Text = ""
        Kodemkul.Text = ""
        mkuliah.Text = ""
        nilkehadiran.Text = ""
        nt.Text = ""
        nuts.Text = ""
        nuas.Text = ""
        na.Text = ""
        nh.Text = ""
        ktrngn.Text = ""
    End Sub

    Private Sub BTNKELUAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNKELUAR.Click
        End
    End Sub
End Class

Dan setelah kita klik tombol proses maka hasil yang keluar seperti gambar di bawah ini:

SELAMAT MENCOBA,,,,