Membuat Aplikasi Penilaian dengan VB 2012

Pertama-tama buatlah 7 buah label, 7 buah text box dan 1 buah button. Setelah itu gantilah text pada label tersebut menjadi masing-masing NIS, Nama, Nilai Tugas, Nilai Ulangan Harian, Nilai Ulangan Semester, Nilai Akhir dan Nilai Huruf. Lalu ubahlah name pada text box menjadi txtnis, txtnam, txttugas, txtulharian, txtulsemester, txtnilaiakhir, dan txtnilai huruf. Setelah itu pada button ubahlah textnya menjadi "Proses" dan name menjadi btnproses.
Jika sudah atur tampilannya menjadi seperti gambar dibawah ini :

Setelah itu click double pada button proses, lalu tambahkan script berikut ini :

Public Class Form1

    Private Sub btnproses_Click(sender As Object, e As EventArgs) Handles btnproses.Click

        txtnilaiakhir.Text = (50 / 100 * txttugas.Text) + (20 / 100 * txtulharian.Text) + (30 / 100 * txtulsemester.Text)

        If txtnilaiakhir.Text > 85 Then

            txtnilaihuruf.Text = "A"

        ElseIf txtnilaiakhir.Text > 75 Then

            txtnilaihuruf.Text = "B"

        ElseIf txtnilaiakhir.Text > 60 Then

            txtnilaihuruf.Text = "C"

        Else

            txtnilaihuruf.Text = "D"

        End If

    End Sub

End Class

Jika sudah, coba jalankan dan inputkan nilainya. Jika berhasil maka tampilannya akan berubah menjadi seperti dibawah ini :