Progam Menghitung Nilai di Kampus

Hello IT lover,

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