Program Menghitung Nilai Mahasiswa Menggunakan Visual Basic (VB 6)

Perancangan Basis Data adalah mata kuliah di kampus saya yang mempelajari mengenai data base menggunakan Visual Basic (VB). Visual Basic yang akan saya gunakan untuk membuat Program Menghitung Nilai Akhir Mahasiswa lalu dikonversi dari nilai angka ke nilai huruf (A, B, C, D, E) adalah Visual Basic versi 6 atau yang disingkat dengan VB 6. Teman-teman bisa menyesuaikan, versi berapapun VB yang teman-teman gunakan, code programnya akan sama. Tidak hanya menggunakan VB kita bisa membuat program sederhana ini, kita juga bisa menggunakan Visual Studio.

Sebelum membuat sebuah program penghitung nilai mahasiswa, ada sebuah kasus atau soal yang kemudian harus kita kerjakan. Nah soal tersebutlah yang menjadi acuan dalam pembuatan program penghitung nilai mahasiswa nantinya. Berikut soalnya.

1. Hitunglah nilai mahasiswa yang melingkupi Nilai Tugas, Nilai UTS (Mid), Nilai UAS.
2. Persentase penilainya dari setiap nilai tersebut adalah sebagai berikut. 20% Nilai Tugas + 30% Nilai UTS (Mid) + 50% Nilai UAS.
3. Range nilai sebagai berikut:

• A : >85
• B : 76 - 85
• C : 66 - 75
• D : 56 - 65
• E : <56

Mari kita kerjakan soal tersebut dan memulai membuat program untuk menghitung nilai mahasiswa menggunakan visual basic.

1.  Buka VisualBasic 6 dan pilih Standard EXE

2.  Buat rancangan atau design program terlebih dahulu. Design bebas yang penting mencakup dan memenuhi soal. Sebagai contoh akan saya sajikan sebuah gambar program yang berhasil saya buat menggunakan VB 6 di bawah ini.

Program sederhana menghitung nilai mahasiswa menggunakan VisualBasic 6 (VB)

3.  Sebelum kita mulai menulis programnya, ada baiknya kita mengubah nama dari setiap item yang kita gunakan. Hal ini dilakukan guna mempermudah dalam mengingat setiap item yang kita gunakan dalam program nantinya.

• Ubah name dari Text1 (TextBox) menjadi TextNIM
• Ubah name dari Text2 (TextBox) menjadi TextNama
• Ubah name dari Text3 (TextBox) menjadi TextTugas
• Ubah name dari Text4 (TextBox) menjadi TextUTS
• Ubah name dari Text5 (TextBox) menjadi TextUAS
• Ubah name dari Text6 (TextBox) menjadi TextAngka
• Ubah name dari Text7 (TextBox) menjadi TextHuruf
• Ubah name dari Text8 (TextBox) menjadi TextKomentar
• Ubah name dari Command1 (CommandButton) menjadi BtnHitung
• Ubah name dari Command2 (CommandButton) menjadi BtnClear
• Ubah name dari Command3 (CommandButton) menjadi BtnExit

Hal di atas adalah optional! Sesuaikan dengan nama yang kamu hendaki. Tidak harus sama seperti contoh.

4.  Setalah mengganti name dari setiap item yang digunakan, saatnya menulis code program untuk menghitung nilai akhir. Ada tiga bagian dalam program nantinya. Yaitu bagian Hitung (Process), Hapus (Clear), Keluar (Exit).

Kita tulis code program untuk bagian Hapus (Clear) dahulu. Klik pada bagian mana saja untuk mulai menulis program. Klik dua kali pada BtnClear (Hapus) lalu tulis program seperti berikut:

Private Sub BtnClear_Click()
TextNIM.Text = ""
TextNama.Text = ""
TextTugas.Text = ""
TextUTS.Text = ""
TextUAS.Text = ""
TextAngka.Text = ""
TextHuruf.Text = ""
TextKomentar.Text = ""
TextNama.SetFocus
End Sub

Tulis code program untuk bagian BtnExit (Keluar)

Private Sub BtnExit_Click()
End
End Sub

Tulis code program untuk bagian BtnHitung (Process). Pada bagian process kita akan menggunakan metode perulangan If.

Private Sub BtnHitung_Click()
Dim NIM As String
    Dim Nama As String
    Dim Tugas As Double
    Dim UTS As Double
    Dim UAS As Double
    Dim Huruf As String
    Dim Angka As Double
    Dim Komentar As String
NIM = TextNIM.Text
Nama = TextNama.Text
Tugas = Val(TextTugas.Text)
UTS = Val(TextUTS.Text)
UAS = Val(TextUAS.Text)
Nilai = (0.2 * Tugas + 0.3 * UTS + 0.5 * UAS)
TextAngka.Text = Nilai

If Nilai <= 56 Then
        Huruf = "E"
        Komentar = "Nilai Anda Sangat kurang! Maaf, Anda Gagal! :'("
    ElseIf Nilai <= 65 Then
        Huruf = "D"
        Komentar = "Nilai Anda Kurang! Maaf, Maaf, Anda Gagal! :("
    ElseIf Nilai <= 75 Then
        Huruf = "C"
        Komentar = "Nilai Anda Cukup! Anda Lulus, tingkatkan lagi! :|"
    ElseIf Nilai <= 85 Then
        Huruf = "B"
        Komentar = "Nilai Anda Baik! Anda Lulus, Pertahankan! :)"
    ElseIf Nilai > 85 Then
        Huruf = "A"
        Komentar = "Nilai Anda Sangat Baik! Anda Lulus, Selamat! :')"
End If
TextHuruf.Text = Huruf
TextKomentar.Text = Komentar
End Sub

Done!

Tulis menulis code program menggunakan VB 6 selesai! Weldone! Sekarang coba untuk menjalankan program tersebut. Jika mengalami kegagalan program, coba tengok dan teliti lagi code program tersebut. Jangan sampai ada salah satu hurufpun. Untuk menghindari kesalahan ketik, biasakan menggunakan Ctrl + Space dalam penulisan code program menggunakan Visual Basic. Semoga posting mengenai contoh program menghitung nilai mahasiswa menggunakan visual basic VB 6 ini dapat membantu dan menjadi referensi teman-teman sekalian. Jika mempunyai sebuah pertanyaan, silahkan bertanya. :)

FacebookGoogle+