Halo Dunia :D
Kembali lagi di SUMBARANG
Kali ini kita akan coba membagikan tutorial membuat form login sederhana dengan VB .Net
Kuy mulai !!!
1. Pertama-tama Buatlah 2 buah form
2. Form 1 untuk form login
Form 2 untuk form yang terbuka ketika user berhasil login
Untuk Form 1 kita membutuhkan:
3. Aturlah menjadi seperti berikut.
4. Klik button "Masuk" dan masukkan script berikut.
6. Lalu sekarang kita menuju form 2.
Berilah satu label seperti berikut atau kalian bisa kreasikan sendiri sesuka kalian.
7. Jalankan programnya....
voila sekarang kalian telah selesai membuat form Login sederhana!!!
Sekian
Terima Kasih
Kembali lagi di SUMBARANG
Kali ini kita akan coba membagikan tutorial membuat form login sederhana dengan VB .Net
Kuy mulai !!!
1. Pertama-tama Buatlah 2 buah form
2. Form 1 untuk form login
Form 2 untuk form yang terbuka ketika user berhasil login
Untuk Form 1 kita membutuhkan:
- 2 Textbox
- 3 Label
- 1 Panel
- 2 Button
3. Aturlah menjadi seperti berikut.
4. Klik button "Masuk" dan masukkan script berikut.
[code hl="1, 4, 7"]
Dim pesan As String
pesan = ""
If TextBox1.Text = "admin" And TextBox2.Text = "1234" Then
pesan = MsgBox("Login Berhasil", MsgBoxStyle.Information, "Success")
Form2.Show()
Me.Hide()
ElseIf TextBox1.Text = "" And TextBox2.Text = "" Then
pesan = MsgBox("Silahkan Isi Username dan Password", vbInformation, "Hint")
ElseIf TextBox1.Text = "" Then
pesan = MsgBox("Username Kosong", MsgBoxStyle.Critical, "Error!!")
ElseIf TextBox2.Text = "" Then
pesan = MsgBox("Password Kosong", MsgBoxStyle.Critical, "Error!!")
Else
pesan = MsgBox("Username dan Password salah", MsgBoxStyle.Critical, "Error!!")
End If
[/code]
5. Klik button "Keluar" dan masukkan script berikut.Dim pesan As String
pesan = ""
If TextBox1.Text = "admin" And TextBox2.Text = "1234" Then
pesan = MsgBox("Login Berhasil", MsgBoxStyle.Information, "Success")
Form2.Show()
Me.Hide()
ElseIf TextBox1.Text = "" And TextBox2.Text = "" Then
pesan = MsgBox("Silahkan Isi Username dan Password", vbInformation, "Hint")
ElseIf TextBox1.Text = "" Then
pesan = MsgBox("Username Kosong", MsgBoxStyle.Critical, "Error!!")
ElseIf TextBox2.Text = "" Then
pesan = MsgBox("Password Kosong", MsgBoxStyle.Critical, "Error!!")
Else
pesan = MsgBox("Username dan Password salah", MsgBoxStyle.Critical, "Error!!")
End If
[/code]
[code hl="1, 4, 7"]
End
[/code]
End
[/code]
6. Lalu sekarang kita menuju form 2.
Berilah satu label seperti berikut atau kalian bisa kreasikan sendiri sesuka kalian.
7. Jalankan programnya....
voila sekarang kalian telah selesai membuat form Login sederhana!!!
Sekian
Terima Kasih
Tambahan:
BalasHapusUsername = admin
Password = 1234