Pages

Friday 12 April 2013

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

No comments:

Post a Comment