Wednesday, October 7, 2015

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.
Contoh Program konversi nilai mahasiswa menggunakan Visual Basic
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. :)

23 comments:

  1. Replies
    1. This comment has been removed by the author.

      Delete
  2. Itu Nilainya belum di deklarasikan coba tambahin
    Dim Nilai As Integer

    ReplyDelete
  3. This comment has been removed by the author.

    ReplyDelete
  4. Makasih banyak ya... Sangat membantu.
    Oh ya.. Utk mendapatkan nilai itu kan
    Nilai = (0.2 * Tugas + 0.3 * UTS + 0.5 * uas)

    Nilai 0.2 0.3 .0.5, ditentukan drmana ya? Kenapa dikaliakan angka sekian?
    Mohon jawabannya.
    Terimakasih.

    ReplyDelete
    Replies
    1. Nilai 0.2 0.3 .0.5, biasanya diambil dari kontrak kuliah..20% 30% 50 % total 100%

      Delete
  5. This comment has been removed by the author.

    ReplyDelete
  6. Terima kasih saya akan coba untuk penilaian siswa saya

    ReplyDelete
  7. Terima kasih saya akan coba untuk penilaian siswa saya

    ReplyDelete
  8. Terima kasih saya akan coba untuk penilaian siswa saya

    ReplyDelete
  9. kok nilai huruf nya dan komentar tidak mau muncul ya

    ReplyDelete
  10. Coding pada NIM = TextNIM.Text ada masalah bisa minta tolong apa yang salah ya? Terimakasih

    ReplyDelete
  11. mohon bantuan nya,kenapa nilai angka saya tidak muncul hanya yg muncul true knp itu ya

    ReplyDelete
  12. This comment has been removed by the author.

    ReplyDelete
  13. Owh iyaa text.nama.setFocus itu ndak ush dituliss hapus sj .trs yg Nilai eror itu ditambahin Dim Nilai As Integer di bagian bawah BtnHitung

    ReplyDelete
  14. Coding pada NIM = TextNim.Text ad masalah tolong apa yang salah ya?? infonya donk..
    Terima kasih

    ReplyDelete
  15. Dapatkan Penghasilan Tambahan Dengan Bermain Poker Online di www,SmsQQ,com

    Keunggulan dari smsqq adalah
    *Permainan 100% Fair Player vs Player - Terbukti!!!
    *Proses Depo dan WD hanya 1-3 Menit Jika Bank Tidak Gangguan
    *Minimal Deposit Hanya Rp 10.000
    *Bonus Setiap Hari Dibagikan
    *Bonus Turn Over 0,3% + 0,2%
    *Bonus referral 10% + 10%
    *Dilayani Customer Service yang Ramah dan Sopan 24 Jam NONSTOP
    *Berkerja sama dengan 4 bank lokal antara lain : ( BCA-MANDIRI-BNI-BRI )

    Jenis Permainan yang Disediakan ada 8 jenis :
    Poker - BandarQ - DominoQQ - Capsa Susun - AduQ - Sakong - Bandar Poker - Bandar 66

    Untuk Info Lebih Lanjut Dapat menghubungi Kami Di :
    BBM: 2AD05265
    WA: +855968010699
    Skype: smsqqcom@gmail.com

    ReplyDelete

Blog Archive