Gambar Design Form
Kemudian masukkan kode dibawah..
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
NPM.Items.Add("12110806")
NPM.Items.Add("12110807")
NPM.Items.Add("12110809")
NPM.Items.Add("12110810")
Kodedosen.Items.Add("10001")
Kodedosen.Items.Add("10002")
Kodedosen.Items.Add("10003")
Kodemakul.Items.Add("KB011")
Kodemakul.Items.Add("KB012")
Kodemakul.Items.Add("KB013")
For i = 100 To 1 Step -1
nilaikehadiran.Items.Add(i)
Next i
For i = 100 To 1 Step -1
nilaitugas.Items.Add(i)
Next i
For i = 100 To 1 Step -1
nilaiuts.Items.Add(i)
Next i
For i = 100 To 1 Step -1
nilaiuas.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 "12110806"
Nama.Text = "FAJAR SYAHDIANTI"
Jenjang.Text = "S1"
Jurusan.Text = "Teknik Informatika"
Case "12110807"
Nama.Text = "ARIFIN"
Jenjang.Text = "D3"
Jurusan.Text = "Teknik Informatika"
Case "12110808"
Nama.Text = "SYAHPUTRA"
Jenjang.Text = "S1"
Jurusan.Text = "Teknik Informatika"
Case "12110809"
Nama.Text = "FADHILLA"
Jenjang.Text = "D3"
Jurusan.Text = "Managemen Informatika"
End Select
End Sub
Private Sub Kodedosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kodedosen.SelectedIndexChanged
Select Case Kodedosen.Text
Case "10001"
Namadosen.Text = "Mesran,M.Kom"
Case "10002"
Namadosen.Text = "Kennedi Tampubolon"
Case "10003"
Namadosen.Text = "Tonni Limbong,S.Kom,M.Kom"
Case Else
Namadosen.Text = "Pilipus Tarigan,S.T,M.Kom"
End Select
End Sub
Private Sub Kodemakul_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kodemakul.SelectedIndexChanged
Select Case Kodemakul.Text
Case "KB011"
matakuliah.Text = "Pemrograman Visual"
Case "KB012"
matakuliah.Text = "Matriks dan Transformasi Linear"
Case "KB013"
matakuliah.Text = "Sistem Basis Data"
Case Else
matakuliah.Text = "Arsitektur dan Organisasi"
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 * nilaikehadiran.Text + 0.15 * nilaitugas.Text + 0.3 * nilaiuts.Text + 0.45 * nilaiuas.Text
Select nilaiakhir.Text
Case Is >= 80
nilaihuruf.Text = "A"
keterangan.Text = "Sangat Memuaskan"
Case 70 To 79
nilaihuruf.Text = "B"
keterangan.Text = "Dengan Pujian"
Case 60 To 69
nilaihuruf.Text = "C"
keterangan.Text = "Cukup Memuaskan"
Case 50 To 59
nilaihuruf.Text = "D"
keterangan.Text = "Cukup"
Case Is >= 49
nilaihuruf.Text = "E"
keterangan.Text = "Tidak Memuaskan"
End Select
End Sub
Private Sub Btnhps_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhps.Click
NPM.Text = ""
Nama.Text = ""
Jenjang.Text = ""
Jurusan.Text = ""
Kodedosen.Text = ""
Namadosen.Text = ""
Kodemakul.Text = ""
matakuliah.Text = ""
nilaikehadiran.Text = ""
nilaitugas.Text = ""
nilaiuts.Text = ""
nilaiuas.Text = ""
nilaiakhir.Text = ""
keterangan.Text = ""
End Sub
Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
End
End Sub
End Class
Kemudian Jalankan dengan ketik F5/Start Debugging...
Gambar Design Form setelah dijalankan
Silahkan dicoba... ^_^
Tidak ada komentar:
Posting Komentar