Cara Membuat Program "Penghitung Nilai Akhir" Pada Visual Basic 6.0

Kali ini adalah tutorial untuk membuat program PENGHITUNG NILAI AKHIR. Sangat cocok untuk guru, dosen, atau pengajar lain karena persentase nilai ditentukan pada program sehingga untuk memberikan nilai akhir hanya tinggal memasukkan nilai-nilainya. tidak perlu repot menjumlahkan nilai satu per satu.


Contoh program seperti gambar dibawah ini:

Prosentase Penilaian :

Nilai Partisipasi  : 20 %

Nilai Tugas           : 30 %

Nilai UTS              : 20 %

Nilai UAS              : 30 %

Rumus Nilai Akhir : (Nilai Partisipasi) + (Nilai Tugas) + (Nilai UTS) + (Nilai UAS)

Untuk Menentukan Nilai Huruf dan Keterangan (“Lulus” atau “Tidak Lulus”) gunakan percabangan dengan melihat ketentuan sebagai berikut :

HURUF	KONDISI
A	85 <= A <= 100
A-	80 <= A- < 85
B+	75 <= B+ < 80
B	70 <= B < 75
B-	65 <= B- < 70
C+	60 <= C+ < 65
C	55 <= C < 60
D	40 <= D < 55
E	0 <= E < 40

Inilah kode programnya agar program tersebut dapat digunakan dengan benar :

Private Sub Command1_Click()

Text5.Text = Val(Text1.Text * 0.2) + Val(Text2.Text * 0.3) + Val(Text3.Text * 0.2) + Val(Text4.Text * 0.3)

If Val(Text5.Text) < 40 Then

Text6.Text = "E"

Label9.Caption = "Tidak Lulus"

Else

If Val(Text5.Text) >= 40 And Val(Text5.Text) < 55 Then

Text6.Text = "D"

Label9.Caption = "Tidak Lulus"

Else

If Val(Text5.Text) >= 55 And Val(Text5.Text) < 60 Then

Text6.Text = "C"

Label9.Caption = "Lulus"

Else

If Val(Text5.Text) >= 60 And Val(Text5.Text) < 65 Then

Text6.Text = "C+"

Label9.Caption = "Lulus"

Else

If Val(Text5.Text) >= 65 And Val(Text5.Text) < 70 Then

Text6.Text = "B-"

Label9.Caption = "Lulus"

Else

If Val(Text5.Text) >= 70 And Val(Text5.Text) < 75 Then

Text6.Text = "B"

Label9.Caption = "Lulus"

Else

If Val(Text5.Text) >= 75 And Val(Text5.Text) < 80 Then

Text6.Text = "B+"

Label9.Caption = "Lulus"

Else

If Val(Text5.Text) >= 80 And Val(Text5.Text) < 85 Then

Text6.Text = "A-"

Label9.Caption = "Lulus"

Else

If Val(Text5.Text) >= 85 And Val(Text5.Text) <= 100 Then

Text6.Text = "A"

Label9.Caption = "Lulus"

Else

If Val(Text5.Text) > 100 Then

Text6.Text = "-"

Label9.Caption = "Nilai Yang Diinputkan Terlalu Besar"

End If

End If

End If

End If

End If

End If

End If

End If

End If

End If

End Sub

Private Sub Command2_Click()

Text1.Text = Clear

Text2.Text = Clear

Text3.Text = Clear

Text4.Text = Clear

Text5.Text = Clear

Text6.Text = Clear

Label9.Caption = Clear

End Sub

Private Sub Command3_Click()

Unload Me

End Sub

Inilah tampilan ketika program dijalankan.

..
SELESAI