VB 6: Percabangan dan Perulangan

Percabangan

Percabangan adalah pemilihan statemen pada kondisi dua pilihan atau banyak pilihan, yang akan dieksekusi selanjutnya di mana pemilihan tersebut didasarkan atas kondisi tertentu. Sedangkan Perulangan adalah metode yang terdapat pada semua bahasa pemrograman yang mengijinkan kita untuk mengeksekusi blok code berulang-ulang dalam kurun nilai tertentu.

Percabangan dapat dibedakan menjadi :

A. IF .... THEN

merupakan pencabangan yang mempunyai satu pencabangan atau satu blok perintah. Perintah If - Then ini digunakan untuk program dengan 1 kondisi.

Bentuk Umum :

If (Kondisi) Then

(perintah)

End If

Contoh :

Private Sub Keluar_Click()

If MsgBox ("Anda Yakin Akan Keluar? ", vbQuestion + vbYesNo, "Konfirmasi") = vbOK ThenUnload Me

End If

End Sub

B. IF ... THEN ... ELSE

Suatu perintah pencabangan bersarang (Nested If) yang merupakan perkembangan dari perintah pencabangan IF.. THEN, yang dapat menjalankan satu blok perintah, yang memiliki dua nilai atau syarat bahkan lebih yang akan diuji untuk menjalankan suatu kondisi tertentu. Bila kondisi pertama benar maka jalankan perintah blok pertama, jika kondisi pertama salah maka jalankan perintah blok kedua dan selanjutnya Biasanya perintah ini untuk kondisi ganda.

Bentuk umum :

IF (Kondisi) then

[perintah]

ELSE

[perintah]

End If

Dan

IF (Kondisi2) then

[perintah]

ELSEIF (kondisi2) Then

[perintah]

....

ELSE

[perintah]

Contoh ;

If (cmbkode = "Elit") Then

txthm = 50000

ElseIf (cmbkode = "Hemat") Then

txthm = 30000

Else

txthm = 0

End If

Contoh 2 :

If (cmbkode = "Elit") Then

If (cmbpaket = “1”) Then

txthm = 50000

ElseIf (cmbpaket = ”2”) Then

txthm = 60000

Else

Txthm = 0

End If

ElseIf (cmbkode = "Hemat") Then

If (cmbpaket = “1”) Then

txthm = 30000

ElseIf (cmbpaket = ”2”) Then

txthm = 20000

Else

Txthm = 0

End If

Else

txthm = 0

End If

C. SELECT ... CASE ...

Select Case adalah controk percabangan yang mempunyai fungsi hampir sama dengan pencabangan if .... then.... else, Select mempunyai penulisan dan pembacaan yang lebih mudah, efektif dan efisien. Namun mempunyai kelemahan yaitu tidak dapat menguji lebih dari satu ekspresi atau ungkapan.

Bentuk Umum :

Select Case kondisi

Case | Case is = ekspresi1

[perintah1]

Case | Case is = ekspresi2

[perintah2]

Case | Case is = ekspresi3

[perintah3]

Contoh :

Select Case (cmbkode)

Case (“Elit”)

txthm = 50000

Case ("Hemat")

txthm = 30000

Case Else

txthm = 0

End Select

Apa itu Perulangan ?

Perulangan ialah sebuah metode program untuk mengecek ulang terus menerus / berulang suatu blok program dalam batasan pada blok program tersebut.

Macam – macam Perulangan pada Visual Basic

A. For … Next

Perulangan For … Next digunakan untuk melakukan perulangan dengan jumlah tertentu yang dikehendaki.

Bentuk Umum:

For Indeks = (NilaiAwal) To (NilaiAkhir) Step (step)

(Pernyataan)

…..

Next Indeks

B. Do … While loop

Do While merintahkan program untuk melakukan perulangan apabila kondisi persyaratan masih bernilai True. Apabila kondisi persyaratan bernilai False maka program akan keluar dari perulangan.

Bentuk Umum :

Do While ( Kondisi )

( Pernyataan )

…..

Loop

C. Do Until … Loop

Pada perulangan Do While perulangan akan terus berjalan selama kondisi bernilai True dan akan berhenti jika kondisi bernilai False sedangkan pada perulangan Do Until perulangan akan terus berjalan apabila kondisi bernilai salah dan akan berhenti jika kondisi bernilai True.

Bentuk Umum :

( Pernyataan )

….

Loop until ( Kondisi )

D. While … Wend

Perulangan While … Wend digunakan saat kita ingin pernyataan pada program dijalankan selama kondisi ekspresi yang di tetapkan masih bernilai True.

Bentuk Umum :

While ( ekspresi )

( Pernyataan )

….

Wend