Yuk,belajar konsep pemograman Visualbasic

Yuk,belajar konsep pemograman Visualbasic
1. Buatlah form seperti gambar dibawah ini.



2. Ketiklah listing sperti berikut ini :

Public Class Form1

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

        npm.Items.Add("12111000")

        npm.Items.Add("12111001")

        npm.Items.Add("12111011")

        Me.Text = " FORM NILAI "

        Me.BackColor = Color.Green

        kdosen.Items.Add("01")

        kdosen.Items.Add("02")

        kdosen.Items.Add("03")

        kode_mt.Items.Add("001")

        kode_mt.Items.Add("002")

        kode_mt.Items.Add("003")

        nk.Items.Add("50")

        nk.Items.Add("60")

        nk.Items.Add("70")

        nk.Items.Add("80")

        nk.Items.Add("90")

        nt.Items.Add("50")

        nt.Items.Add("60")

        nt.Items.Add("70")

        nt.Items.Add("80")

        nt.Items.Add("90")

        nuts.Items.Add("50")

        nuts.Items.Add("60")

        nuts.Items.Add("70")

        nuts.Items.Add("80")

        nuts.Items.Add("90")

        nu.Items.Add("50")

        nu.Items.Add("60")

        nu.Items.Add("70")

        nu.Items.Add("80")

        nu.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 "12111000"

                nama.Text = "Valentino"

                jenjang.Text = "S1"

                jurusan.Text = "Tehnik Informatika"

            Case "12111001"

                nama.Text = "Pedrosa"

                jenjang.Text = "D3"

                jurusan.Text = "Manajemen Informatika"

            Case Else

                nama.Text = "Lorenzo"

                jenjang.Text = "D1"

                jurusan.Text = "teknik komputer"

        End Select

    End Sub

    Private Sub kdosen_SelectedIndexChanged(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) Handleskdosen.SelectedIndexChanged

        If kdosen.Text = "01" Then

            ndosen.Text = "Mesran"

        ElseIf kdosen.Text = "02" Then

            ndosen.Text = "Toni Limbong"

        ElseIf kdosen.Text = "03" Then

            ndosen.Text = "Sinar Sinurat"

        End If

    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles hapus.Click

        npm.Text = ""

        nama.Text = ""

        jenjang.Text = ""

        jurusan.Text = ""

        kdosen.Text = ""

        ndosen.Text = ""

        kode_mt.Text = ""

        mkuliah.Text = ""

        nk.Text = ""

        nt.Text = ""

        nu.Text = ""

        nu.Text = ""

        nakhir.Text = ""

        nhuruf.Text = ""

        keterangan.Text = ""

    End Sub

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles keluar.Click

        Me.Close()

    End Sub

    Private Sub kode_mt_SelectedIndexChanged(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) Handleskode_mt.SelectedIndexChanged

        Select Case kode_mt.Text

            Case "001"

                mkuliah.Text = "visuL Basic"

            Case "002"

                mkuliah.Text = "kalkulus"

            Case Else

                mkuliah.Text = "Matriks"

        End Select

    End Sub

    Private Sub proses_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles proses.Click

        nakhir.Text = 0.1 * nk.Text + 0.15 * nt.Text + 0.3 * nu.Text + 0.45 * nu.Text

        If nakhir.Text >= 80 Then

            nhuruf.Text = "A"

            keterangan.Text = "sangat memuaskan"

        ElseIf nakhir.Text >= 70 Then

            nhuruf.Text = "B"

            keterangan.Text = "memuaskan"

        ElseIf nakhir.Text >= 60 Then

            nhuruf.Text = "C"

            keterangan.Text = "cukup memuaskan"

        ElseIf nakhir.Text >= 50 Then

            nhuruf.Text = "D"

            keterangan.Text = " buruk"

        Else

            nhuruf.Text = "E"

            keterangan.Text = "sangat buruk"

        End If

    End Sub

End Class

Tekan F5 maka hasilnya akan seperti dibawah ini !!!

=> SELAMAT MENCOBA.