Penggunaan IF dan ELSEIF Pada Visual Basuc 2008

Pernyataan IF dan ELSEIF  dalam Visual Basic 2008 dapat kalian lihat pada contoh program dibawah ini.

1.      Bukalah program visual basic 2008,

2.      Bukalah projeck baru,

3.      Klik file, lalu pilih new projeck (Ctrl+N),

4.      Pilih Windows Forms Application, pada Name ketikkan “Program Nilai”,

5.      Maka akan muncul tampilan seperti berikut ini :

6.      Pada form1, ubah tampilan tersebut dengan menambahkan Label, Textbox, Groupbox, dan Button pada Toolbox, tampilannya seperti berikut ini :

Property object program nilainya :

Object	Property	Pengaturan
Label 1	Nama	Lblnilaiangka
	Text	Nilai angka
Label 2	Nama	Lblnilaihuruf
GroupBox 1	Nama	GroupBox 1
	Text	Nilai Huruf
Textbox 1	Nama	Txtnilaiangka
Button 1	Nama	Btnmulai
	Text	Mulai
Button 2	Nama	Btnproses
	Text	Proses
Button 3	Nama	Btnselesai
	Text	Selesai
Form1	Text	Program Nilai

7.      Pada button selesai kliklah codingnya seperti dibawah ini :

Public Class Form1

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnselesai.Click

        End

    End Sub

8.      Pada button mulai kliklah codingnya seperti dibawah ini :

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnmulai.Click

        Txtnilaiangka.Clear()

        Txtnilaiangka.ReadOnly = False

        Lblnilaihuruf.Text = ""

  Txtnilaiangka.focus()

    End Sub

9.       Pada button proses kliklah coding if,  if else   seperti dibawah ini :

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click

        If Txtnilaiangka.Text > 100 Then

            MessageBox.Show("Data yang anda masukkan salah !", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)

        ElseIf Txtnilaiangka.Text >= 80 Then

            Lblnilaihuruf.Text = "Nilai anda adalah A  (Sangat  Baik)"

        ElseIf Txtnilaiangka.Text >= 67 And Txtnilaiangka.Text <= 79 Then

            Lblnilaihuruf.Text = "Nilai anda adalah B (Baik)"

        ElseIf Txtnilaiangka.Text >= 56 And Txtnilaiangka.Text <= 66 Then

            Lblnilaihuruf.Text = "Nilai anda adalah C  (Cukup)"

        ElseIf Txtnilaiangka.Text >= 40 And Txtnilaiangka.Text <= 55 Then

            Lblnilaihuruf.Text = "Nilai anda adalah D  (Kurang Baik)"

        ElseIf Txtnilaiangka.Text <= 40 Then

            Lblnilaihuruf.Text = "Nilai anda adalah E  (Jelek)"

        End If

    End Sub

10. Klik dua kali pada txtnilaiangka, ubahlah TextChanged pada sudut kanan menjadi Keypress, lalu kliklah codingnya seperti berikut ini :

Private Sub Txtnilaiangka_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Txtnilaiangka.KeyPress

        If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then

            e.Handled = True

        End If

End Class

11.   Sekarang jalankanlah Program Nilai, tekan tombol  f5 atau klik menu debug dan pilih start debugging .. . . .

Selamat Mencoba........

Semoga sukses.............