Belajar VISUAL BASIC

Yuk,, Belajar Konsep Pemrograman Visual Basic:

 1.Buatlah Form seperti gambar dibawah ini.

2.Ketiklah listing seperti berikut ini:

Public Class Form1

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

        NPM.Items.Add("12110104")

        NPM.Items.Add("12111001")

        NPM.Items.Add("12111011")

        Me.Text = " FORM NILAI "

        Me.BackColor = Color.Green

        kode_dosen.Items.Add("01")

        kode_dosen.Items.Add("02")

        kode_dosen.Items.Add("03")

        kode_matakuliah.Items.Add("001")

        kode_matakuliah.Items.Add("002")

        kode_matakuliah.Items.Add("003")

        nilai_kehadiran.Items.Add("50")

        nilai_kehadiran.Items.Add("60")

        nilai_kehadiran.Items.Add("70")

        nilai_kehadiran.Items.Add("80")

        nilai_kehadiran.Items.Add("90")

        nilai_tugas.Items.Add("50")

        nilai_tugas.Items.Add("60")

        nilai_tugas.Items.Add("70")

        nilai_tugas.Items.Add("80")

        nilai_tugas.Items.Add("90")

        nilai_UTS.Items.Add("50")

        nilai_UTS.Items.Add("60")

        nilai_UTS.Items.Add("70")

        nilai_UTS.Items.Add("80")

        nilai_UTS.Items.Add("90")

        nilai_UAS.Items.Add("50")

        nilai_UAS.Items.Add("60")

        nilai_UAS.Items.Add("70")

        nilai_UAS.Items.Add("80")

        nilai_UAS.Items.Add("90")

    End Sub

    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged

        Select Case NPM.Text

            Case "12110104"

                Nama.Text = "fernando"

                Jenjang.Text = "S1"

                jurusan.Text = "Tehnik Informatika"

                matakuliah.Text = "arsitektur"

            Case "12111001"

                Nama.Text = "mesran"

                Jenjang.Text = "D3"

                jurusan.Text = "Manajemen Informatika"

                matakuliah.Text = "vb"

            Case Else

                Nama.Text = "toni"

                Jenjang.Text = "D1"

                jurusan.Text = "teknik komputer"

                matakuliah.Text = "program "

        End Select

       

    End Sub

    Private Sub kode_dosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode_dosen.SelectedIndexChanged

        If kode_dosen.Text = "01" Then

            nama_dosen.Text = "Mesran"

        ElseIf kode_dosen.Text = "02" Then

            nama_dosen.Text = "Toni Limbong"

        ElseIf kode_dosen.Text = "03" Then

            nama_dosen.Text = "Sinar Sinurat"

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

        Jenjang.Text = ""

        jurusan.Text = ""

        kode_dosen.Text = ""

        nama_dosen.Text = ""

        kode_matakuliah.Text = ""

        matakuliah.Text = ""

        nilai_kehadiran.Text = ""

        nilai_tugas.Text = ""

        nilai_UTS.Text = ""

        nilai_UAS.Text = ""

        nilai_akhir.Text = ""

        nilai_huruf.Text = ""

        keterangan.Text = ""

    End Sub

    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click

        Me.Close()

    End Sub

    Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click

        nilai_akhir.Text = 0.1 * nilai_kehadiran.Text + 0.15 * nilai_tugas.Text + 0.3 * nilai_UTS.Text + 0.45 * nilai_UAS.Text

        If nilai_akhir.Text >= 80 Then

            nilai_huruf.Text = "A"

            keterangan.Text = "sangat memuaskan"

        ElseIf nilai_akhir.Text >= 70 Then

            nilai_huruf.Text = "B"

            keterangan.Text = "memuaskan"

        ElseIf nilai_akhir.Text >= 60 Then

            nilai_huruf.Text = "C"

            keterangan.Text = "cukup memuaskan"

        ElseIf nilai_akhir.Text >= 50 Then

            nilai_huruf.Text = "D"

            keterangan.Text = " buruk"

        Else

            nilai_akhir.Text = "E"

            keterangan.Text = "sangat buruk"

        End If

    End Sub

End Class

 3. Tekan F5, maka hasilnya seperti gambar dibawah ini :