Login Hanya 3x dengan VB 6.0

Sebelumnya saya sudah membahas cara membuat form login tanpa database dengan VB 6.0,

Kali ini saya akan membahas form login yang hanya 3x,,, maksudnya jika 3x melakukan login salah sebanyak 3x maka form akan keluar secara otomatis. Mungkin teman-teman bertanya kenapa 3x, yah sebenarnya suka teman-teman saja nanti mao berapakali, 4 kali, 5 kali, terserah teman-teman saja dech, karna selama ini saya sering dengar 3 kali, tukang foto ngitung sampai 3, kesabaran juga katanya 3x... hhhheeeeee

mari kita bahas ya teman-teman..

Pertama kita desain dulu ya form loginnya, saya hanya mencontohkan form yang biasa saja... selebihnya terserah teman-teman dech

kita buat 1 buah textbox dan 1 buah Commandbutton

Jika form sudah dibuat maka copy script dibawah ini :

Dim i As Byte   'membuat variabel i bertipe byte (angka)

Private Sub Command1_Click()

    If Text1 <> "Password" Then 'jika isi text1 bukan Password (jika salah)

        i = i + 1 'memberi nilai i

        If i = 1 Then

            MsgBox "Kesempatan 2 kali lagi", vbExclamation, "Peringatan"

        ElseIf i = 2 Then

            MsgBox "Kesempatan 1 kali lagi", vbExclamation, "Peringatan"

        Else

            MsgBox "Maaf Kesempatan sudah habis", vbExclamation, "Peringatan"

            Unload Me

        End If

    Else 'jika login benar

        MsgBox "Selamat Login Sukses", vbInformation, "Pemberitahuan"
    End If
 
End Sub


1. silahkan jalankan dan biarkan text1 kosong kemudian klik tombol login

2. klik oke, kemudian biartkan text1 tetap kosong dan klik Login, maka hasilnya

3. Lakukan langkah yang seperti no 2

4. Nah, coba text1 isi dengan "Password" tanpa tanda kutip

Tips : Supaya password tersembunyi atau menjadi bintang-bintang (*****)

         klik text1(Password), pada properties isi PASSWORD CHAR dengan bintang (*) tanpa kurung

Silahkan dikembangkan,,,,,,,,,,,,,,,,

***** SEMOGA BERMANFAAT *****

Tweet