Penggunaan Fungsi "IF" dalam VB

Fungsi "IF" dalam Visual Basic biasa digunakan untuk menentukan pilihan. Sebuah parameter akan dijalankan oleh program jika pilihan tersebut bernilai benar atau "TRUE". sebagai contoh dalam sebuah kasus.

Contoh Kasus :

• Dalam sebuah penilain Ujian Akhir Siswa Sekolah Menengah Atas (SMA/SMK), ada beberapa pilihan nilai-nilai, yaitu : Untuk nilai 0-30; nilai huruf E, nilai 31-49; nilai huruf D, nilai 50-60; nilai huruf C, nilai 61-80; nilai huruf B, nilai 81-100; nilai huruf A.

Dari Contoh Kasus di atas dapat di terapkan penggunaan Fungsi "IF" dengan rumus sebagai berikut :

1.       Penggunaan Fungsi  “IF” dengan 2 pilihan

If <Pilihan> Then

       <Statement1>

Else

        <Statement2>

End If

<Statement> yang ada di dalam struktur “IF” di atas, akan dijalankan selama Nilai dari kondisi <Pilihan>TRUE”. bernilai “

Berikut ini contoh kode programnya :

Private Sub Form_Activate()

     Dim A As Integer

      A = InputBox(“Masukkan Angka : “,”Perintah”)

      If A < 10 Then

          MsgBox “Angka “ & A &” angka kecil”, vbOKOnly + vbInformation, ”Info”

      Else

          MsgBox “Angka “ & A &” angka Besar”, vbOKOnly + vbInformation, ”Info”

      End If

End Sub

2.       Penggunaan Fungsi “IF” lebih dari 2 Pilihan

If <Pilihan1> Then

       <Statement1>

ElseIf <Pilihan2> Then

        <Statement2>

ElseIf <Pilihan3> then

        <Statement3>

Else

        <Statement Terakhir>

End If

Berikut ini adalah contoh Kode Programnya :

Private Sub Form_Activate()

     Dim A As Integer

      A = InputBox(“Masukkan Angka : “,”Perintah”)

      If A < 10 Then

          MsgBox “Angka “ & A &” angka kecil”, vbOKOnly + vbInformation, ”Info”

      ElseIf A >= 10 AND A < 20 Then

          MsgBox “Angka “ & A &” angka Sedang”, vbOKOnly + vbInformation, ”Info”

      Else

          MsgBox “Angka “ & A &” angka Besar”, vbOKOnly + vbInformation, ”Info”

      End If

End Sub

3.       Penggunaan “NESTED IF”

NESTED IF adalah merupakan Fungsi “IF” yang berada di dalam “IF”, dengan kata lain Fungsi “IF” yang bertingkat.

If <Pilihan1> Then

        <Statement>

        If <Pilihan yang ada dalam pilihan1>

                <Statement>

        Else

                <Statement>

        End If

End If

Berikut ini Contoh kode programnya

Private Sub Form_Activate()

     Dim A As Integer

      A = InputBox(“Masukkan Angka : “,”Perintah”)

      If A < 10 Then

          MsgBox “Angka “ & A &” angka kecil”, vbOKOnly + vbInformation, ”Info”

          If A = 1 Or A = 2 Or A = 3 Or A = 5 Or A = 7 Then

              MsgBox “Angka “ & A &” bilangan prima kecil”, vbOKOnly + vbInformation, ”Info”

          Else

              MsgBox “Angka “ & A &” bukan bilangan prima”, vbOKOnly + vbInformation, ”Info”

          End If

      Else

          MsgBox “Angka “ & A &” adalah bilangan BESAR”, vbOKOnly + vbInformation, ”Info”

      End If

End Sub