Programan Nilai Mahasiwa
Public Class Form1
Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click
nmmtkuliah.Text = ""
kdmtkuliah.Text = ""
nmdosen.Text = ""
kddosen.Text = ""
nuas.Text = ""
ntgs.Text = ""
nuts.Text = ""
nkehadiran.Text = ""
na.Text = ""
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
NPM.Items.Add("12110028")
npm.Items.Add("12110107")
npm.Items.Add("12110108")
kddosen.Items.Add("aa")
kddosen.Items.Add("bb")
kddosen.Items.Add("cc")
kdmtkuliah.Items.Add("SO")
kdmtkuliah.Items.Add("VB")
kdmtkuliah.Items.Add("SBT")
Dim s As Integer
For s = 100 To 1 Step -3
nuas.Items.Add(s)
Next
For s = 100 To 1 Step -3
nuts.Items.Add(s)
Next
For s = 100 To 1 Step -3
ntgs.Items.Add(s)
Next
For s = 100 To 1 Step -3
nkehadiran.Items.Add(s)
Next
End Sub
Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
Select Case npm.Text
Case "12110028"
Nama.Text = "Halima Tusa'diah .P"
jenjang.Text = "strata 1"
jurusan.Text = "teknik infomatika"
Case "12110107"
nama.Text = "tri desy novita"
jenjang.Text = "Diploma 3"
jurusan.Text = "Manajemen informatika"
Case "12110108"
nama.Text = "jefry man"
jenjang.Text = "Diploma 1"
jurusan.Text = "akutansi"
Case Else
nama.Text = "_"
End Select
End Sub
Private Sub kddosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kddosen.SelectedIndexChanged
Select Case kddosen.Text
Case "aa"
nmdosen.Text = "Abdul sani sembiring"
Case "bb"
nmdosen.Text = "Mesran"
Case "cc"
nmdosen.Text = "pandi simangunsong"
Case Else
nmdosen.Text = "_"
End Select
End Sub
Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click
na.Text = 0.3 * nuts.Text + 0.45 * nuas.Text + 0.1 * ntgs.Text + 0.15 * nkehadiran.Text
If na.Text >= 50 Then
nh.Text = "A+"
ket.Text = "Selamat, Berjuang Terus"
Else
nh.Text = "E"
ket.Text = "Anda gagal, Coba lagi"
End If
End Sub
Private Sub NPM_SelectedIndexChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
End Sub
Private Sub kdmtkuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdmtkuliah.SelectedIndexChanged
Select Case kdmtkuliah.Text
Case "SO"
nmmtkuliah.Text = "Sistem Operasi"
Case "VB"
nmmtkuliah.Text = "Visual Basic"
Case "SBD"
nmmtkuliah.Text = "sitem basis data"
Case Else
nmmtkuliah.Text = "_"
End Select
End Sub
Private Sub Btnkeluar_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
End
End Sub
End Class