Mempelajari dan Memahami Struktur IF ... THEN (Pernyataan) dalam Visual Basic 6.0

Ketik Visual Basic! - Pada kesempatan selanjutnya kita akan belajar bagaimana cara menggunakan struktur kontrol IF...Then di dalam program visual basic 6.0. Sebenarnya struktur kontrol ini jika diterjemahkan akan berbunyi JIKA <kondisi 1> MAKA <pernyataan 2>.

Struktur kontrol ini digunakan untuk mengatur sebuah jalannya program, dan di dalam visual basic 6.0 dikenal dua jenis struktur kontrol yaitu

1. Struktur kontrol keputusan, digunakan untuk memutuskan kode program mana yang akan dijalankan berdasarkan sebuah kondisi
2. Struktur kontrol pengulangan, digunakan untuk melakukan pengulangan sebuah kode program

Ada dua bentuk struktur kontrol keputusan yaitu:

1. Struktur IF ... THEN
2. Struktur SELECT ... CASE

Pada kesempatan ini kita akan membahas struktur IF ... THEN yang mempunyai bentuk penulisan (syntax):

Bentuk pertama:

IF <kondisi> THEN <pernyataan>
 --> Jika kondisi bernilai TRUE maka pernyataan akan dikerjakan  oleh program


Bentuk kedua:

IF <kondisi> THEN
    <pernyataan 1>
ELSE
    <pernyataan 2>
END IF
--> Jika kondisi bernilai TRUE maka pernyataan 1 akan dikerjakan oleh kode program tetapi jika bernilai FALSE maka pernyataan 2 yang akan dikerjakan    

Contoh pemrograman struktur kontrol IF dapat dilihat dari bab-bab sebelumnya yaitu pada aplikasi rubah tulisan atau aplikasi hitung luas bangun. Dan meskipun sudah pernah membahas struktur kontrol IF dalam kesempatan sebelumnya, kita juga akan membahas contoh aplikasi lain yaitu  konsep username dan password.

Contoh aplikasi username dan password

1. Buatlah user interface (UI) seperti berikut

Form1 halaman login

Form2 halaman selamat datang

 2. Atur property dan value masing-masing object seperti berikut

Tabel untuk form1

Object	Property	Value
Form1	Caption BackColor	Login Blue (&H00FF0000&)
Label1	Caption	Username
Label2	Caption	Password
Text1	-	-
Text2	PasswordChar	#
Command1	Caption	Login
Command2	Caption	Cancel

Tabel untuk form2

Object	Property	Value
Form2	Caption	Ucapan Selamat Datang
Label1	Caption Font Font Style Size	Selamat Datang di KetikVisualBasic MS Sans Serif BOLD 18

3. Buka jendela kode (code editor) seperti berikut

Code editor aplikasi halaman login

4. Copy dan paste kode program berikut kedalam jendela kode (code editor)

Private Sub Command1_Click()
If Text1.Text = "ketikvisualbasic" And Text2.Text = "password" Then
    Form1.Hide
    Form2.Show
Else
    MsgBox ("Username atau Password Salah")
    Text1.Text = ""
    Text2.Text = ""
End If
End Sub

Private Sub Command2_Click()
    End
End Sub

Penjelasan Aplikasi halaman login visual basic 6.0

1. Jalankan aplikasi yang sudah dibuat dengan menekan tombol F5
2. Masukkan username = "ketikvisualbasic" dan password = "password"
3. Tekan tombol "Login", maka akan muncul halaman "Selamat Datang di KetikVisualBasic"
4. Karena bersifat case sensitive maka ketika kita memasukkan username = "KetikVisualBasic" dan password = "password"maka kita akan diberikan pesan terdapat kesalahan seperti halaman berikut ini (case sensitive artinya dibedakan antara huruf besar dan kecil, contoh huruf "A" tidak sama dengan "a")

Halaman pesan kesalahan

Penjelasan kode program halaman login visual basic 6.0

Blok pertama
Private Sub Command1_Click()
If Text1.Text = "ketikvisualbasic" And Text2.Text = "password" Then
Form1.Hide
Form2.Show
Else
MsgBox ("Username atau Password Salah")
Text1.Text = ""
Text2.Text = ""
End If
End Sub

1. Ketika aplikasi dijalankan kita disuruh memasukkan username dan password
2. Ketika tombol Login ditekan maka program melakukan scanning
3. Jika username dan password sesuai atau sama dengan username dan password yang kita miliki yaitu "ketikvisualbasic" dan "password" maka halaman login akan disembunyikan dan halaman "Selamat Datang di KetikVisualBasic" ditunjukkan
4. Jika username dan password tidak sesuai maka akan ditampilkan halaman pesan kesalahan dengan perintah dan informasi seperti berikut MsgBox ("Username atau Password Salah") kemudian Text untuk masukan username dan password dikosongkan kembali sampai didapatkan data yang sesuai

Blok kedua
Private Sub Command2_Click()
End
End Sub

Ketika tombol Cancel ditekan maka aplikasi akan ditutup

Dan penjelasn terakhir silahkan ikuti semua pelajaran yang telah disampaikan melalui tulisan dan jika ada yang tidak jelas silahkan dipertanyakan melalui form komentar atau email