MEMBUAT FORM LOGIN MENGGUNAKAN VISUAL BASIC

keterangan kode :

If Text1.Text = "admin" And Text2.Text = "123" Then

Form1.Show

Form2.Hide

maksudnya jika text1 berisikan nilai admin dan text2 berisikan nilai 123 maka akan menampilkan form1 dan menutup form2

Else

Dim gagal As String

gagal = MsgBox("maaf username atau password salah", vbCritical + vbOKOnly, "gagal")

maksudnya adadalah jika tidak ada nilai yang sama dengan kondisi sebelumnya, maka pilihan terakhir adalah menjalankan msgbox atau pemberitahuan “maaf username atau password salah, vbcritical adalah pemberitahuan berjenis peringatan, vbOKOnly untuk membuat tombol OK di pemberitahuan tersebut, “gagal” adalah judul dari peringatan tersebut.

Text1.Text = "" untuk mengosongkan isi text1

Text2.Text = "" untuk mengosongkan isi text2

Text1.SetFocus = untuk memfokuskan kursor ke text1

MsgBox ("terima kasih telah mencoba program ini") untuk menampilkan pesan “terima kasih telah mencoba program ini”

MsgBox ("USERNAME anda adalah admin dan PASSWORD anda adalah 123") untuk menampilkan pesan “USERNAME anda adalah admin dan PASSWORD anda adalah 123”

Dim keluar As String

pesan = MsgBox("apakah anda yakin ingin keluar ?", vbInformation + vbYesNo, "konfirmasi")

If pesan = vbNo Then

Form2.Show

Maksudnya adalah membuat pesan dengan kondisi, msgbox akan menampilkan sebuah notifikasi “apakah anda yakin ingin keluar ?” , vbinformation adalah pemberitahuan berjenis informasi, vbYesNo adalah untuk memunculkan tombo ya atau tidak, “ konfirmasi” adalah judul dari pemberitahuan itu.

If pesan = vbNo Then maksudnya adalah jika pengguna menekan tombol tidak pada pemberitahuan maka form2 akan muncul.