Jumat, 25 Mei 2018

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.!! 

Tidak ada komentar:

Posting Komentar