Sintak Kondisi Visual Basic .Net [ If - Case ]



Berikut adalah contoh percabangan Visual Basic .Net :

1. If-Then

Sintak :
If kondisi1 then
     Statemen 
     .......
     ......
End if

Contoh :

Dim nilai1 As integer
Dim nilai2 as integer
nilai1 = 3
nilai2 = 5
If nilai1 <> nilai2 Then
   Console.WriteLine("Nilai1 tidak sama dengan nilai2 itu Benar")
End If


2. If-Then-Else 

Sintak :
If kondisi1 then
     Statement 
     .......
     ......
ElseIf kondisi2 then
     Statement 
     .......
     ......
Else
     Statement 
     .......
     ......
End if

Contoh 1:

Dim nilai1 As integer
Dim nilai2 as integer
nilai1 = 3
nilai2 = 5
If nilai1 = nilai2 Then
   Console.WriteLine("Nilai1 sama dengan nilai2")
Else
   Console.WriteLine("Nilai1 tidak sama dengan nilai2")
End If

Contoh 2 :
Dim nilai1 As integer
Dim nilai2 as integer
nilai1 = 3
nilai2 = 5
If nilai1 = nilai2 Then
   Console.WriteLine("Nilai1 sama dengan nilai2")
ElseIf nilai1 > nilai2 Then
    Console.WriteLine("Nilai1 lebih besar dari nilai2")
Else
   Console.WriteLine("Nilai1 tidak sama dengan nilai2")
End If


3. Select - Case

Sintak :
Select Case ekspresi  
Case daftar ekspresi  
statements 1 
Case Eise  
End Select 

Contoh : 

Dim nomor As Integer
nomor = 8
Select Case nomor
      Case 1 To 3
           MsgBox("Nilai terletak antara 1 sampai 3")
     Case 4, 5, 6
            MsgBox("Nilai terletak antara 4, 5 dan 6")
      Case 7 To 10
             MsgBox("Nilai terletak antara 7 sampai 10")
       Case Else
             MsgBox("Nilai tidak ada dalam jangkauan 1-10")
 End Select