Contoh program Penggunaan IF dalam VB.NET

Contoh program Penggunaan IF dalam VB.NET

  22:55    Unknown

---

Penggunaan If dalam Visual Basic


Public Class Form1

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles istanto.Click

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        npm.Text = ""
        nama.Text = ""
        semester.Text = ""
        matakuliah.Text = ""
        hp.Text = ""
        kehadiran.Text = ""
        kuis.Text = ""
        uts.Text = ""
        uas.Text = ""
        total.Text = ""
        nilai.Text = ""
        keterangan.Text = ""
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        Me.Close()
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.BackColor = Color.ForestGreen
     
        semester.Items.Add("1")
        semester.Items.Add("2")
        istanto.Visible = False
        sawaluddin.Visible = False
        reza.Visible = False
        suharni.Visible = False
        yogi.Visible = False


    End Sub

    Private Sub npm_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.TextChanged
        istanto.Visible = False
        sawaluddin.Visible = False
        reza.Visible = False
        suharni.Visible = False
        yogi.Visible = False
        If npm.Text = "14110062" Then
            nama.Text = "istanto"
            hp.Text = "085261751623"
            istanto.Visible = True
        ElseIf npm.Text = "13110063" Then
            nama.Text = "sawaluddin"
            hp.Text = "082268541192"
            sawaluddin.Visible = True
        ElseIf npm.Text = "12110064" Then
            nama.Text = "reza"
            hp.Text = "082268545541"
            reza.Visible = True
        ElseIf npm.Text = "11110065" Then
            nama.Text = "suharni"
            hp.Text = "082268542275"
            suharni.Visible = True
        Else
            nama.Text = "yogi"
            hp.Text = "087754213387"
            yogi.Visible = True
     


        End If
    End Sub

    Private Sub semester_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles semester.SelectedIndexChanged
        matakuliah.Items.Clear()
        If semester.Text = "1" Then
            matakuliah.Items.Add("kalkulus")
            matakuliah.Items.Add("bahasa inggris")
            matakuliah.Items.Add("agama")
        Else
            matakuliah.Items.Add("kalkulus II")
            matakuliah.Items.Add("visual I")
            matakuliah.Items.Add("konsep pemograman")

        End If

    End Sub

    Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click
        total.Text = 0.1 * Val(kehadiran.Text) + 0.15 * Val(kuis.Text) + 0.3 * Val(uts.Text) + 0.45 * Val(uas.Text)
        If total.Text <= 49 Then
            nilai.Text = "E"
            keterangan.Text = "Tidak lulus"
        ElseIf total.Text <= 59 Then
            nilai.Text = "D"
            keterangan.Text = "Tidak lulus"
        ElseIf total.Text <= 69 Then
            nilai.Text = "C"
            keterangan.Text = "Lulus"
        ElseIf total.Text <= 79 Then
            nilai.Text = "B"
            keterangan.Text = "Lulus"
        ElseIf total.Text >= 80 Then
            nilai.Text = "A"
            keterangan.Text = "Lulus"

        End If

    End Sub

    Private Sub suharni_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles suharni.Click

    End Sub
End Class

Okeh sekian yang dapat saya buat semoga bermamfaat bagi kita semua......GBU