Cara Membuat Program Hitung IPK di Visual Basic 2012

Bismillah, kali ini saya akan share cara hitung nilai IPK, didalam program ini kita akan menggunakan struktur percabangan menggunakan If… ElseIf, yang dihitung itu nilai UTS, UAS, Absen, dan Tugas (harian).

Bobot Nilai sebagai berikut:

UTS =  30%

UAS =  50%

Absen =  10%

Tugas =  10%

*jadi total nilai keseluruhan ialah 100%

Struktur If… Elseif (Pada Program)

Jika Nilai akhir >= 80 dan Nilai akhir <=100 maka Grade Nilai menjadi “A”

Jika Nilai akhir >= 60 dan Nilai akhir <=79 maka Grade Nilai menjadi “B”

Jika Nilai akhir >= 30 dan Nilai akhir <=59 maka Grade Nilai menjadi “C”

Jika Nilai akhir >= 1 dan Nilai akhir <=29 maka Grade Nilai menjadi “D”

Jika Nilai akhir = 0 maka Grade F

PEMBUATAN PROGRAM

Seperti biasa, buat desain program nya (saya tulis yg penting saja, untuk Label nya bisa menyesuaikan sendiri, karena tidak masuk alur system program,, missal Label1 diganti text nya jadi NIM, dst)  oke, ubah properties program sebagai berikut:

TextBox1 =  txtNim

TextBox2 =  txtNama

TextBox3 =  txtJurusan

TextBox4 =  txtUts

TextBox5 =  txtUas

TextBox6 =  txtAbsen

TextBox7 =  txtTugas

TextBox8 =  txtAkhir

TextBox9 =  txtGrade

Button1  =  btnProses

Button2  =  btnHapus

Button3  =  btnKeluar

CODING PROGRAM

Lakukan double klik pada btnProses dan tulis coding sebagai berikut:

Private Sub btnProses_Click(sender As Object, e As EventArgs) Handles btnProses.Click

        Dim uts, uas, absen, tugas, nilai_akhir As Double

        Dim angka As String

        uts = txtUts.Text

        uas = txtUas.Text

        absen = txtAbsen.Text

        tugas = txtTugas.Text

        txtAkhir.Text = ((30 / 100) * uts) + ((50 / 100) * uas) + ((10 / 100) * absen) + ((10 / 100) * tugas)

        nilai_akhir = txtAkhir.Text

        If nilai_akhir >= "80" And nilai_akhir <= "100" Then

            txtGrade.Text = "A"

        ElseIf nilai_akhir >= "60" And nilai_akhir <= "79" Then

            txtGrade.Text = "B"

        ElseIf nilai_akhir >= "30" And nilai_akhir <= "59" Then

            txtGrade.Text = "C"

        ElseIf nilai_akhir >= "1" And nilai_akhir <= "29" Then

            txtGrade.Text = "D"

        Else : nilai_akhir = "0"

            txtGrade.Text = "E"

            angka = txtGrade.Text

        End If

    End Sub

Langkah selanjutnya, double klik pada btnHapus kemudian lakukan coding sebagai berikut:

Private Sub btnHapus_Click(sender As Object, e As EventArgs) Handles btnHapus.Click

        txtNim.Text = ""

        txtNama.Text = ""

        txtJurusan.Text = ""

        txtUts.Text = ""

        txtUas.Text = ""

        txtAbsen.Text = ""

        txtTugas.Text = ""

        txtAkhir.Text = ""

        txtGrade.Text = ""

    End Sub

Coding di atas berfungsi untuk membersihkan/mengkosongkan area text box yang terisi.

Kemudian lakukan double klik pada btnKeluar dan lakukan coding sebagai berikut:

Private Sub btnKeluar_Click(sender As Object, e As EventArgs) Handles btnKeluar.Click

        End

    End Sub

Cuma menambahkan coding End pada kasus diatas, fungsinya yaitu agar ketika di klik pada button, maka kita akan otomatis keluar dari jendela program.

Setelah selesai coding, coba lakukan running pada program. Caranya dengan megklik Start. Kemudian masukkan data-data sebagai berikut;

Jika berhasil, maka akan muncul Nilai Akhir dan Grade untuk nilai kamu..

Selamat Mencoba : )