- 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
GambarStruktur 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
Gambar Pertemuan 4.1.1.2 Struktur Kondisi IF--Then--Else--End IF
- 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)
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
