PRAKTEK 4 - CARA MENGHITUNG NILAI AKHIR MENGGUNAKAN VISUAL STUDIO

Kali ini saya akan membuat tutorial cara menghitung nilai akhir dan menampilkan nilai huruf dengan menggunakan if dan else if di Microsoft visual basic 2010 express.

Langkah-langkahnya adalah sebagai berikut :

1.      Buka aplikasi  Microsoft visual basic 2010 express ->file->New Project->Windows Form Application, isikan namanya menghitung nilai akhir. Kemudian klik ok.

2.      Kemudian buat tampilan seperti di bawah ini, yang terdiri dari 1 groupbox, 7 label, 7 textbox dan 3 button.

Kemudian ubah semua nama text sesuai kebutuhan.

Keterangan :
Form1 = menghitung nilai akhir

Groupbox 1 = Daftar Nilai

Label1 = Absen

Label2 = Tugas

Label3 = Keaktifan

Label4 = Nilai Uts

Label 5 =  Nilai Uas

Label 6 = Nilai Akhir

Label 7 = Huruf

Button1 = Hitung / btnHitung(name)

Button2 = Clear / btnClear(name)

Button3 = Exit / btnExit(name)

Untuk "name" textboxnya juga di ubah sesuai kebutuhan

Keterangan :

TextBox1 = txtAbsen

TextBox2 =txtTugas

TextBox3 = txtKeaktifan

TextBox4 = txtUts

TextBox5 = txtUas

TextBox6 =txtNilaiAkhir

TextBox7 = txtHuruf

Hingga tampilannya seperti ini.

3.      Setelah itu kemudian masukan source kodenya ke masing-masing button.

·         Button hitung source kodenya adalah sebagai berikut :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles btnHitung.Click

              Dim absen, tugas, keaktifan, uts, uas As Integer

              Dim nilai, huruf As Integer

                        absen = txtAbsen.Text * 20 / 100

                        tugas = txtTugas.Text * 15 / 100

                        keaktifan = txtKeaktifan.Text * 10 / 100

                        uts = txtUts.Text * 25 / 100

                        uas = txtUas.Text * 30 / 100

                        nilai = absen + tugas + keaktifan + uts + uas

                        txtNilaiAkhir.Text = nilai

                        txtHuruf.Text = huruf

                        If nilai > 85 Then

                       txtHuruf.Text = "A"

                        ElseIf nilai > 70 Then

                        txtHuruf.Text = "B"

                        ElseIf nilai > 50 Then

                        txtHuruf.Text = "C"

                        ElseIf nilai > 30 Then

                        txtHuruf.Text = "D"

                        ElseIf nilai > 10 Then

                        txtHuruf.Text = "E"

                        End If

                         End Sub

·         button Clear source kodenya adalah sebagai berikut :

Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles btnClear.Click

            txtAbsen.Clear()

            txtHuruf.Clear()

            txtKeaktifan.Clear()

            txtNilaiAkhir.Clear()

            txtTugas.Clear()

            txtUas.Clear()

            txtUts.Clear()

                        End Sub

·         button Exit source kodenya adalah sebagai berikut :

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button3.Click

                          Me.Close()

                          End Sub

  End Class

4.      Setelah semua selesai, run program. Maka tampilannya awal nya akan seperti ini

Kemudian isi textbox sesuai dengan kebutuhan. Saya ambil contoh nilai absen 90, nilai tugas 80, nilai keaktifan 80, nilai uts 90, dan nilai uas 90. Maka hasilnya adalah sebagai berikut .

Jadi nilai akhir anda adalah 87 dan anda mendapat nilai A.

Untuk menghapus semua data , kita klik button Clear . maka hasilnya kembali seperti tampilan awal ketika di run. Tampilannya seperti di bawah ini :

Dan untuk keluar dari program kita tinggal menekan button Exit.

Sekian tutorial sederhana mengenai cara menghitung nilai akhir.

Selamat mencoba

Semoga bermanfaat