Bila diketahui nilai angka antara 0-49 maka nilai E
Bila diketahui nilai angka antara 50-59 maka nilai D
Bila diketahui nilai angka antara 60-69 maka nilai C
Bila diketahui nilai angka antara 71-79 maka nilai B
Bila diketahui nilai angka antara 80-100 maka nilai A
Untuk menjawab permasalah di atas maka kita menggunakan IF Jamak dengan bentuk struktur IF Jamak seperti dibawah ini.
IF kondisi then
pernyataan1
ELSE IF Kondisi then
pernyataan2
ELSE IF Kondisi then
....
ELSE
....
END IF
Screen Shot hasil :
Listing Program sebagai berikut :
Public Class Form1
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
Dim tombol As Integer = Asc(e.KeyChar)
Dim nilai As Integer
If tombol = 13 Then
nilai = TextBox1.Text
If nilai >= 80 Then
TextBox2.Text = "A"
ElseIf nilai >= 70 Then
TextBox2.Text = "B"
ElseIf nilai >= 60 Then
TextBox2.Text = "C"
ElseIf nilai >= 50 Then
TextBox2.Text = "D"
ElseIf nilai >= 0 Then
TextBox2.Text = "E"
Else
TextBox2.Text = ""
End If
End If
End Sub
End Class
Sekian Semoga bisa bermanfaat :)
Sumber : KLIK