Cara program penghitung nilai mahasiswa dengan menggunakan
VB .Net 2008
Halo apa kabar sobat kali ini saya
akan menjelaskan tutorial tentang membuat aplikasi penghitung nilai mahasiswa
dengan menggunakan VB .Net 2008, oke tak perlu panjang lebar langsung saja saya
mulai tutorialnya.
1. Pertama buka terlebih dahulu program VB .Net 2008 nya,
berikut adalah tampilan awal VB .Net 2008.
2. Lalu buat project baru, pilih windows form application ,
berikan nama project yang akan kita buat yaitu “aplikasi penghitung nilai
mahasiswa” , lalu pilih ok.
3. Kemudian buatlah sebuah desain form seperti berikut,
terdapat 1 group box, 6 label, 5 textbox, 2 button.
Komponen
|
Properties
|
Name
|
Text
|
Auto Size
|
GroupBox 1
|
Group Box 1
|
Nilai Akhir Mahasiswa
|
|
Label 1
|
Label 1
|
Absen
|
|
Label 2
|
Label 2
|
Tugas
|
|
Label 3
|
Label 3
|
Keaktifan
|
|
Label 4
|
Label 4
|
UTS
|
|
Label 5
|
Label 5
|
UAS
|
|
Label 6
|
lblAkhir
|
|
False
|
Textbox 1
|
txtAbsen
|
|
|
Textbox 2
|
txtTugas
|
|
|
Textbox 3
|
txtAktif
|
|
|
Textbox 4
|
txtUTS
|
|
|
Textbox 5
|
txtUAS
|
|
|
Button 1
|
btnCek
|
Cek Nilai Akhir
|
|
Button 2
|
btnClose
|
Close
|
|
4. Kemudian setelah selesai mendesain formnya, berikutnya
masukan source code pada button Cek Nilai Akhir , berikut source codenya :
Private Sub btnCek_Click(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles btnCek.Click
Dim Absen, tugas, aktif, uts, uas As Integer
Dim akhir As
Integer
Absen = txtAbsen.Text * 20 / 100
tugas = txtTugas.Text * 15 / 100
aktif = txtAktif.Text * 10 / 100
uts = txtUTS.Text * 25 / 100
uas = txtUAS.Text * 30 / 100
akhir = Absen + tugas + aktif + uts + uas
lblAkhir.Text = "nilai akhir kamu
" & akhir
If
akhir > 85 Then
MsgBox("nilai akhir kamu A")
ElseIf akhir > 70 Then
MsgBox("nilai akhir kamu B")
ElseIf akhir > 55 Then
MsgBox("nilai akhir kamu C")
ElseIf akhir > 40 Then
MsgBox("nilai akhir kamu D")
Else
MsgBox("nilai akhir kamu E")
End If
End
Sub
Masukan
juga source code pada buttong Close :
Private Sub btnClose_Click(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles btnClose.Click
Close()
End Sub
Disini
presentase bobot penilaian adalah :
Absen = 20%
Tugas = 15%
Keaktifan = 10%
UTS = 25%
UAS = 30%
Berikut
ketentuan hasil nilai output dari nilai yang di inputkan :
Jika
nilainya > 85, maka nilai akhirnya adalah “A”
Jika
nilainya >70, maka nilai akhirnya adalah “B”
Jika
nilainya >55, maka nilai akhirnya adalah “C”
Jika nilanya
>40, maka nilai akhirnya adalah “D”
Jika nilanya
<40, maka nilai akhirnya adalah “E”
5. Setelah semua button di masukan source code, langkah
terakhir adalah menjalankan programnya,
Misalkan
kita inputkan nilainya sebegai berikut :
Maka
hasilnya sebagai berikut :
6. Demikianlah tutorial program aplikasi penghitung nilai
menggunakan VB .Net 2008 semoga bermanfaat, selamat mencoba, jangan malu malu
mecoba.