Public Class Form1
Private Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
NPM.Items.Add("12110667")
NPM.Items.Add("12110082")
NPM.Items.Add("12110407")
KODEDOSEN.Items.Add("MS001")
KODEDOSEN.Items.Add("PL002")
KODEDOSEN.Items.Add("TN003")
KODEMATAKULIAH.Items.Add("PV001")
KODEMATAKULIAH.Items.Add("AD002")
KODEMATAKULIAH.Items.Add("SBD003")
Dim x As Integer
For x =
100 To 1 Step
-1
NILAIHADIR.Items.Add(x)
NILAITUGAS.Items.Add(x)
NILAIUAS.Items.Add(x)
NILAIUTS.Items.Add(x)
Next x
End Sub
Private Sub NPM_SelectedIndexChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
NPM.SelectedIndexChanged
Select Case NPM.Text
Case
"12110667"
NAMA.Text = "SONI RIVALDI"
JURUSAN.Text = "TEKNIK INFORMATIKA"
Case
"12110082"
NAMA.Text = "BENTO"
JURUSAN.Text = "TEKNIK INFORMATIKA"
Case
"12110407"
NAMA.Text = "AHMAD FAUZI LINGGA"
JURUSAN.Text = "TEKNIK INFORMATIKA"
End Select
Dim x As String
x =
Microsoft.VisualBasic.Right(NPM.Text, 2)
If
NPM.Text = "12110667" Then
JENJANG.Text = "S1"
ElseIf
NPM.Text = "12110082" Then
JENJANG.Text = "S1"
ElseIf
NPM.Text = "12110407" Then
JENJANG.Text = "S1"
End If
End Sub
Private Sub KODEDOSEN_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
KODEDOSEN.SelectedIndexChanged
Select Case KODEDOSEN.Text
Case
"MS001"
NAMADOSEN.Text = "Mesran M.Kom"
Case
"PL002"
NAMADOSEN.Text = "Yasir Hasan S.Kom"
Case
"TN003"
NAMADOSEN.Text = "Pristiwanto S,Kom"
End Select
End Sub
Private Sub KODEMATAKULIAH_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
KODEMATAKULIAH.SelectedIndexChanged
Select Case KODEMATAKULIAH.Text
Case
"PV001"
MATAKULIAH.Text = "Program Visual"
Case
"AD002"
MATAKULIAH.Text = "Sistem Basis Data"
Case
"SBD003"
MATAKULIAH.Text = "Sistem Operasi"
End Select
End Sub
Private Sub BTNPROSES_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles BTNPROSES.Click
NILAIAKHIR.Text = 0.1 * NILAIHADIR.Text
+ 0.15 * NILAITUGAS.Text + 0.35 * NILAIUTS.Text + 0.45 * NILAIUAS.Text
If
NILAIAKHIR.Text >= "50" Then
KETERANGAN.Text = "LULUS"
Else
KETERANGAN.Text = "GAGAL"
End If
If
NILAIAKHIR.Text >= "80" Then
NILAIHURUF.Text = "A"
ElseIf
NILAIAKHIR.Text >= "70" Then
NILAIHURUF.Text = "B"
ElseIf
NILAIAKHIR.Text >= "60" Then
NILAIHURUF.Text = "C"
ElseIf
NILAIAKHIR.Text >= "50" Then
NILAIHURUF.Text = "D"
Else
NILAIHURUF.Text = "E"
End If
End Sub
Private Sub BTNKELUAR_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles BTNKELUAR.Click
End
End Sub
Private Sub BTNHAPUS_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles BTNHAPUS.Click
NPM.Text = ""
NAMA.Text = ""
JENJANG.Text = ""
JURUSAN.Text = ""
NAMADOSEN.Text = ""
MATAKULIAH.Text = ""
KODEDOSEN.Text = ""
KODEMATAKULIAH.Text = ""
NILAIAKHIR.Text = ""
NILAIHADIR.Text = ""
NILAIHURUF.Text = ""
NILAITUGAS.Text = ""
NILAIUAS.Text = ""
NILAIUTS.Text = ""
KETERANGAN.Text = ""
End Sub
End Class
VisualBasic 2008 Menghitung Nilai Mahasiswa
Bagikan
VisualBasic 2008 Menghitung Nilai Mahasiswa
4/
5
Oleh
Vald Blog
Terimakasih telah memberi komentar di sonirivaldi.blogspot.com