Mengenal (Macam-macam) Penggunaan If - Else - Endif untuk Kondisi/Perbandingan ~Tutorial Gambas

Perbandingan atau pengkondisian merupakan salah satu bagian yang umum dan paling penting dalam dunia pemrogaman. Sebuah program baik dalam sekala kecil (bukan dasar), menengah, maupun besar tidak akan luput dari penggunaan fungsi perbandingan/kondisi tersebut. Terdapat banyak macam/bentuk kondisi berdasarkan fungsi dan tujuannya. Namun disini hanya di fokuskan pada penggunaan If – Else – Endif.

Contoh:

Untuk satu kondisi dan satu statement

Public Sub Main()

   Dim a As Byte = 4

   Dim b As String

   If a = 4 Then b = “Nilai a adalah 4”

   Print b

End

Diatas penggunaan If yang boleh tanpa ditutup menggunakan Endif

Untuk satu kondisi dengan banyak statement

Public Sub Main()

   Dim c As Byte

   Dim d As Byte = 5

   Dim e As String = “Zonk”

   If c = 0 Then

     Inc d

     e = “Nilai \”e\” adalah: “ & d

     Print “Selesai”

   Endif

End

Jika kondisinya memenuhi sayarat (c = 0) maka hasil yang dikeluarkan:

Nilai “e” adalah: 6

Selesai

Penggunaan If dengan banyak statement harus diakhiri dengan Endif.

Untuk banyak kondisi

Public Sub Main()

   Dim z As Byte = 2

   If z = 0 Then

     Print “Tes1”

     z = z * 4

   Else If z = 1 Then

     Print “Tes2”

     z = z * 8

   Else If z = 2 Then

     Print “Tes3”

     z = z * 3

   Else

     Print “Tes1”

     z = z * 10

   Endif

   Print z

End

Hasil diatas adalah:

Tes 3

6

Penggunaan kondisi dengan And, Or, Not

Public Sub Main()

   Dim x, y As Short

   Dim t As String

   x = 1000

   y = 2000

   If x = 1000 And y = 1000 Then

         t = “Tes1”

   Else If x = 2000 And y = 4000 Then

     t = “Tes2”

   Else If x = 1000 And y = 2000 Then

     t = “Tes3”

   Else If x = 6000 Or y = 2000 Then

     t = “Tes4”

   Else If (x = 2000 Or x = 5000) And y = 3000 Then

     t = “Tes5”

   Endif

   Print t

End

Hasil:

Tes3

Public Sub Main()

   Dim a As Byte = 4

   Dim b As String

   If Not (a = 2) Then Print “Mantab”

End

Pada dasarnya kondisi/perbandingan adalah suatu keadaan yang dinilai dari perbandingan antara dua nilai yang bersifat kebenaran (Boolean), yakni menghasilkan nilai antara True (benar) dan False (salah).

If Boolean(True/Flase) Then Statement

Misal bernilai True:

Dim a As String = “Ok”

If a = “Ok” Then Print a

sama dengan

If (a = “Ok”) = True Then Print a

atau juga sama dengan

If True Then Print a

Misal bernilai False:

Dim a As String = “Yes”

If a <> “Ok” Then Print a

dapat ditulis dengan

If Not (a = “Ok”) Then Print a

Juga dapat ditulis dengan

If (a = “Ok”) = False Then Print a

sama dengan

If Flase Then Print a

Selamat Belajar