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 :