Latihan Form Nilai Mahasiswa

Berikut ini adalah tampilan design pemograman visual : Berikut ini adalah cara penyelesain design diatas : Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load npm.Items.Add("13111000") npm.Items.Add("13111001") npm.Items.Add("13111011") Me.Text = " FORM NILAI " Me.BackColor = Color.Blue 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("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 "13111000" nama.Text = "Andi Jost" jenjang.Text = "S1" jurusan.Text = "Tehnik Informatika" proses.BackColor = Color.Orange keluar.BackColor = Color.Red hapus.BackColor = Color.Green Me.BackColor = Color.Crimson Case "13111001" nama.Text = "Joko S" jenjang.Text = "D3" jurusan.Text = "Manajemen Informatika" proses.BackColor = Color.Green keluar.BackColor = Color.Magenta hapus.BackColor = Color.Blue Me.BackColor = Color.BlueViolet Case Else nama.Text = "Ani S" jenjang.Text = "D1" jurusan.Text = "design Grafis" Me.BackColor = Color.Orange proses.BackColor = Color.Red keluar.BackColor = Color.Gold End Select End Sub Private Sub kdosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdosen.SelectedIndexChanged If kdosen.Text = "01" Then ndosen.Text = "Mesran.net" ElseIf kdosen.Text = "02" Then ndosen.Text = "Taroni Zebua" Else ndosen.Text = "Aulia Ramadhan" End If End Sub Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.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 = "" nuas.Text = "" nakhir.Text = "" nhuruf.Text = "" keterangan.Text = "" End Sub Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click Me.Close() End Sub Private Sub kode_mt_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kode_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 As System.EventArgs) Handles proses.Click nakhir.Text = 0.1 * nk.Text + 0.15 * nt.Text + 0.3 * nu.Text + 0.45 * nuas.Text Dim a As Integer a = nakhir.Text Select Case a Case Is >= 50 keterangan.Text = "lulus" Case Is <= 50 keterangan.Text = "gagal" End Select If nakhir.Text >= 80 Then nhuruf.Text = "A" ElseIf nakhir.Text >= 70 Then nhuruf.Text = "B" ElseIf nakhir.Text >= 60 Then nhuruf.Text = "C" ElseIf nakhir.Text >= 50 Then nhuruf.Text = "D" ElseIf nakhir.Text <= 50 Then nhuruf.Text = "E" End If End Sub End Class Berikut ini hasil dari cara penyelesaian diatas :