Public Class Form1
Private Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
npm.Items.Add("13110011")
npm.Items.Add("13120021")
npm.Items.Add("13130032")
Kd_dosen.Items.Add("2010001")
Kd_dosen.Items.Add("2010002")
Kd_dosen.Items.Add("2010003")
kd_makul.Items.Add("kd1211")
kd_makul.Items.Add("kd1312")
kd_makul.Items.Add("kd1415")
Dim
nilai As Integer
nilai = 1
Do While nilai <= 100
hadir.Items.Add(nilai)
tugas.Items.Add(nilai)
uas.Items.Add(nilai)
uts.Items.Add(nilai)
nilai = nilai + 1
Loop
End Sub
Private Sub npm_SelectedIndexChanged(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles
npm.SelectedIndexChanged
Select Case npm.Text
Case
"13110011"
nama.Text = "muhammad syahputra"
Case
"13110021"
nama.Text = "soleh"
Case
Else
nama.Text = "dono"
End Select
End Sub
Private Sub Kd_dosen_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
Kd_dosen.SelectedIndexChanged
Select Case Kd_dosen.Text
Case
"2010001"
nama_dosen.Text = "togar s.kom"
Case
"2010002"
nama_dosen.Text = "tuji m.kom"
Case
"2010003"
nama_dosen.Text = "ijah s.kom"
End Select
End Sub
Private Sub kd_makul_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles
kd_makul.SelectedIndexChanged
Select Case kd_makul.Text
Case
"kd1211"
makul.Text = "pemrograman visual"
Case
"kd1312"
makul.Text = "arsitektur komputer"
Case
"kd1415"
makul.Text = "Struktur Data"
End Select
End Sub
Private Sub hapus_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles hapus.Click
npm.Text = "
"
nama.Text = "
"
jenjang.Text = "
"
nama_dosen.Text = " "
Kd_dosen.Text = " "
kd_makul.Text = " "
makul.Text = "
"
hadir.Text = "
"
tugas.Text = "
"
uts.Text = "
"
uas.Text = "
"
akhir.Text = "
"
Huruf.Text = "
"
keterangan.Text = " "
jurusan.Text = "
"
End Sub
Private Sub proses_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles proses.Click
akhir.Text = 0.1 * hadir.Text + 0.15 *
tugas.Text + 0.3 * uts.Text + 0.45 * uas.Text
If
akhir.Text >= 50 Then
keterangan.Text = "lulus"
Else
keterangan.Text = "gagal"
End If
If
akhir.Text >= "80" Then
Huruf.Text = "A"
ElseIf
akhir.Text = "70" Then
Huruf.Text = "B"
ElseIf
akhir.Text = "60" Then
Huruf.Text = "C"
ElseIf
akhir.Text = "50" Then
Huruf.Text = "D"
ElseIf
akhir.Text <= "50" Then
Huruf.Text = "E"
End If
Dim x As String
Microsoft.VisualBasic.Right(npm.Text,
2)
x = Microsoft.VisualBasic.Mid(npm.Text,
3, 1)
If x = "1" Then
jenjang.Text = "S1"
ElseIf
x = "2" Then
jenjang.Text = "D3"
ElseIf
x = "3" Then
jenjang.Text = "S1"
End If
x = Microsoft.VisualBasic.Mid(npm.Text,
3, 2)
If x = "11" Then
jurusan.Text = "Teknik Informatika"
ElseIf
x = "12" Then
jurusan.Text = "Manajemen Informatika"
ElseIf
x = "13" Then
jurusan.Text = "Teknik informatika"
End If
End Sub
Private Sub keluar_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles keluar.Click
End
End Sub
End Class
0 komentar:
Posting Komentar