Latihan pemograman visual Basic

Latihan pemograman visual Basic

bentuk desainnya :

bentuk sintaxnya:

Public Class Form1

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

        npm.Items.Add("12110785")

        npm.Items.Add("12110413")

        npm.Items.Add("12110991")

        Me.Text = " FORM NILAI "

        Me.BackColor = Color.Blue

        

        kdosen.Items.Add("05")

        kdosen.Items.Add("06")

        kdosen.Items.Add("07")

        kode_mt.Items.Add("005")

        kode_mt.Items.Add("006")

        kode_mt.Items.Add("007")

        nk.Items.Add("40")

        nk.Items.Add("50")

        nk.Items.Add("60")

        nk.Items.Add("70")

        nk.Items.Add("80")

        nk.Items.Add("90")

        nt.Items.Add("40")

        nt.Items.Add("50")

        nt.Items.Add("60")

        nt.Items.Add("70")

        nt.Items.Add("80")

        nt.Items.Add("90")

        nu.Items.Add("40")

        nu.Items.Add("50")

        nu.Items.Add("60")

        nu.Items.Add("70")

        nu.Items.Add("80")

        nu.Items.Add("90")

        nuas.Items.Add("40")

        nuas.Items.Add("50")

        nuas.Items.Add("60")

        nuas.Items.Add("70")

        nuas.Items.Add("80")

        nuas.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 "12110480"

                nama.Text = "Andi Jost"

                jenjang.Text = "S1"

                jurusan.Text = "Tehnik Informatika"

                proses.BackColor = Color.Gray

                hapus.BackColor = Color.Gold

                keluar.BackColor = Color.GreenYellow

               

            Case "12110431"

                nama.Text = "Alexander"

                jenjang.Text = "D3"

                jurusan.Text = "Manajemen Informatika"

                proses.BackColor = Color.Gray

                hapus.BackColor = Color.Gainsboro

                keluar.BackColor = Color.Green

                

            Case Else

                nama.Text = "Agus Roberto"

                jenjang.Text = "D1"

                jurusan.Text = "design Grafis"

                proses.BackColor = Color.Honeydew

                hapus.BackColor = Color.IndianRed

                keluar.BackColor = Color.Gainsboro

       

        End Select

    End Sub

Tampilan hasil visual basiec :

Tugas : Mesran.net