PERTEMUAN 5 :MATERI KEPUTUSAN IF DAN CASE

• Selection Menggunakan( IF --Then--End IF) Merupakan logika berkondisi pada blok yang memberikan syarat khusus, fungsinya adalah sebagai pengendali untuk suatu pernyataan code, sehingga memungkinkan programmer untuk menentukan tindakan yang berbeda ketika kondisi benar atau kondisi salah.

Contoh Soal :

Apabila terdapat pernyataan jika jenis kelamin adalah Laki-Laki maka bernilai 1 selain itu cewek dan bernilai 0

Penyelesaian menggunakan code Visual Studio 2008 :

Gambar Pertemuan 4.1 Struktur Kondisi IF --Then--End IF

 Gambar
Struktur kondisi IF dengan dua kondisi (Laki-Laki atau Perempuan) sebagai berikut (IF--Then--Else-End-- IF)

Code diatas memiliki arti, jika nilai lebih besar sama dengan 85 (Kondisi) maka (Then) akan memunculkan pernyataan “Anda Lulus” (pernyataan Ke-1) selain itu “Anda Tidak Lulus” (pernyataan Ke-2). Struktur kondisi IF dengan kondisi lebih dari dua sebagai berikut :

        Contoh Koding :

        If TxtNilai.Text >= 85 Then

            TxtHasil.Text = "Anda Lulus"

        Else

            TxtHasil.Text = "Anda Tidak Lulus"

        End If
 

Public Class Form2

    Private Sub ButtonProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonProses.Click

        If TxtNilai.Text >= 85 Then

            TxtHasil.Text = "LULUS"

        ElseIf TxtNilai.Text >= 75 Then

            TxtHasil.Text = "DAFTAR PENGGANTI"

        Else

            TxtHasil.Text = "GAGAL"

        End If

    End Sub

    Private Sub ButtonBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonBersih.Click

        TxtNilai.Clear()

        TxtHasil.Clear()

    End Sub

    Private Sub ButtonTutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonTutup.Click

        End

 End Sub

   

 

 

 

 

Struktur kondisi IF sederhana sebagai berikut (If--Then--End If) :

Gambar Pertemuan 4.1.1 Struktur Kondisi  If--Then--End If

Struktur kondisi IF dengan dua kondisi (Laki-Laki atau Perempuan) sebagai berikut (IF--Then--Else--End IF):

                            Gambar Pertemuan 4.1.1.2 Struktur Kondisi IF--Then--Else--End IF

                         

Selection  Menggunakan  (Select Case--End Select )    

                      

• Selection  Menggunakan  (Select Case--End Select )Selain menggunakan Statement IF anda dapat juga menggunakan Select Case, perbedaan Statement IF dan Select Case adalah Jika dalam perintah IF pengecekan dilakukan berdasarkan kondisi, namun dalam select case pengecekan dilakukan berdasarkan nilai ekspresi. Berikut ini sintak dari Select Case--End Select  :

                     Gambar Pertemuan 4.2Struktur Kondisi Select Case--End Select 

                Contoh Koding :

            Select Case Val(TxtJumlahPointReward.Text)

            Case Is <= 1000

                TxtHadiah.Text = "Mug Cantik"

            Case Is <= 1500

                TxtHadiah.Text = "Boneka Cantik"

            Case Is <= 2000

                TxtHadiah.Text = "Kipas Angin"

            Case Is <= 2500

                TxtHadiah.Text = "Dispenser"

            Case Else

                TxtHadiah.Text = "TIDAK ADA"

             End Select

• Selection  Menggunakan  (Select Case--To--End Select )Selain menggunakan Statement IF anda dapat juga menggunakan Select Case, perbedaan Statement IF dan Select Case adalah Jika dalam perintah IF pengecekan dilakukan berdasarkan kondisi, namun dalam select case pengecekan dilakukan berdasarkan nilai ekspresi lanjutan. Berikut ini sintak dari (Select Case--To--End Select) :

            Contoh Koding :
            Select Case Val(TxtJumlahPointReward.Text)

            Case 500 To 1000

                TxtHadiah.Text = "Mug Cantik"

            Case 1001 To 1500

                TxtHadiah.Text = "Boneka Cantik"

            Case 1501 To 2000

                TxtHadiah.Text = "Kipas Angin"

            Case 2001 To 2500

                TxtHadiah.Text = "Dispenser"

            Case Else

                TxtHadiah.Text = "TIDAK ADA"

             End Select

Gambar

Gambar Desain Form 4.3.3ComboBox

Gambar4.3.4 Desain Form ComboBox

Public Class Form3

    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub ComboKodeBarang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboKodeBarang.SelectedIndexChanged

        If ComboKodeBarang.Text = "PL01" Then

            TxtNamaBarang.Text = "PULPEN PILOT"

            TxtHargaBarang.Text = 1200

        ElseIf ComboKodeBarang.Text = "PL02" Then

            TxtNamaBarang.Text = "PULPEN STANDAR"

            TxtHargaBarang.Text = 1000

        ElseIf ComboKodeBarang.Text = "BK01" Then

            TxtNamaBarang.Text = "BUKU AA 60 LBR"

            TxtHargaBarang.Text = 3000

        Else

            TxtNamaBarang.Text = "BUKU SINAR DUNIA 50 LBR"

            TxtHargaBarang.Text = 3000

        End If

    End Sub

 

End Class

Gambar 4.3.5 Koding ComboBox

Gambar 4.3.5 ComboBox 

 

Gambar 4.4.1 Design

Aplikasi Program IF-ELSE

Untuk menjalankan program, klik tombol Start Debugging atau tekan tombol F5 pada keyboard.

Untuk menutup program, klik tombol Stop Debugging        

• Tampilan Program setelah dijalankan sebagai berikut :

                                                     Gambar 4.5  Aplikasi Program IF-ELSE Dijalankan

Gambar 4.5.1  Aplikasi Program IF-ELSE Dijalankan