Selamat pagi,siang,dan malam kawan-kawan semua :D hehehe ..
pada kesempatan kali ini saya akan membahas bagaimana caranya membuat form login dengan visual basic 6.0 ..
silahkan yang mau liat tutorialnya dari video yang saya buat sendiri :)
Yang kita butuhkan di sini dalam membuat form login ini adalah visual basic 6.0 ( ya iya lahh,, masa pake microsoft office :D hehe )
Berikut langkah - langakahnya :
1.Buka visual basic 6.0 ,dan pilih standard.exe lalu open,
2.Masukkan 2 Label , 2 TextBox ,dan 3 CommandButton .. Susun seperti yang saya bikin ini ,,lihat gambar :
* COPASNYA DARI TULISAN " Private Sub Command1_Click() " sampai " End Sub "
jika sudah coba anda tekan f5 untuk mencoba form tersebut..
NB:
Tulisan yang berwarna BIRU bisa anda ubah-ubah .. gimana enaknya anda aja.. hehe :D
Jika ada yang mau liat tutorial lengkapnya dan yang ingin liat hasil yang punya saya,silahkan anda download di bawah ini ( tidak terdeteksi virus ) / Bebas dari virus
Download VIA ZIDDU dan 4shared.
Sekian, mohon maaf bila banyak kesalahan :)
Writed By : M.Fathur|TKJ
pada kesempatan kali ini saya akan membahas bagaimana caranya membuat form login dengan visual basic 6.0 ..
silahkan yang mau liat tutorialnya dari video yang saya buat sendiri :)
Berikut langkah - langakahnya :
1.Buka visual basic 6.0 ,dan pilih standard.exe lalu open,
2.Masukkan 2 Label , 2 TextBox ,dan 3 CommandButton .. Susun seperti yang saya bikin ini ,,lihat gambar :
Jika sudah masukkan Code di bawah ini ke dalam form code,,
caranya klik View di kiri atas lalu Code ..
========================================================================
caranya klik View di kiri atas lalu Code ..
========================================================================
Private Sub Command1_Click()=========================================================================
Beep
If Text1.Text = "fathur" And Text2.Text = "password" Then 'All created by Moh.Fathur J S Wiriaatmadja
MsgBox ("Selamat Password Anda Benar"), vbInformation, "M.Fathur|TKJ" 'All created by Moh.Fathur J S Wiriaatmadja
Else
MsgBox ("Ma'af Password Anda Salah,Tanyain dulu Passwordnya sama Moh Fathur yaa"), vbInformation, "M.Fathur|TKJ" 'All created by Moh.Fathur J S Wiriaatmadja
End If
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
End Sub
Private Sub Command3_Click()
MsgBox ("All Created By : Mohamad Fathur J S Wiriaatmadja"), vbInformation, "M.FATHUR|TKJ"
MsgBox ("Saya siswa TKJ dari SMK LPT Ciamis"), vbInformation, "M.FATHUR|TKJ"
End Sub
Private Sub Form_Load()
Beep
End Sub
'All created by Moh.Fathur J S Wiriaatmadja
Private Sub Command2_Click()
Unload Me
End Sub
* COPASNYA DARI TULISAN " Private Sub Command1_Click() " sampai " End Sub "
jika sudah coba anda tekan f5 untuk mencoba form tersebut..
NB:
Tulisan yang berwarna BIRU bisa anda ubah-ubah .. gimana enaknya anda aja.. hehe :D
Jika ada yang mau liat tutorial lengkapnya dan yang ingin liat hasil yang punya saya,silahkan anda download di bawah ini ( tidak terdeteksi virus ) / Bebas dari virus
Download VIA ZIDDU dan 4shared.
Sekian, mohon maaf bila banyak kesalahan :)
Writed By : M.Fathur|TKJ
No comments:
Post a Comment
Bila ada pertanyaan silahkan tinggalkan komentar anda di bawah ini ..
Dan bila ada yang mau mengomentari / memberi saran atas isi entri yang saya tulis silahkan tinggalkan komentar anda di bawah :)
semoga bermanfaat bagi kalian semua ^.^