pastinya baik dong...
hahha :D
kali ini saya ingin memostingkan tentang Perhitungan Nilai Mahasiswa lengkap dengan desain dan codingnya dengan menggunakan VB NET 2008.
yuukk... langsung saja kita memulainya...
1. Buka program VB, lalu desainlah seperti gambar di bawah ini!
kali ini kita gunakan Label, Textbox, Combobox, dan Button.
desainnya juga dilengkapi dengan "name"-nya, karena saya suka yang simpel-simpel jadi "name"nya juga saya singkat, hehehe...
tapi dengan ketentuan:
Untuk Penentuan Nama Dosen di tentukan berdasarkan Kode Dosen
Untuk penentuan Nama Matakuliah di tentukan berdasarkan Kode Matakuliah
Untuk penentuan Nilai akhir
Nilai akhir = 10% * Nilai Kehadiran + 15% * Nilai Tugas + 30% * Nilai UTS + 45% * NilaiUAS
Untuk penentuan Nilai huruf
A = Jika Nilai akhir Lebih besar dari 80
B = Jika Nilai akhir Lebih besar dari 70
C = Jika Nilai akhir Lebih besar dari 60
D = Jika Nilai akhir Lebih besar dari 50
E = Jika Nilai akhir Lebih kecil dari 50
Untuk penentuan keterangan
Lulus jika Nilai akhir lebih besar dari 50
Tidak lulus jika Nilai akhir lebih kecil dari 50
2. lalu tulis codingnya seperti ini.
Public Class Form2
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
npm.Items.Add("12110050")
npm.Items.Add("12110051")
npm.Items.Add("12110053")
npm.Items.Add("12110057")
kd.Items.Add("001")
kd.Items.Add("002")
kd.Items.Add("003")
km.Items.Add("so")
km.Items.Add("vb")
km.Items.Add("sd")
na.Enabled = False
nh.Enabled = False
ket.Enabled = False
Dim i As Integer
For i = 100 To 1 Step -3
nk.Items.Add(i)
Next
Dim x As Integer
For x = 100 To 1 Step -3
nt.Items.Add(x)
Next
Dim y As Integer
For y = 100 To 1 Step -3
nu.Items.Add(y)
Next
Dim z As Integer
For z = 100 To 1 Step -3
niu.Items.Add(z)
Next
End Sub
Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
Select Case npm.Text
Case "12110050"
nm.Text = "Citra Puji Lestari"
jen.Text = "Sastra 1"
jur.Text = "Teknologi Informatika"
Case "12110051"
nm.Text = "Hafizatul Hasanah"
jen.Text = "Sastra 1"
jur.Text = "Sistem Informatika"
Case "12110053"
nm.Text = "Enma Syahputri"
jen.Text = "Diploma I"
jur.Text = "management Informatika"
Case "12110057"
nm.Text = "Lya Syafitri"
jur.Text = "Akutansi"
Case Else
nm.Text = ""
jen.Text = ""
jur.Text = ""
End Select
End Sub
Private Sub kd_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kd.SelectedIndexChanged
Select Case kd.Text
Case "001"
nd.Text = "Abdul Sani Sembiring, M.Kom"
Case "002"
nd.Text = "Mesran, S.Kom, M.Kom"
Case "003"
nd.Text = "Alex Rikki Sinaga, M.Kom"
End Select
End Sub
Private Sub km_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles km.SelectedIndexChanged
Select Case km.Text
Case "so"
nmk.Text = "Sistem Operasi"
Case "vb"
nmk.Text = "Pemograman Visual"
Case "sd"
nmk.Text = "Struktur Data"
Case Else
nm.Text = ""
End Select
End Sub
Private Sub pro_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pro.Click
na.Text = 0.1 * nk.Text + 0.15 * nt.Text + 0.3 * nu.Text + 0.45 * niu.Text
If na.Text >= 80 Then
nh.Text = "A"
ket.Text = "LULUS"
ElseIf na.Text >= 70 Then
nh.Text = "B"
ket.Text = "LULUS"
ElseIf na.Text >= 60 Then
nh.Text = "C"
ket.Text = "LULUS"
ElseIf na.Text >= 50 Then
nh.Text = "D"
ket.Text = "LULUS"
Else
nh.Text = "E"
ket.Text = "GAGAL"
End If
End Sub
Private Sub h_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles h.Click
npm.Text = ""
nm.Text = ""
jen.Text = ""
jur.Text = ""
kd.Text = ""
nd.Text = ""
km.Text = ""
nmk.Text = ""
nk.Text = ""
nt.Text = ""
nu.Text = ""
niu.Text = ""
na.Text = ""
nh.Text = ""
ket.Text = ""
End Sub
Private Sub k_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles k.Click
Me.Close()
End Sub
End Class
3. Tekan F5 maka akan muncul seperti ini.
semoga bemanfaat :)
Posting Komentar