Selamat Datang di SFX Community
Peraturan SFX Community :
1. Dilarang berkomentar dengan menghina SARA(Suku,Agama,Ras, Antar Golongan)
2. Silahkan download link yang tertera di postingan website ini
3. Bantu dengan donasi klik anda dengan cara mengklik iklan disamping kiri atau dibawah judul postingan
4. Software yang kami berikan tidak bertanggung jawab atas pemakaian diluar batas
5. Serial Number, Aktifasi Kunci software yang sudah kadarluwarsa harap diberi tahu agar dapat diupdate
6. Kami sedang membangun website tutorial, belanja, pemesanan DVD
7. Tolong anda sebagai pengujung website kami dengan klik iklan kami

Terima Kasih sudah membaca peraturan SFX Community


Saturday, November 23, 2013

Cara Membuat Form Login VB6 No Database

Cheat FREE
Langsung saja kita ke cara membuat Form Login Password Dengan VB 6.0

Langkah - Langkah :
1. Buat project baru dengan  memilih Standart EXE pada New Project.
2. Atur properti dari masing - masing objek diatas seperti tabel dibawah ini :


Nama Objek
Properti
Nilai
Label1
Name
Caption
Font
Label1
User Name
Font : Comic Sans MS
Font Style : Bold
Size : 12
Label2
Name
Caption
Font
Label1
Password
Font : Comic Sans MS
Font Style : Bold
Size : 12
Text1
Name
Text
Text1
Tulisan Text 1 di hapus
Text2
Name
Text
PasswordChar
Text2
Tulisan Text2 di hapus
*
Command1
Name
Command1
Command2
Name
Command2

3.  Jika isi username adalah OPERATE dan password adalah System, lalu tombol ok ditekan maka akan menampilkan kotak pesan (MsgBox) "Selamat Datang di Di Operate System"
4. Jika username / passwordnya salah, lalu tombol ok ditekan maka akan menampilkan kotak pesan (MsgBox) " Password Anda Salah, Silahkan Coba Lagi.!"
5. Setelah memasukan username lalu ingin memasukan lagi di password, biasanya kita menekan mouse/ tombol tab, sekarang buatlah dengan menggunakan tombol enter.
#NB : Perhatikaan penggunaan besar kecilnya huruf saat memasukkan data
Private Sub Command1_Click()
If Me.Text1.Text = "OPERATE" And Me.Text2.Text = "System" Then
MsgBox ("Selamat datang di Operate System"), , "Benar "
Else
MsgBox ("Password Anda Salah, Silahkan Coba Lagi !"), , "Salah"
Exit Sub
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Me.Text1.Text = ""
Me.Text2.Text = ""
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
Text2.SetFocus
End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
Command1.SetFocus
End If
End Sub

Thank's for reading the articelCara Membuat Form Login VB6 No Database .If You want to copy paste your website please tag my link Cara Membuat Form Login VB6 No Database Intro My Website.

0 comments:

Post a Comment