Struktur IF-THEN dan IF-THEN-ELSE (Kontrol Program)

Di dalam pemrograman kita mengenal istilah struktur penyeleksian Kondisi (Conditional Statemaent) dan struktur perulangan (looping). Kedua struktur ini sangat penting dalam mengontrol suatu program yang kita buat. Tanpa menggunakan kontrol ini program yang kita buat tidak berdaya apa-apa. Penyeleksian kondisi atau pernyataan kondisi (conditional statement) merupakan suatu pernyataan yang menganalisa suatu keadaan dan mengambil keputusan  berdasarkan pada hasil analisa itu. Hasil dari penyeleksian jika bernilai benar maka akan dikerjakan instruksi tertentu. Jika salah maka akan dikerjakan instruksi yang lain.

CONTOH:

Terdapat pernyataan bahwa jika cuaca hujan maka” saya tinggal di rumah”, sedang tidak hujan “saya main bola”.

Bentuk strukturnya:

If (cuaca = “hujan” ) then

            tindakan =”tinggal di rumah”

Else

            tindakan =”main bola”

End if

Struktur IF-THEN

Disebut juga dengan branch sturucture

Merupakan struktur percabangan dimana suatu ekspresi akan dikerjakan jika kondisinya terpenuhi. Tetapi jika kondisi tidak terpenuhi maka ekspresi di dalam struktur if tidak akan dijalankan dan blok if akan dilompati serta program akan melakukan tindakan berikutnya.

BENTUK STRUKTURNYA:

            IF (KONDISI) THEN

                …….EKSPRESI……

            END IF

Kondisi:

Perbandigan antara satu variabel/konstanta dengan variabel/konstanta lain   dengan menggunakan tanda <, >, =, <>, >=, <=.

Ekspresi:

Rangkaian kode program (blok program) yang akan dijalankan jika kondisinya bernilai benar (memenuhi syarat).

Contoh:

Buat suatu program yang akan menyeleksi suatu inputan nilai akhir mahasiswa. Inputan nilai dilakukan lewat inputbox melalui prosedur form_click. Lakukan seleksi pada nilai tersebut yaitu jika nilainya lebih besar atau sama dengan 55  cetak keterangan”lulus”. Tetapi jika tidak  terpenuhi program akan berakhir. Asumsikan inputan nilai antara 0 sampai 100.

Private sub form_click()

      dim nilai_akhir as integer

      nilai_akhir = inputbox(“ketik nilai akhir”)

      if (nilai_akhir) >= 55 then

                  print “nilai_akhir : “ & nilai_akhir

                  print “keterangan : lulus “

      end if

End sub

Struktur IF-THEN-ELSE

Disebut juga dengan selection structure

Merupakan struktur percabangan dimana suatu ekspresi akan dikerjakan jika kondisinya terpenuhi. Jika tidak terpenuhi maka ekspresi yang lain akan dikerjakan.

Struktur if then else sbb:

            if (kondisi) then

                        ….ekspresi 1….

            else

                        ….ekspresi 2…..

            end if

Ekspresi 2: rangkaian kode program(blok program) yang akan dijalankan jika kondisinya bernilai salah (tidak memenuhi syarat)

Contoh:

Buat suatu program yang akan menyeleksi suatu inputan nilai akhir mahasiswa. Inputan nilai dilakukan lewat inputbox melalui prosedur form_click. Lakukan seleksi pada nilai tersebut yaitu jika nilainya lebih besar atau sama dengan 55  cetak keterangan”lulus”. Tetapi jika tidak  terpenuhi cetak keterangan “gagal”. Asumsikan inputan nilai antara 0 sampai 100.

private sub form_click()

       dim nilai_akhir as integer

       nilai_akhir = inputbox(“ketik nilai akhir”)

       if (nilai_akhir) >= 55 then

                   print “nilai_akhir : “ & nilai_akhir

                   print “keterangan : lulus “

       else

                   print “keterangan : gagal “

       end if

end sub

