NAMA : RAUDATUL HASANAH NST
NPM : 12110555
KLS : SIM-1206
HMMM DAH LAMA NE gk buka blog ne
semoga bermanfaat ya (:
Public Class Form1
Private Sub Form1_FormClosing(ByVal
sender As Object,
ByVal e As
System.Windows.Forms.FormClosingEventArgs) Handles
Me.FormClosing
If
MsgBox("Yakin Anda Ingin Keluar",
MsgBoxStyle.Information + MsgBoxStyle.YesNo, "Informasi")
= MsgBoxResult.No Then e.Cancel = True
End Sub
Private Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
npm.Items.Add("12110328")
npm.Items.Add("12020328")
npm.Items.Add("12030328")
kode_dosen.Items.Add("D01")
kode_dosen.Items.Add("D02")
kode_dosen.Items.Add("D03")
kode_matakuliah.Items.Add("M01")
kode_matakuliah.Items.Add("M02")
kode_matakuliah.Items.Add("M03")
Dim i As Integer
For i =
1 To 100
nilai_kehadiran.Items.Add(i)
Next i
i = 1
Do While i <= 100
Nilai_tugas.Items.Add(i)
i = i + 1
Loop
i = 100
Do Until i = 0
Nilai_UTS.Items.Add(i)
i = i - 1
Loop
i = 100
While i
>= 1
Nilai_Uas.Items.Add(i)
i = i - 1
End While
End Sub
Private Sub Btn_Keluar_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Btn_Keluar.Click
Me.Close()
End Sub
Private Sub Btn_Hapus_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Btn_Hapus.Click
npm.Text = ""
nama.Text = ""
jenjang.Text = ""
jurusan.Text = ""
kode_dosen.Text = ""
nama_dosen.Text = ""
kode_matakuliah.Text = ""
Nama_matakuliah.Text = ""
nilai_kehadiran.Text = ""
Nilai_tugas.Text = ""
Nilai_Akhir.Text = ""
Nilai_Uas.Text = ""
Nilai_UTS.Text = ""
Nilai_huruf.Text = ""
Keterangan.Text = ""
npm.Focus()
End Sub
Private Sub npm_SelectedIndexChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
npm.SelectedIndexChanged
Select Case npm.Text
Case
"12110328"
nama.Text = "James Hillery Sitohang"
Case
"12020328"
nama.Text = "Fernando"
Case
"12030328"
nama.Text = "Natal S"
End Select
Dim x As String
x = Microsoft.VisualBasic.Mid(npm.Text,
3, 2)
Select
x
Case
"11"
jenjang.Text = "S1"
jurusan.Text = "Sistem Informasi"
Case
"02"
jenjang.Text = "D3"
jurusan.Text = "Teknik Informatika"
Case
Else
jenjang.Text = "D1"
jurusan.Text = "Desain Grafis"
End Select
End Sub
Private Sub kode_dosen_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
kode_dosen.SelectedIndexChanged
Select Case kode_dosen.Text
Case
"D01"
nama_dosen.Text = "M Syahrizal, S.Kom"
Case
"D02"
nama_dosen.Text = "Mesran, M.Kom"
Case
"D03"
nama_dosen.Text = "Sony Sinaga, S.Kom,"
End Select
End Sub
Private Sub kode_matakuliah_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
kode_matakuliah.SelectedIndexChanged
Select Case kode_matakuliah.Text
Case
"M01"
Nama_matakuliah.Text = "Sistem Operasi"
Case
"M02"
Nama_matakuliah.Text = "Pemograman Visual"
Case
"M03"
Nama_matakuliah.Text = "Sistem Basis Data"
End Select
End Sub
Private Sub Btn_Proses_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Btn_Proses.Click
Nilai_Akhir.Text = 0.1 *
Val(nilai_kehadiran.Text) + 0.15 * Val(Nilai_tugas.Text) + 0.35 *
Val(Nilai_UTS.Text) + 0.4 * Val(Nilai_Uas.Text)
Select Case Nilai_Akhir.Text
Case
100 To 80
Nilai_huruf.Text = "A"
Keterangan.Text = "Lulus"
Case
70 To 79
Nilai_huruf.Text = "B"
Keterangan.Text = "Lulus"
Case
60 To 69
Nilai_huruf.Text = "C"
Keterangan.Text = "Lulus"
Case
50 To 59
Nilai_huruf.Text = "D"
Keterangan.Text = "Gagal"
Case
0 To 49
Nilai_huruf.Text = "E"
Keterangan.Text = "Gagal"
End Select
End Sub
Private Sub nilai_kehadiran_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
nilai_kehadiran.SelectedIndexChanged
End Sub
End Class
