Progam Menghitung Nilai di Kampus
W punya progam vb sederhana yang bisa menghitung nilai akhir dan grade di kampus.
Nah… kaya gini gan bentuk’a
Cara kerjanya adalah kalian masukan jumlah pertemuan di absen, nilai tugas, nilai UTS dan nilai UAS lalu klik tombol hasil, untuk mengulang lagi klik reset.
Contohnya saya input absen 10, tugas 70, uts 80, uas 90, hasilnya pasti 81,……….. dan gradenya “A” karena di kampus saya memiliki nilai absensi berbobot 10%, lalu nilai tugas berbobot 20%, nilai uts berbobot 30% dan nilai UAS berbobot 40%.
Cara perhitungannya:
Nilai absen = jumlah kehadiran * ((100 / jumlah pertemuan selama 1 semester) * 10%)
Nilai tugas = nilai tugas * 20%
Nilai UTS = nilai UTS * 30%
Nilai UAS = nilai UAS * 40%
Nilai Akhir = nilai Absen + Nilai Tugas + Nilai UTS + Nilai UAS
GRADE
|
BATAS NILAI
|
A
|
79,5 s/d 100
|
B
|
69,5 s/d 79,4
|
C
|
59,5 s/d 69,4
|
D
|
49,5 s/d 59,4
|
E
|
0 s/d 49,4
|
Yang dibutuhkan untuk membentuk gambar diatas adalah :
Tool
|
Caption / Name(utk Text)
|
Enabled
|
Frame1
|
INPUT
| |
Frame2
|
HASIL
| |
Text1
|
absentext
| |
Text2
|
tugasteks
| |
Text3
|
utsteks
| |
Text4
|
uasteks
| |
Text5
|
nilaiakhirteks
|
False
|
Text6
|
Gradeteks
|
False
|
Label1
|
Absen
| |
Label2
|
Tugas
| |
Label3
|
UTS
| |
Label4
|
UAS
| |
Label5
|
Nilai Akhir
| |
Label6
|
Grade
| |
CommandButton1
|
&Hasil
| |
CommandButton2
|
Reset
|
Coding lengkapnya:
---------------------------------------------------------------------------------------------
'catatan : double bisa untuk bilangan koma
Dim absen As Double 'membuat variable absen bernilai double
Dim tugas As Double 'membuat variable tugas bernilai double
Dim uts As Double 'membuat variable uts bernilai double
Dim uas As Double 'membuat variable uas bernilai double
Dim NilaiAkhir As Double 'membuat variable NilaiAkhir bernilai double
---------------------------------------------------------------------------------------------------------------------------------------------
Private Sub Cmd_Hasil_Click()
'jika semua teks kosong maka akan keluar bos pesan(msgbox) kalau tidak akan menghitung semua
If Me.absentext.Text = "" Or _
Me.tugasteks.Text = "" Or _
Me.utsteks.Text = "" Or _
Me.uasteks.Text = "" Then
MsgBox "Teks Tidak Boleh Kosong", vbCritical, "Dilarang Keras"
'isnumeric adalah teks tersebut adalah angka
ElseIf IsNumeric(Me.absentext.Text) = False Or _
IsNumeric(Me.tugasteks.Text) = False Or _
IsNumeric(Me.utsteks.Text) = False Or _
IsNumeric(Me.uasteks.Text) = False Then
MsgBox "Tidak boleh menggunakan huruf", vbCritical, "Dilarang Keras"
Cmd_Reset_Click 'codingnya sama dengan cmd_reset_click
Else
absen = Me.absentext * ((100 / 14) * 0.1) 'absen 10% dari kehadiran
tugas = Me.tugasteks * 0.2 'tugas 20%
uts = Me.utsteks * 0.3 'uts 30%
uas = Me.uasteks * 0.4 'uas 40%
NilaiAkhir = absen + tugas + uts + uas 'hitung semua nilai variable
Me.nilaiakhirteks = NilaiAkhir 'hasil hitungan semuanya sama dengan teks nilai akhir
If Me.nilaiakhirteks.Text >= 79.5 Then
Me.Gradeteks.Text = "A"
ElseIf Me.nilaiakhirteks.Text >= 69.5 Then
Me.Gradeteks.Text = "B"
ElseIf Me.nilaiakhirteks.Text >= 59.5 Then
Me.Gradeteks.Text = "C"
ElseIf Me.nilaiakhirteks.Text >= 49.5 Then
Me.Gradeteks.Text = "D"
Else
Me.Gradeteks.Text = "E"
End If
End If
End Sub
-----------------------------------------------------------------------------------------------------------------------------------------------------
Private Sub Cmd_Reset_Click()
'membuat semua teks yang sudah diisi menjadi hilang
Me.absentext.Text = ""
Me.tugasteks.Text = ""
Me.utsteks.Text = ""
Me.uasteks.Text = ""
Me.nilaiakhirteks.Text = ""
Me.Gradeteks.Text = ""
End Sub
Komentar
Posting Komentar