Jumat, 12 Oktober 2012

Cara Menggunakan Struktur Kontrol IF Visual Basic 6.0

Ketik Visual Basic!  - Pada kesempatan selanjutnya kita akan belajar bagaimana cara menggunakan struktur kontrol IF...Then di dalam program... thumbnail 1 summary
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

3 komentar