KacaMata IT: ! Tutorial Membuat Password dengan Visual Basic 6

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: