STRUKTUR PERCABANGAN di VB.NET (Console)

Struktur IF - THEN

Struktur IF-THEN disebut juga dengan Branch Structure merupakan struktur percabangan dimana suatu ekspresi akan dikerjakan bila kondisinya terpenuhi. Tetapi jika kondisinya tidak terpenuhi maka ekspresi di dalam struktur IF-THEN tidak akan dijalankan dan blok IF akan dilompati serta program akan melakukan tindakan berikutnya. Bentuk penulisan dari struktur IF-THEN sebagai berikut :

IF (kondisi) Then
Ekspresi
End IF

Keterangan :

Kondisi : berisi perbandingan antara satu variable/konstanta dengan variable/konstanta yang lain dengan menggunakan tanda <, >, =, <> dari suatu keadaan yang menghasilkan nilai “Benar” atau “Salah”.
Ekspresi : rangkaian kode program (blok program) yang akan dijalankan jika kondisinya memenuhi syarat.

Contoh Program :

Imports System.Console
Module Module1
Sub Main ()
Dim XUsia As Integer
Write (“Usia Anak : “)
XUsia = Readline()
IF XUsia <= 5 Then
Write (“BALITA”)
End If
Readline()
End Sub
End Module

Struktur IF-THEN-ELSE

Struktur IF-THEN-ELSE disebut juga dengan Selection Structure merupakan struktur percabangan dimana suatu ekspresi akan dikerjakan bila kondisinya terpenuhi. Tetapi jika kondisinya tidak terpenuhi maka ekspresi yang lainnya dikerjakan. Bentuk penulisan dari struktur IF – THEN – ELSE, yaitu :

IF (kondisi) Then
Ekspresi 1
Else
Ekspresi 2
End IF

Keterangan :

Kondisi : berisi perbandingan antara satu variable/konstanta dengan variable/konstanta yang lain dengan menggunakan tanda <, >, =, <> dari suatu keadaan yang menghasilkan nilai “Benar” atau “Salah”.
Ekspresi 1 : rangkaian kode program (blok program) yang akan dijalankan jika kondisinya bernilai “Benar” (memenuhi syarat).
Ekspresi 2 : rangkaian kode program (blok program) yang akan dijalankan jika kondisinya bernilai “Salah” (tidak memenuhi syarat)

Contoh Program :

Imports System.Console
Module Module1
Sub Main ()
Dim NA As Integer
Write (“Nilai Akhir : “)
If NA> = 55 Then
Write (“LULUS”)
Else
Modul Perkuliahan Visual Basic.Net By Rico, M.S.I 25

Write (“GAGAL”)
End If
Readline()
End Sub
End Module