Visual basic, 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 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 :

<!--[if !supportLists]-->·      <!--[endif]-->Kondisi

Berisi perbandingan antara satu variabel/konstanta dengan variabel konstanta lain dengan menggunakan tanda <, >, =, <> dari suatu keadaan yang akan menghasilkan nilai “Benar” atau “Salah”.

<!--[if !supportLists]-->·      <!--[endif]-->Ekspresi

Rangkaian kode program (blok program) yang akan dijalankan jika kondisinya bernilai benar (memenuhi syarat).

Contoh :

Buat suatu program yang akan menyeleksi inputan suatu nilai akhir. Inputan nilai dilakukan lewat InputBox melalui prosedur Form_Click. Lakukan seleksi pada nilai tersebut yaitu jika nilanya lebih besar atau sama dengan 55, cetak keterangan “LULUS”. Tetapi jika kondisinya tidak terpenuhi program akan berakhir. Asumsikan inputan nilai antara ) sampai 100.

Private Sub Form_Click()

Dim Nilai_Akhir As Integer

Nilai_Akhir = InputBox(“Ketik Nilai Akhir”)

If (Nilai_Akhir) >= 55 Then

Print “Nilai Akhir : “ & Nilai_Akhir

Print “Keterangan  : LULUS”

End If

End Sub

Hasil Program :

Misalnya nilai yang diinputkan pada InputBox adalah 75 maka tampilan dari programnya sebagai berikut :

Nilai Akhir      :  75

Keterangan    :  LULUS