Penggunaan If pada Visual Basic

Assalamualaikum..............
Di sini saya akan memposting tentang penggunaan if pada Visual Basic (VB) dan VB yang saya gumakan adalah VB 2008.
Postingan kali ini yaitu MENGHITUNG NILAI MAHASIAWA dengan penggunaan if majemuk, yaitu: 
If kodisi1 then
pernyataan1
elseif kondisi2 then
pernyataan2
else
pernyataan3
End if

Pertama buat form Design pada VB seperti gambar di bawah ini

Yang dibutuhkan saat membuat form design yaitu:

1. Label

2. ComboBox

3. ListBox

4. Button

 

Setelah form Design selesai dibuat selanjutnya masukkan codding di bawah ini:

 

 Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        npm.Items.Add("14110111")
        npm.Items.Add("14110112")
        npm.Items.Add("14110113")

        jenjang.Items.Add("S1")
        jenjang.Items.Add("D3")

      
        matakul.Items.Add("Struktur Data")
        matakul.Items.Add("Pmograman Visual")
        matakul.Items.Add("Sistem Basis Data")
        matakul.Items.Add("Sistem Operasi")

        dosen.Items.Add("Noferianto Sitompul, M.Kom.")
        dosen.Items.Add("Mesran, M.Kom.")
        dosen.Items.Add("M. Iqbal Batubara, M.Kom.")
        dosen.Items.Add("Yasir Hasan, M.Kom.")

        akhir.Enabled = False
        huruf.Enabled = False
        ket.Enabled = False
        nama.Enabled = False
    End Sub

    Private Sub npm_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles npm.SelectedIndexChanged
        If npm.Text = "14110111" Then
            nama.Text = "Nita"
        ElseIf npm.Text = "14110112" Then
            nama.Text = "Andi"
        ElseIf npm.Text = "14110113" Then
            nama.Text = "Joko"
        End If
    End Sub

    Private Sub btnha_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnha.Click
        npm.Text = ""
        nama.Text = ""
        jenjang.Text = ""
        matakul.Text = ""
        jurusan.Text = ""
        dosen.Text = ""
        nh.Text = ""
        nt.Text = ""
        uts.Text = ""
        uas.Text = ""
        akhir.Text = ""
        huruf.Text = ""
        ket.Text = ""
    End Sub

    Private Sub btnkel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkel.Click
        End
    End Sub

    Private Sub btnpro_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnpro.Click
        akhir.Text = Val(nh.Text * 0.1) + Val(nt.Text * 0.2) + Val(uts.Text * 0.3) + Val(uas.Text * 0.4)
        If akhir.Text >= "85 - 100" Then
            huruf.Text = "A"
        ElseIf akhir.Text >= "78 - 84" Then
            huruf.Text = "B+"
        ElseIf akhir.Text >= "70 - 77" Then
            huruf.Text = "B"
        ElseIf akhir.Text >= "65 - 69" Then
            huruf.Text = "C+"
        ElseIf akhir.Text >= "59 - 64" Then
            huruf.Text = "C"
        ElseIf akhir.Text >= "50 - 58" Then
            huruf.Text = "D"
        Else
            huruf.Text = "E"
        End If

        If akhir.Text >= 50 Then
            ket.Text = "Lulus"
        ElseIf akhir.Text < 50 Then
            ket.Text = "Gagal"
        End If
    End Sub

    Private Sub jenjang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jenjang.SelectedIndexChanged
        jurusan.Items.Clear()
        If jenjang.Text = "S1" Then
            jurusan.Items.Add("TI")
            jurusan.Items.Add("SI")
        ElseIf jenjang.Text = "D3" Then
            jurusan.Items.Add("MI")
            jurusan.Items.Add("KA")
        End If

    End Sub
End Class

Setelah codding selesai  dibuat coba jalankan VB dengan menekan tombol Start Debugging atau tkan tombol F5 pada keyboard Anda.

Jika berhasil maka hasilnya seperti gambar berikut:

Sedikit berbagi ilmu tentang metode penggunaan if dalam VB

Semoga bermanfaat dan selamat mencoba!

Wassalamualaikum..............

Related Posts:

Tweet