Percabangan IF dengan Operator AND dan OR (Console)

STRUKTUR IF DENGAN OPERATOR AND

Pemakaian struktur IF yang dikombinasikan dengan operator AND akan menghasilkan proses penyeleksian yang sangat ketat. Kombinasi ini mempunyai ketentuan bahwa suatu proses yang akan dijalankan bila semua

kondisi yang dipersyaratkan terpenuhi. Bentuk penulisan dari struktur IF dengan Operator AND sebagai berikut :

IF (kondisi 1 AND kondisi 2) Then

Ekspresi

End IF

Keterangan :

Kondisi 1 dan Kondisi 2 : berisi perbandingan antara satu variable/konstanta dengan variable/konstanta yang lain dengan menggunakan tanda <, >, =, <> dari suatu keadaan yang menghasilkan nilai “Benar” atau “Salah”.
AND : operator logika yang menggabungkan dua pernyataan atau lebih dengan menghasilkan nilai kondisi “Benar” jika semua pernyataan yang menyertai juga bernilai “Benar”.
Ekspresi : rangkaian kode program (blok program) yang akan dijalankan jika kondisi seluruh penyataan bernilai “Benar” (memenuhi syarat).

Contoh Program :

Imports System.Console
Module Module1
Sub Main ()
Dim Jenis As String
Dim Usia As Integer
Write (“Jenis Kelamin : “)
Jenis = Readline()
Write (“Usia : “)
Usia = Readline()
If Jenis = “Pria” And Usia >50 Then
Write (“Anda seorang : Kakek”)
Readline()
End If
End Sub
End Module

STRUKTUR IF DENGAN OPERATOR OR

Pemakaian struktur IF yang dikombinasikan dengan operator OR akan menghasilkan proses penyeleksian yang lebih longgar dibandingkan struktur IF dengan operator AND. Kombinasi ini mempunyai ketentuan bahwa suatu proses yang akan dijalankan bila salah satu kondisi yang dipersyaratkan terpenuhi. Bentuk penulisan dari struktur IF dengan Operator AND sebagai berikut :

IF (kondisi 1OR kondisi 2) Then
Ekspresi
End IF

Keterangan :

Kondisi 1 dan Kondisi 2 : berisi perbandingan antara satu variable/konstanta dengan variable/konstanta yang lain dengan menggunakan tanda <, >, =, <> dari suatu keadaan yang menghasilkan nilai “Benar” atau “Salah”.
OR : operator logika yang menggabungkan dua pernyataan atau lebih dengan menghasilkan nilai kondisi “Benar” jika salah satu pernyataan yang menyertai juga bernilai “Benar”.
Ekspresi : rangkaian kode program (blok program) yang akan dijalankan jika kondisi seluruh penyataan bernilai “Benar” (memenuhi syarat).

Contoh : Buatlah kode program untuk kasus berikut ini. Dalam rangka memperingati hari kemerdekaan Republik Indonesia yang jatuh tanggal 17 Agustus 2013, salah satu super mall di jambi akan mengadakan lomba lukis dan mewarnai untuk TK,SD, dan SMP. Panitia menetapkan biaya pendaftaran sebesar Rp 50.000 tetapi bagi peserta yang tanggal lahirnya17 atau 08 akan mendapatkan potongan 50% dari biaya pendaftaran. Data – data peserta yang dimasukan antara lain : Nama, Tgl, Bln, Thn. Sedang besar pendaftaran dibuat sebagai konstanta. Cetak besar diskon yang diperoleh peserta lomba.

Contoh Program :

Imports System.ConsoleModule Module1 Sub Main () Dim Nama As String Dim Tgl, Bln, Thn As Integer Const Biaya As Integer = 50000 Write (“Nama Peserta : “) Nama = Readline() Write (“Tanggal Lahir : “) Tgl = Readline() Write (“Bulan Lahir : “) Bln = Readline() Write (“Tahun Lahir : “) Thn = Readline() If Tgl = 8 Or Tgl = 17 Then Disc = (Biaya*50)/100 End If Write (“Besar Discount : “&Disc) Readline() End Sub End Module