Percobaan dan Latihan Keputusan Case

Desain Program sebagai berikut:

Objek	Name
TextBox1	TxtNPA
TextBox2	TxtNPs
TextBox3	TxtHasil
Button1	BtnProses
Button2	BtnBersih
Button3	BtnTutup

 

Alur Program sebagai berikut:

-    Input Nilai Potensi Akademik dan Nilai Psikotes

-    Klik Proses, maka akan tampil Keterangan LULUS atau GAGAL pada hasil.

     Pengujiannya sebagai berikut:

     Jika Nilai Potensi Akademik 85 keatas DAN Nilai Psikotes 75 keatas maka hasil: “LULUS” selain itu hasil: “GAGAL”

Kode Program:

Kode program diketik pada Objek Button1 (BtnProses)  sbb:

Private Sub BtnProses_Click(ByVal sender As System.Object,… 

    If Txtnpa.Text >= 85 And Txtnps.Text >= 75 Then

          Txthasil.Text = "LULUS"

      Else

          Txthasil.Text = "GAGAL"

      End If

End Sub

Percobaan:

1. Ganti Operator And menjadi Or.  Jalankan Program dan lihat hasilnya.

2. Ganti Operator Or menjadi Not. Jalankan Program dan lihat hasilnya.

Latihan:

Buka Program Penggunaan ComboBox pada pertemuan (Modul) sebelumnya. Ubah penggunaan fungsi IF menjadi Select Case.

 ______________________________________________________________

Percobaan :
1. Ganti Operator And menjadi Or.  Jalankan Program dan lihat hasilnya.

Operator And

Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click

        If txtnpa.Text >= 85 And txtnps.Text >= 75 Then

            txthasil.Text = "LULUS"

        Else

            txthasil.Text = "GAGAL"

        End If

    End Sub

Operator Or 
Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click

        If txtnpa.Text >= 85 Or txtnps.Text <= 75 Then

            txthasil.Text = "LULUS"

        Else

            txthasil.Text = "GAGAL"

        End If

    End Sub

  

2. Ganti Operator Or menjadi Not. Jalankan Program dan lihat hasilnya.

Operator Not

Private Sub btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnproses.Click

        If Not txtnpa.Text >= 85 and txtnps.Text <= 75 Then

            txthasil.Text = "LULUS"

        Else

            txthasil.Text = "GAGAL"

        End If

    End Sub

Hasil Percobaan,

And = False and True (Lulus dan Gagal)

Or = True and True (Lulus dan Lulus)

Not = False and True (Gagal dan Lulus)

 

 ______________________________________________________________

     

Latihan : 

Buka Program Penggunaan ComboBox pada pertemuan (Modul) sebelumnya. Ubah penggunaan fungsi IF menjadi Select Case

 

Langsung saja kita ganti kode Programnya :

Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click

        Select Case Val(TxtJpr.Text)

            Case Is <= 1000

                CboKb.Text = "PL02"

                TxtNb.Text = "Pulpen Standart"

                TxtJpr.Text = "1000"

            Case Is <= 2000

                CboKb.Text = "PL01"

                TxtNb.Text = "Pulpen Pilot"

                TxtJpr.Text = "2000"

            Case Is <= 2500

                CboKb.Text = "BK01"

                TxtNb.Text = "Buku AA 60 Lembar"

                TxtJpr.Text = "2500"

            Case Is <= 3000

                CboKb.Text = "BK02"

                TxtNb.Text = "Buku Sinar Dunia 50 Lembar"

                TxtJpr.Text = "3000"

            Case Else

                TxtNb.Text = "Tidak Ada"

        End Select

    End Sub

  

dan saat kita jalankan ini hasilnya, 

Catatan :
Pada ComboBox Penggunaan IF, data dan kode Program yang ada tidak Berurut, jadi di dalam Penggunaan Select case data atau kode program harus Berurutan, jadi Sebelum Kode Program di Input, urutkan datanya terlenih daluhu.

SELESAI.!!