Membuat Menu Login Sederhana VB 6.0 Dengan Array

-
Iseng-iseng buka file lama, eh nemu file ini  tugas kuliah si dia buat menu login sederhana pake visual basic 6.0. nah loginya ni pake logika array temen-temen jadi gini  kalo login 3 gagal program keluar dengan sendirinya.
 kayak gini source nya

Private Sub CMDLOGIN2_Click()
Static i As Integer
    If TXTNAMA.Text = "WADUH" And TXTPASS.Text = "WADUH" Then
        GoSub login_ke
        pesan = MsgBox("ANDA BERHASIL LOGIN", vbInformation, "BERHASIL")
        FRMMENU.Show
        FRMMENU.LBLLOGIN.Caption = "Selamat Anda berhasil Log in"
        Unload Me
    Else
        GoSub login_ke '----------------->>var untuk nghitung jumlah kesalahan input
        pesan = MsgBox("MAAF NAMA ATAU PASSWORD SALAH", vbInformation, "GAGAL")
        TXTNAMA.Text = ""
        TXTPASS.Text = ""
        TXTNAMA.SetFocus
    End If
Exit Sub

login_ke:
i = i + 1 '------------------>>  nghitung jumlah  input
If i = 3 Then
    MsgBox "Maaf anda tidak berhak mengakses aplikasi ini !", vbCritical, ":: GAGAL ::"
    Unload Me
Else
    Return
End If

End Sub

download filenya di mari .

Postingan populer dari blog ini

Mengenal XAMPP

-
Gambar
XAMPP  adalah  perangkat lunak bebas, yang mendukung banyak sistem operasi, merupakan kompilasi dari beberapa  program.  Fungsinya adalah sebagai server yang berdiri sendiri (localhost), yang terdiri atas program Apache HTTP Server, MySQLdatabase, dan penerjemah bahasa yang ditulis dengan bahasa pemrograman PHP dan Perl. Nama XAMPP merupakan singkatan dari X (empat sistem operasi apapun), Apache, MySQL, PHP dan Perl. Program ini tersedia dalam GNU (General Public License) dan bebas, merupakan web server yang mudah digunakan yang dapat melayani tampilan halaman web yang dinamis.
Baca selengkapnya

Etika Profesi

-
Profesi merupakan bagian dari pekerjaan Profesi merupakan bagian dari pekerjaan, tetapi tidak semua pekerjaan adalah profesi. Profesi adalah suatu bentuk pekerjaan yang mengharuskan pelakunya memiliki pengetahuan tertentu yang diproleh melalui pendidikan formal dan keterampilan tertentu yang didapat melalui pengalaman kerja pada orang yang terlebih dahulu menguasai keterampilan tersebut, dan terus memperbaharui ketrampilannya sesuai dengan perkembangan teknologi. Dengan mencintai profesi, orang akan terpacu untuk terus mengembangkan kemampuan yang mendukung profesi tersebut. Kembali menilik pada pengertian profesi yang telah dibahas sebelumnya, seorang pelaku profesi haruslah memiliki sifat-sifat sebagai berikut • Menguasai ilmu secara mendalam dalam bidangnya. • Mampu mengonversikan ilmu menjadi ketrampilan. • Selalu menjunjung tinggi etika dan integritas profesi. Professional sebagai Bentuk dari Profesi Selanjutnya, seorang yang professional adalah seseor...
Baca selengkapnya