Struktur pengambilan Keputusan

a. Struktur pengambilan Keputusan

Berikut ini akan dijelaskan struktur pengambilan keputusan di dalam bahasa pemograman Visual Basic.

If...then

Struktur ini digunakan untuk mengeksekusi satu atau lebih perintah yang menyatakan keadaan. Dapat ditulis dengan menggunakan dua cara:

1. If kondisi Then perintah (Digunakan untuk perintah satu baris)

2. If kondisi Then

Perintah

End if

Kondisi berisi perbandingan (digunakan tanda <, >, =) dari suatu keadaan yang akan menghasilkan benar atau salah. Disamping perbandingan, juga bisa diisi dengan ekspresi yang mengevaluasi sebuah nilai numerik. Jika angka numerik yang dihasilkan 0 maka kondisi bernilai salah dan selain 0 kondisi bernilai benar. Jika kondisi menghasilkan benar maka perintah sesudah kata then akan di eksekusi.

If... Then...Else

Struktur jenis ini mirip dengan struktur If...Then, hanya saja digunakan untuk banyak blok perintah. Standar penulisannya yaitu :

If kodisi 1 then

[perintah blok 1]

[ElseIf kondisi 2 Then

[Perintah blok 2]]...

[Else

[perintah blok n]]

EndIf

Visual Basic pertama kali akan menguji kondisi pertama, jika bernilai salah (false) maka akan terus diuji kondisi-kondisi berikutnya sampai ditemukan suatu kondisi bernilai benar, maka Visual Basic akan menjalankan perintah blok setelah kata then, kemudian akan langsung menjalankan rutin setelah kata End If.

b. Struktur Perulangan

Struktur perulangan digunakan untuk mengulang sebagaian dari rutin, sehingga pemakai tidak perlu menulis ulang rutin sebanyak perulangan yang diinginkan. Beberapa jenis struktur kontrol perulangan adalah sebagai berikut.

1. Do...Loop

Struktur ini digunakan untuk mengulang sebuah blok perintah sampai jumlah tertentu. Biasanya untuk menghentikan perulangan digunakan suatu kondisi tertentu. Nilai kondisi ini, seperti halnya pada struktur kontrol if...Then, mempunyai hasil akhir berupa salah (false) atau benar (true). Dalam hal ini struktur Do... Loop akan meneruskan perulangan jika kondisi bernilai benar. Standar penulisannya adalah:

Do While kondisi

Perintah

Loop

Jika Visual Basic menemukan struktur Do...Loop, maka yang pertama kali dilakukan adalah menguji kondisi. Jika hasilnya salah maka Visual Basic akan melewati perintah di bawah Do dan meneruskan mengeksekusi rutin di bawah kata Loop. Sebaliknya jika hasil pengujian kondisi bernilai benar, maka Visual Basic akan mengeksekusi blok perintah di bawah Do dan setelah selesai akan kembali kebaris Do While.

Variasi lain dari struktur Do...Loop adalah mengeksekusi dulu perintah, baru menjalankan pengujian kondisi diakhir eksekusi. Dengan menggunakan perintah ini maka setidaknya blok perintah sudah pernah sekali dieksekusi. Hal ini berbeda dengan Do While....Loop yang bisa saja sama sekali tidak mengeksekusi blok perintah. Penulisan rutinnya adalah:

Do

Perintah

Loop While kondisi

Ada dua buah alternatif struktur kontrol perulangan dengan Do...Loop. Hanya saja kembalikan dengan dua struktur di atas, akan melakukan pengulangan jika hasil pengujian bernilai salah (false)

Do Until kondisi

Perintah

Loop

Pada struktur kontrol di atas perulangan yang akan dilakukan minimal adalah nol kali. Sedangkan pada struktur kontrol di bawah ini minimal eksekusi yang dilakukan pada blok perintah adalah satu kali.

Do

Perintah

Loop Until Kondisi

2. For...Next

Struktur kontrol Do... Loop paling baik digunakan jika tidak tahu pasti berapa kali diadakan perulangan perintah. Tetapi jika kita sudah tahu pasti berapa kali akan diadakan perulangan, maka agar penulisan rutin lebih efisiensi dapat digunakan struktur For....Next.

Pada struktur kontrol For..Next, kita tidak perlu menuliskan sebuah kondisi untuk diuji oleh Visual Basic. Kita hanya perlu menuliskan nilai awal dan akhir variabel penghitung. Nilai variabel penghitung ini akan secara otomatis bertambah atau berkurang setiap kali pengulangan (Loop) dilaksanakan

Standar penulisan rutinnya adalah:

For Variabel = awal To akhir (Step pertambahan)

Perintah

Next (Variabel)

3. For Each... Next

Sebenarnya For Each... Next mirip dengan For ...Next, hanya saja struktur kontrol For Each...Next digunakan untuk mengulang sekelompok perintah bagi tiap elemen pada suatu koleksi objek. Koleksi objek ini misalnya berupa kumpulan kontrol pada semua modul form, dimana masing-masing kontrol tersebut menjadi elemennya.

Penggunaan struktur For Each...Next sangat berguna jika tidak tahu pasti jumlah elemen pada koleksi objek. Standar penulisan dari Struktur kontrol ini adalah:

For Each elemen In grup

Perintah

Next elemen