Fungsi If-Then-Else dan Loop

Penggunaan If Then Else pada visual basic 6.0 kalo menurut keyakinan saya adalah untuk mengajukan kondisi pada jalan program, dalam kondisi tersebut menyimpan dua syarat yang masing masing syartanya mempunyai tugas masing-masing.

Contoh nya seperti ini :

JIKA di jalan raya ada mobil melintas Maka
jangan menyebrang
SEBALIKNYA
menyebrang
YA UDAH

syntax (Kode Program) nya adalah sebagai berikut :

If <kondisi><keputusan>  Then

true statemen

Else

false statement

End if

Jika syntax dihubungkan dengan contoh :

If <kondisi><keputusan>  Then, JIKA <di jalan raya> <ada mobil melintas> Maka

 true statemen >> jangan menyebrang

Else  >> SEBALIKNYA

 false statement >> menyebrang

 End if >> YA UDAH

yang di maksud dengan true statement adalah tugas yang akan di jalan kan jika kondisi cocok dengan keptusan yaitu di jalan raya ada mobil melintas,lalu tugas false statement baru akan di jalankan jika yang terjadi adalah sebaliknya yaitu di jalan raya tidak ada mobil melintas.

Contoh dalam program, dalam kasus ini kita ambil contoh command button untuk cek Text1.text yang kosong tidak ada tulisannya;

If Text1.text = VbNullString then

MsgBox "Woi, Jangan dikosongin"

else

Msgbox "Ayo ngetik apa ayo"

End if

Atau bisa juga kita menggunakan satu tugas saja

If Text1.text = VbNullString then

MsgBox "Woi, Jangan dikosongin"

 End if

 

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

 

PERULANGAN LOOP

Loop adalah struktur kode perulangan yang akan terus mengeksekusi ulang kodenya sampai memenuhi kondisi tertentu.

Do Loop
Ada tiga jenis struktur Do...Loop:
•    Do While...Loop
•    Do...Loop While
•    Do...Loop Until

Do While...Loop
Struktur ini digunakan untuk mengulang blok code berdasarkan kondisi tertentu yang ditentukan diawal. Pertama dia mengecek kondisi kemudian jika hasil nya true maka code diantara loop akan dieksekusi dan terus berulang sampai kondisi tidak lagi terpenuhi (false).
Syntaks :
Do While [Condition]
   [statement]
Loop

Contoh : Print ke form dari 0 sampai 9.
Tuliskan code berikut pada event cmdPrint_Click
Option Explicit

Private Sub cmdPrint_Click()
Dim num As Integer
num = 0
Do While num < 10
    Print num
    num = num + 1
Loop
End Sub

Di awal program akan mengecek kondisi yang berlaku. Jika nilai variable num lebih kecil dari 10 maka code diantara Do While...Loop akan dieksekusi. Sementara kita lihat code dalam loop menambahkan variable num + 1 setiap putaran. Code akan terus berulang (berputar) sampai nilai variable num menjadi 10 dan loop akan berhenti.

Do...loop while
Struktur ini di awal program akan mengeksekusi code di dalam loop (apapun kondisinya), kemudian setelah itu akan mengecek kondisi yang berlaku, jika kondisi benar maka akan melakukan pengulangan (loop).
Syntaks:
Do
   [statement]
Loop while [condition]

Contoh : Print ke form dari 0 sampai 10.
Option Explicit

Private Sub cmdPrint_Click()
Dim num As Integer
num = 0
Do
    Print num
    num = num + 1
Loop While num <= 10
End Sub

Do...loop until
Struktur ini akan mengeksekusi code diantara loop sampai kondisi terpenuhi, sebelum kondisi terpenuhi makan code akan terus dijalankan secara berulang.
Syntaks :
Do
  [statement]
Loop Until [Condition]

Contoh: nilai variable x akan terus bertambah sampai lebih besar daripada 10
Option Explicit

Private Sub cmdPrint_Click()
Dim x As Integer
x = 0
Do
    Print x
    x = x + 1
Loop Until x > 10
End Sub

Code dalam loop ini beresiko menjadi infinite loop yang akan terus berputar tanpa henti jika terjadi kesalahan code/error atau kondisi yang tidak terduga sebelumnya. Gunakan Ctrl + Break untuk menghentikan secara paksa.

For Next Loop
Struktur loop ini merupakan struktur yang paling sering digunakan daripada struktur loop yang lain.
Syntaks :
For [Condition]
   [statement]
Next

Contoh : Print ke form dari 0 sampai 10.
Option Explicit

Private Sub cmdPrint_Click()
Dim i As Integer
For i = 0 To 10
    Print i
Next i
End Sub

Selama proses loop variable i secara otomatis akan dinaikan 1. Loop akan terus berjalan sampai nilai i lebih dari 10.

Contoh : Print ke form dari 0 sampai 6 dengan kenaikan 2.
Option Explicit

Private Sub cmdPrint_Click()
Dim i As Integer
For i = 0 To 6 Step 2
    Print i
Next i
End Sub
Sekali putaran nilai i dinaikan 2.
Output :
0
2
4
6

Contoh : Print ke form dari 10 sampai 0 dengan kenaikan penurunan 3.
Option Explicit

Private Sub cmdPrint_Click()
Dim i As Integer
For i = 10 To 0 Step -3
    Print i
Next i
End Sub

Sekali putaran nilai i diturunkan 3.

Output :
10
7
4
1

Exit For and Exit Do statement 
Pada dasarkan loop akan terus berputar sesuai kondisi loop yang bersangkutan, tapi diantara code loop kita dapat menambahkan kondisi tertentu untuk keluar dari loop.

For Next Loop bias dihentikan oleh code Exit For dan Do loop oleh code Exit Do.

Contoh : Exit For
Option Explicit

Private Sub cmdPrint_Click()
Dim i As Integer
For i = 0 To 10
    If i = 3 Then
    Exit For
    End If
Print i
Next i
End Sub

Output :
0
1
2

Contoh : Exit Do
Option Explicit

Private Sub cmdPrint_Click()
Dim num As Integer
num = 0
Do While num < 10
    Print num
    num = num + 1

    If num = 4 Then
        Exit Do
    End If
Loop
End Sub

Output :
0
1
2
3