Pada kondisi tertentu di dalam struktur if then else bisa ditempatkan struktur if then atau if then else yang lain. Bentuk semacam ini biasa disebut if tersarang atau nested if.

Bentuk penulisan dari struktur ini adalah sebagai berikut:

If (kondisi 1) then

            if (kondisi 2)  then

                        …ekspresi 1…

            else

                        …ekspresi 2

            end if

Else

            ekspresi 3

End if

Atau

If (kondisi 1) then

            if (kondisi 2)  then

                        …ekspresi 1…

            else

                        …ekspresi 2

            end if

Else

            if (kondisi 3) then

                        …ekspresi 3…

            else

                        …ekspresi 4…

End if

End if

Penulisan di atas dapat juga digabungkan antara else dan if untuk kondisi yang ketiga dan dengan membuang  satu end if, seperti berikut:

If (kondisi 1) then

            if (kondisi 2)  then

                        …ekspresi 1…

            else

                        …ekspresi 2

            end if

Else if (kondisi 3) then

                        …ekspresi 3…

            else

                        …ekspresi 4…

End if

Keterangan:

Ø  Kondisi 1:Berisi perbandingan antara satu variabel/konstanta dg variabel lain dengan menggunakan tanda >,<,<>,=,>=,<=

Ø  Kondisi 2 : akan dikerjakan jika nilai kondisi 1 benar(terpenuhi)

Ø  Kondisi 3: akan dikerjakan jika nilai kondisi 1 adalah salah(tdk terpenuhi)

Ø  Ekspresi 1 : rangkaian kode program(blok program) yang akan

                     dijalankan jika kondisi 1  dan 2 bernilai benar(memenuhi syarat)

Ø  Ekspresi 2 : rangkaian program yang akan dijalankan jika kondisi 1 benar

          dan kondisi 2 bernilai salah

Ø  Ekspresi 3 : rangkaian program yang akan dijalankan jika kondisi 1  salah

          tetapi kondisi 3 bernilai benar

Ø  Ekspresi 4 : rangkaian program yang akan dijalankan jika kondisi 1 salah

          dan kondisi 3 juga salah

Contoh:

Buat sebuah program menyeleksi jenis kelamin dan status perkawinan seseorang dimana keduanya diinputkan lewat inputbox. Jika seseorang jenis kelaminnya “pria”, lakukan seleksi apakah “sudah menikah”. Jika keduanya terpenuhi, tampilkan “ayah” sedangkan jikat tidak terpenuhi tampilkan ”jejaka”. Tetapi jika jenis kelaminya “wanita/bukan pria”, lakukan pengecekan apakah statusnya “sudah menikah”. Jika keduanya terpenuhi, tampilkan “ibu” sedangkan tidak terpenuhi tampilkan “perawan”. Ketik listing programnya pada prosedur form_click seperti berikut:

Dim jenis as string

Dim status as string

Jenis = inputbox (“jenis kelamin”)

Status = inputbox (“sudah menikah”)

Print “jenis kelamin : “ & jenis

Print “sudah menikah : “ & status

Print “keterangan : “;

If jenis  = “pria” then

            if status = “sudah” then

                        print “ayah”

            else

                        print “jejaka”

            end if

Else

            if status =”sudah” then

                        print “ibu”

            else

                        print “perawan”

            end if

End if

Contoh Pemakaian Dalam Program (Program Login)

Private sub command1_click()

If tuser.text <> "" and tpas.text <> "" then

    set rslogin = new adodb.recordset

        rslogin.locktype = adlockoptimistic

        rslogin.cursortype = adopendynamic

        rslogin.open "select * from login where user_name = '" & tuser.text & "' and password = '" & tpas.text & "'", conn, , , adcmdtext

        if not rslogin.eof then

        msgbox ("login anda berhasil")

        form1.show

        login.visible = false

        else

            msgbox "user name dan password salah silahkan ulangi kembali", vbcritical

            exit sub

        end if

End if

End sub

Share :

Facebook Google+ Twitter

Related Posts :