VB 06 MACAM MACAM KONDISI PERCABANGAN

PERCABANGAN
Dalam Visual Basic ada beberapa kondisi percabangan yang dapat digunakan seperti IF… THEN, IF…THEN…ELSE, dan SELECT CASE. Kondisi percabangan biasanya dinyatakan dengan menggunakan operator seperti operator sama dengan (=), tidak sama dengan (<>) atau operator-operator perbadingan lainnya ( >, >=, <, <=).

1.   If…Then

Percabangan dengan menggunakan If … Then digunakan untuk memilih dua kondisi atau lebih dengan memeriksa syarat pada tiap kondisi, jika syarat pada kondisi 1 benar ( True ) maka maka program akan menjalankan pernyataan 1 jika tidak ( False ) maka program akan memeriksa kondisi 2, jika syarat pada kondisi 2 benar ( True ) maka program akan menjalankan pernyataan 2 jika tidak ( False ) maka program akan memeriksa kondisi berikutnya dan begitu seterusnya hingga kondisi terakhir pada percabangan.   
If Kondisi1 Then 
            Pernyataan1 ………… 
ElseIf Kondisi2 Then 
            Pernyataan2 ……….. 
Else 
            Pernyataan3 ………… 
End if
 
 
 
Contoh programnya :
Dim Suhu Sebagai Double
   ...
   If => Suhu Then 
       Debug. Print "Ini sangat panas"
   Elseif 30,0 <= Suhu Dan <Suhu = 39,0 Then
       Debug. Print "Panas"
   Elseif 20,0 <= Suhu Dan <Suhu = 29,0 Then
       Debug. Print "Ini hangat"
   Elseif 10,0 <= Suhu Dan <suhu = 19,0 Then
       Debug. Print "It's cool"
   Elseif 0.0 <= Suhu Dan <Suhu = 9,0 Then
       Debug. Print "Dingin"
   Else 
       Debug. Print "Dingin"
   End If
 

2.   Select Case

Dibandingkan dengan percabangan If … Then, Select Case lebih mudah dibaca dan di debug serta lebih mudah digunakan dalam alur program yang membutuhkan banyak percabangan.
Bentuk umum perabangan select case adalah sebagai berikut :
 
Select Case Pilihan
Case 1 Pernyataan1 …..
Case 2 Pernyataan2 …..
Case 3 Pernyataan3 ……
End Select

Contoh program dengan menggunakan Select Case :
 
   Pilih Kasus Suhu
       Case Apakah> = 40 #
           Debug. Print "Ini sangat panas"
       Case 30 # Untuk 39 #
           Debug. Print "Panas"
       Case 20 # Untuk 29 #
           Debug. Print "Ini hangat"
       Case 10 # Untuk 19 #
           Debug. Print "It's cool"
       Case 0 # Untuk 9 #
           Debug. Print "Dingin"
       Case Else
           Debug. Print "Dingin"
   End Select
 
REFERENSI http://kevinkarundeng.wordpress.com/2011/03/30/perulangan-dan-percabangan-dalam-visual-basic/ 

Tidak ada komentar:

Poskan Komentar