Friday 29 April 2011

Form Login - Visual Basic



Membuat Form (formulir, GUI of software) Login dalam sebuah program Administrasi itu memang penting,
karena hak akses untuk mengelola data (administrasi) tersebut harus terjaga keasliannya.
Ada banyak logika cara untuk membuat Form Login, sesuai tingkat kemahiran seseorang tersebut dalam programing.
Nah, disini saya beri contoh untuk teknik dasar dalam membuatnya, yaitu dengan mencocokkan TextBox satu dengan
TextBox lain dalam Visual Basic 6.0 Programming.
Untuk yang lebih sih bisa dengan membuat file tertentu, menempel di Registry, bahkan menempel pada program
itu sendiri, begitu sih menurut teknik yang pernah saya terapkan selama mempelajari Visual Basic 6.0 a.k.a
(as know as) VB ini.
Are u wanna try more? Just do it now!


'From Login
'Palangka Raya, 28/4/2011, 1:40 PM (WIB)
'Riyan Hidayat Samosir @ BeKaBe.BlogSpot.Com - Belajar Visual Basic _ Form Login
'Tambahkan: 2 buah Label, 3 buah TextBox, 1 buah CommandButton

Dim SalahPassWord_ke_i_kali As Integer

Private Sub Form_Load()
SalahPassWord_ke_i_kali = 0
Me.Caption = "Form login"
Me.Text3.Visible = False
End Sub

Private Sub Command1_Click()
If Me.Text2.Text = Me.Text3.Text Then
MsgBox "Selamat datang!"
Me.Caption = "Sukses login"
Else
SalahPassWord_ke_i_kali = SalahPassWord_ke_i_kali + 1
MsgBox "Anda salah memasukkan PassWord " & SalahPassWord_ke_i_kali & " kali"
Me.Caption = "Form login"
If SalahPassWord_ke_i_kali = 2 Then
MsgBox "Kesempatan Anda 1 kali lagi"
End If
If SalahPassWord_ke_i_kali = 3 Then
Me.Caption = "Gagal login"
MsgBox "Anda sudah salah memasukkan PassWord 3 kali, maka proses ini akan ditutup!"
End
End If
End If
End Sub



Contoh file dapat di download di : http://ryanbekabe.byethost14.com/files/Form_Login.zip
Atau di : http://www.ziddu.com/download/14788716/Form_Login.zip.html

4 comments:

julian said...

ryan..aq mnta bahan pa dawid dri awl ad ga...
klo ga..yg ad pnya qmu aj..yg pernah dplajari d'MK pa dawid..
trims..

Ryan BeKaBe said...

Gak ada pang, tp tanya ja mau yang mana, kaena ku buatkan!

Anonymous said...

yg pembelian3..
trus tugas bapa yg mdiform,login, sma database yg kmren wktu hari jum'at..
gak ngerti aq,,
trims ya..

BeKaBe said...

To Jualian: Nah, ku gak mencatat jua, coba kam kasih scriptnya yg gak jalan ja, n'tar ku baikin!