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


