Visual
Basic 6 memang sudah ketinggalan jaman mungkin dibandingkan sekarang
dengan Visual Basic Net yang sudah sampai tahun 2010. Walaupun begitu
peminat VB6 ini masih banyak, terutama untuk mahasiswa yang sedang
mengerjakan tugas akhir, karena bahasanya mudah untuk dipelajari dan
softwarenya ringan. Pada beberapa tutorial berikutnya pun saya akan
membuat aplikasi VB6 ini untuk akuisisi data, absen, ethernet, server
client, dsb. Nah, sebelum lebih jauh mempelajarinya untuk para pemula
saya beri tutorial dasar pengenalan VB6 ini dengan membuat password.
Sekarang buka software VB6,
pilih Start --> All Programs --> Microsoft Visual Basic 6.0
--> Microsoft Visual Basic 6, kemudian pilih Standard EXE:
dan tampil form utama VB6 seperti ini:
Letakkan satu CommanButton, satu Label, dan satu TextBox pada Form1 diatas:
Lalu susun seperti gambar berikut:
Klik
pada Form bagian mana saja, kemudian pada Properties pilih Backcolor,
misalnya warna hitam, dan pilih Caption isi tulisan dengan Password,
yang berarti mengganti tulisan Form1 pada bagian atas form.
Agar ukuran form tidak dapat diubah, pada BorderStyle pilih 1-Fixed Single.
Klik
pada Label1 dan beri tulisan pada Properties Caption isi dengan
"Masukkan Password", pilih Alignment --> Center, kemudian untuk
mengganti tulisan pilih Font, dan warna tulisan Fore Color, agar
background mengikuti warna background Form maka pada BackStyle pilih
0-Transparent.
Klik
pada TextBox1 dan pada Properties (Name) diganti dengan pass, yang
berarti mengganti nama TextBox1, dan pada PasswordChar isi dengan tanda
bintang atau *, yang berarti jika diketikkan tulisan pada TextBox akan
berubah menjadi karakter *.
Klik pada CommandButton1, dan pada Properties Caption isi dengan OK.
Sehingga Form1 tadi menjadi seperti ini tampilannya:
Pilih File --> Save Project As, dan simpan di folder yang diinginkan, misalnya diberi nama Password.
Kemudian pada bagian Project pilih View Code atau klik pada Button OK:
Dan tuliskan listing program sebagai berikut:
Private Sub ok_Click()
If pass.Text = "latihan" Then
'Jika Textbox pass diisi dengan kata "Latihan" maka
End
'Akhiri Program
Else
'Jika Bukan
MsgBox "Passwordnya salah oi!!!", vbInformation
'Tampilkan pesan kesalahan
End If
End Sub
Kemudian simpan dan compile program dengan pilih File --> Make password.exe:
Jika program dijalankan dan diketikkan password maka tampilannya seperti ini:
Jika password yang dimasukkan salah maka akan muncul peringatan sbb:
* Semoga bermanfaat..