Cara Membuat Program "Penghitung Nilai Akhir" Pada Visual Basic 6.0
Buat tampilan program seperti gambar di bawah 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 J
