Penggunaan Kondisi If-Then Pada VB (Visual Basic)

Penggunaan If Then Pada VB

Pada kesempatan ini kita akan menggunakan kondisi If Then dalam pembuatan aplikasi sederhana.

If Then adalah suatu kondisi dimana pada kondisi ini hanya akan memproses satu kondisi dan kondisi tersebut apabila bernilai benar. If Then memiliki bentuk umum :

If (kondisi) Then
(statement)
End If

Langsung saja kita jalankan aplikasi Visual Basic 6.0 dan memilih project “Standart EXE”. Selanjutnya adalah mendesain User Interface aplikasi hingga menjadi seperti gambar dibawah ini.


Berikut adalah tools yang digunakan beserta propertiesnya :
Tools                           Name          Caption/Text
Label                        L_Nama              Nama
                                 L_Nilai                Nilai
TextBox                   TXT_Nama   
                                 TXT_Nilai   
Command Button    CMD_OK             OK
                                CMD_Clear        CLEAR
                                CMD_Exit           EXIT

Private Sub CMD_OK_Click()

Dim Nilai As Integer

Nilai = text2.Text

If Nilai >= 70 Then

    a = MsgBox(" Selamat Anda Lulus " + TXT_Nama, vbOKOnly, "LabSI")

Else

    a = MsgBox(" Maaf Anda Gagal " + TXT_Nama, vbOKOnly, "LabSI")

End If

End Sub

Selanjutnya adalah pengkodean program atau dikenal dengan Coding. Tools yang pertama dicoding adalah Comand Button dengan nama CMD_OK. Pada CMD_OK tuliskan code program berikut.
Berikut penjelasan coding diatas :
•    Private Sub CMD_OK_Click() : bagian / area coding untuk CMD_OK
•    Dim Nilai as Integer : mendeklarasikan variable “Nilai” sebagai Integer
•    Nilai = TXT_Nilai.Text : isi atau nilai dari variable “Nilai” diambil dari isi TXT_Nilai
•    If Nilai >= 70 Then : kondisi jika nilai dari variable “Nilai” lebih dari sama dengan 70 maka akan dijalankan statement yang diberada pada kondisi tersebut
•    a = MsgBox(" Selamat Anda Lulus " + TXT_Nama.Text, vbOKOnly, "LabSI") : “a” merupakan variable untuk MsgBox, sedangkan MsgBox digunakan untuk menampilkan Message Box.“ Selamat Anda Lulus “+ TXT_Nama.Text adalah text yang akan tampil pada Message Box Tersebut beserta Isi/Text dari TXT_Nama. vbOKOnly adalah pilihan jenis message box yang hanya ada tombol OK saja. Sedangkan “LabSI” adalah Judul dari Message Box yang akan tampil.
•    Else : Kondisi dimana IF tidak terpenuhi, dan akan menjalankan statement yang berada pada Else.
•    a = MsgBox(" Maaf Anda Gagal " + TXT_Nama.Text, vbOKOnly, "LabSI") : “a” merupakan variable untuk MsgBox, sedangkan MsgBox digunakan untuk menampilkan Message Box.“ Maaf Anda Gagal “+ TXT_Nama.Text adalah text yang akan tampil pada Message Box Tersebut beserta Isi/Text dari TXT_Nama. vbOKOnly adalah pilihan jenis message box yang hanya ada tombol OK saja. Sedangkan “LabSI” adalah Judul dari Message Box yang akan tampil.
•    End If : Penutup kondisi IF Then
•    End Sub : Bagian/Batas akhir pengkodean

Untuk CMD_Clear tuliskan kode program berikut.

Private Sub CMD_Clear_Click()

TXT_Nama.Text = Clear

TXT_Nilai.Text = Clear

End Sub

Berikut penjelasan coding diatas.
•    Private Sub CMD_Clear_Click() : bagian / area coding untuk CMD_Clear
•    TXT_Nama.Text = Clear : Menghapus isi/text dari TXT_Nama
•    TXT_Nilai.Text = Clear : Menghapus isi/text dari TXT_Nilai
•    End Sub : Bagian/Batas akhir pengkodean

Untuk CMD_Exit tuliskan kode program berikut.

Private Sub CMD_Exit_Click()

End

End Sub

Berikut penjelasan coding disamping.
•    Private Sub CMD_Exit_Click() : bagian / area coding untuk CMD_Exit
•    End : Mengakhiri aplikasi atau keluar dari aplikasi tersebut
•    End Sub : Bagian/Batas akhir pengkodean
Tampilan Aplikasi ketika dijalankan    :

Tampilan aplikasi ketika kondisi If Terpenuhi    :
 
Tampilan aplikasi ketika kondisi If tidak terpenuhi dan menjalakan statement Else    :