Program Mengkalkulasikan Nilai Mahasiswa Menggunakan Visual Basic (Vb 6) - Sun Go Blog

Perancangan Basis Data yaitu mata kuliah di kampus saya yang mempelajari perihal data base menggunakan Visual Basic (VB). Visual Basic yang hendak saya pakai untuk menghasilkan Program Menghitung Nilai Akhir Mahasiswa kemudian dikonversi dari nilai angka ke nilai abjad (A , B , C , D , E) yaitu Visual Basic model 6 atau yang disingkat dengan VB 6. Teman-teman sanggup menyesuaikan , model berapapun VB yang teman-teman gunakan , code programnya akan sama. Tidak cuma menggunakan VB kita sanggup menghasilkan agenda sederhana ini , kita juga sanggup menggunakan Visual Studio.

Sebelum menghasilkan suatu agenda penghitung nilai mahasiswa , ada suatu permasalahan atau soal yang kemudian mesti kita kerjakan. Nah soal tersebutlah yang menjadi contoh dalam pengerjaan agenda 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 yaitu selaku berikut. 20% Nilai Tugas + 30% Nilai UTS (Mid) + 50% Nilai UAS.
3. Range nilai selaku berikut:

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

Mari kita kerjakan soal tersebut dan mengawali membuat agenda untuk menjumlah nilai mahasiswa menggunakan visual basic.

1.  Buka VisualBasic 6 dan pilih Standard EXE

2.  Buat rancangan atau design agenda apalagi dahulu. Design bebas yang penting meliputi dan menyanggupi soal. Sebagai contoh akan saya suguhkan suatu gambar agenda yang sukses saya buat menggunakan VB 6 di bawah ini.

Program sederhana menjumlah nilai mahasiswa menggunakan VisualBasic 6 (VB)

3.  Sebelum kita mulai menulis programnya , ada baiknya kita merubah nama dari setiap item yang kita gunakan. Hal ini dijalankan guna memudahkan dalam mengingat setiap item yang kita gunakan dalam agenda 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 yaitu optional! Sesuaikan dengan nama yang kau hendaki. Tidak mesti sama seumpama contoh.

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

Kita tulis code agenda untuk bab Hapus (Clear) dahulu. Klik pada bab mana saja untuk mulai menulis program. Klik dua kali pada BtnClear (Hapus) kemudian tulis agenda seumpama berikut:

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

Tulis code agenda untuk bab BtnExit (Keluar)

Private Sub BtnExit_Click()EndEnd Sub

Tulis code agenda untuk bab BtnHitung (Process). Pada bab process kita akan menggunakan tata cara perulangan If.

Private Sub BtnHitung_Click()Dim NIM As StringDim Nama As StringDim Tugas As DoubleDim UTS As DoubleDim UAS As DoubleDim Huruf As StringDim Angka As DoubleDim Komentar As StringNIM = TextNIM.TextNama = TextNama.TextTugas = Val(TextTugas.Text)UTS = Val(TextUTS.Text)UAS = Val(TextUAS.Text)Nilai = (0.2 * Tugas + 0.3 * UTS + 0.5 * UAS)TextAngka.Text = NilaiIf Nilai <= 56 ThenHuruf = "E"Komentar = "Nilai Anda Sangat kurang! Maaf , Anda Gagal! :'("ElseIf Nilai <= 65 ThenHuruf = "D"Komentar = "Nilai Anda Kurang! Maaf , Maaf , Anda Gagal! :("ElseIf Nilai <= 75 ThenHuruf = "C"Komentar = "Nilai Anda Cukup! Anda Lulus , optimalkan lagi! :|"ElseIf Nilai <= 85 ThenHuruf = "B"Komentar = "Nilai Anda Baik! Anda Lulus , Pertahankan! :)"ElseIf Nilai > 85 ThenHuruf = "A"Komentar = "Nilai Anda Sangat Baik! Anda Lulus , Selamat! :')"End IfTextHuruf.Text = HurufTextKomentar.Text = KomentarEnd Sub

Done!

Tulis menulis code agenda menggunakan VB 6 selesai! Weldone! Sekarang coba untuk melakukan agenda tersebut. Jika mengalami kegagalan agenda , coba tengok dan teliti lagi code agenda tersebut. Jangan hingga ada salah satu hurufpun. Untuk menyingkir dari kesalahan ketik , biasakan menggunakan Ctrl + Space dalam penulisan code agenda menggunakan Visual Basic. Semoga posting perihal contoh agenda menjumlah nilai mahasiswa menggunakan visual basic VB 6 ini sanggup menolong dan menjadi acuan teman-teman sekalian. Jika mempunyai suatu pertanyaan , silahkan bertanya. :)