Dan ini adalah cara atau jalan penegerjaannya. (rumusnya)
Public Class Form1
Private
Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
npm.Items.Add("12110071")
npm.Items.Add("12120019")
npm.Items.Add("12130017")
Kd_dosen.Items.Add("2011001")
Kd_dosen.Items.Add("2011002")
Kd_dosen.Items.Add("2011003")
kd_makul.Items.Add("VB1213")
kd_makul.Items.Add("BD1213")
kd_makul.Items.Add("SD1213")
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
"12110071"
nama.Text = "Ihsanuddin"
Case
"12120019"
nama.Text = "Ratna Kumala"
Case
Else
nama.Text = "Denny Kurniawan"
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
"2011001"
nama_dosen.Text = "Mesran S.Kom M.Kom"
Case
"2011002"
nama_dosen.Text = "Rivalry S.Kom"
Case
"2011003"
nama_dosen.Text = "Alex Rikki S.Kom M.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
"VB1213"
makul.Text = "Visual Basic"
Case
"DB1213"
makul.Text = "Data Base"
Case
"SD1213"
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
x =
Microsoft.VisualBasic.Mid(npm.Text, 3, 2)
If
x = "11" Then
jenjang.Text = "S1"
ElseIf
x = "12" Then
jenjang.Text = "D3"
ElseIf
x = "13" Then
jenjang.Text = "D1"
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 Komputer"
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