Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
NPM.Items.Add("12111134")
NPM.Items.Add("12110000")
NPM.Items.Add("12115656")
KDosen.Items.Add("001")
KDosen.Items.Add("002")
KDosen.Items.Add("003")
Kodematkul.Items.Add("p001")
Kodematkul.Items.Add("p002")
Kodematkul.Items.Add("p003")
Dim i As Integer
For i = 100 To 1 Step -1
Nhadir.Items.Add(i)
NT.Items.Add(i)
NU.Items.Add(i)
NUS.Items.Add(i)
Next i
End Sub
Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
Select Case NPM.Text
Case "12111134"
Nama.Text = "sahli fadli"
Jenjang.Text = "S1"
Jurusan.Text = "Tekhnik Informatika"
Case "12110000"
Nama.Text = "Bachri"
Jenjang.Text = "S1"
Jurusan.Text = "Sistem Informasi"
Case "12115656"
Nama.Text = "Lastri"
Jenjang.Text = "D3"
Jurusan.Text = "Manajemen Informatika"
Case Else
Nama.Text = "-"
End Select
End Sub
Private Sub KDosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KDosen.SelectedIndexChanged
Select Case KDosen.Text
Case "001"
NmDosen.Text = "Mesran"
Case "002"
NmDosen.Text = "Sinar Sinurat"
Case "003"
NmDosen.Text = "Toni Limbong"
Case Else
NmDosen.Text = "-"
End Select
End Sub
Private Sub Kodematkul_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kodematkul.SelectedIndexChanged
Select Case Kodematkul.Text
Case "p001"
Nmatkul.Text = "Pemrograman Visual"
Case "p002"
Nmatkul.Text = "Sistem Operasi"
Case "p003"
Nmatkul.Text = "Komunikasi Data"
Case Else
Nmatkul.Text = "-"
End Select
End Sub
Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click
Close()
End Sub
Private Sub BtnProcess_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProcess.Click
NA.Text = 0.1 * Nhadir.Text + 0.15 * NT.Text + 0.3 * NU.Text + 0.45 * NUS.Text
If NA.Text >= 50 Then
Ket.Text = "LULUS"
Else
Ket.Text = "GAGAL"
End If
If NA.Text >= 80 Then
NH.Text = "A"
ElseIf NA.Text >= 70 Then
NH.Text = "B"
ElseIf NA.Text >= 60 Then
NH.Text = "C"
ElseIf NA.Text >= 50 Then
NH.Text = "D"
Else
NH.Text = "E"
End If
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 = ""
KDosen.Text = ""
NmDosen.Text = ""
Kodematkul.Text = ""
Nmatkul.Text = ""
Nhadir.Text = ""
NT.Text = ""
NU.Text = ""
NUS.Text = ""
NA.Text = ""
NH.Text = ""
Ket.Text = ""
End Sub
Private Sub Nama_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Nama.TextChanged
End Sub
End Class
hasilnya:
0 komentar:
Posting Komentar