Minggu, 03 Februari 2013

Contoh Penggunaan If Jamak VB Net 2008

Pada postingan artikel ini akan membahas sedikit tentang contoh pengunaan if jamak pada VB Net 2008

Desain Form :
 

Source Code :



Public Class Jamak


    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click
        If Val(angka.Text >= 80 And angka.Text <= 100) Then
            huruf.Text = "A"
        ElseIf Val(angka.Text >= 75) Then
            huruf.Text = "B+"
        ElseIf Val(angka.Text >= 70) Then
            huruf.Text = "B"
        ElseIf Val(angka.Text >= 65) Then
            huruf.Text = "C+"
        ElseIf Val(angka.Text >= 60) Then
            huruf.Text = "C"
        ElseIf Val(angka.Text >= 50) Then
            huruf.Text = "D"
        Else
            huruf.Text = "E"
        End If
        If huruf.Text = "E" Then
            ket.Text = "Gagal"
        Else
            ket.Text = "Lulus"
        End If

    End Sub
End Class


Ketika dijalankan, maka akan seperti berikut :
  

Sekian pembahasan tentang pengunaan if jamak pada VB Net 2008
Semoga bermanfaat..!! :) 

Tidak ada komentar:
Write komentar