Langkah Pertama,yaitu buka visual basic...
2) Pilih New Project pada Star Page..
3) Setelah New Project di klik,akan ada tampilan akan ada tampilan seperti gambar berikut
4) Pilih "Windows Form Application"...setelah di klik,akan ada form seperti gambar berikut
5) Kita ganti judul form1 menjadi nama yg kita inginkan...saya disini ingin mengganti dengan nama "RieqyNS13"...cara adalah dengan mengganti kata form1 pada kotak "Text" yg berada pada menu "Properties",menu Properties berada di pojok kanan
6) Setelah itu pada form1 beri komponen seperti berikut :
2 buah "Label"
2 buah "TextBox"
2 buah "Button"
1 buah "Proggres Bar"
1 buah "Timer"
1 buah "CheckBox"
7) Kita pasangkan komponen itu seperti gambar berikut :
8) Kemudian nama komponen tersebut kita ubah sebagai berikut:
Label1 = Nama :
Label2 = Password :
Button1= Close
Button2 = Log in
CheckBox = Non-Password
cara mengganti tulisan komponennya adalah dengan mengganti kata yg terdapat pada kotak "Text" pada menu properties pada sebelah pojok kanan
9) Setelah kita ganti,gambar akan tampak sebagai berikut
10) Setelah itu,klik 1 kali "TextBox2",dan pada bagian menu "Properties" cari tulisan "UseSystemPassword",dan kita ganti menjadi "True"
11) Setelah itu,pada Button1 yg tulisannya telah kita ubah menjadi "Close",klik 2 kali
"
12 )Setelah di klik 2 kali,kita masukkan code :
End
fungsinya untuk mengeluarkan aplikasi pada saat sedang dijalankan
13) Setelah itu,tombol Button2 yg tulisannya telah kita ubah menjadi Log in klik 2 kali
14) Setelah kita klik 2 kali,kita isikan code berikut
Timer1.Start
fungsinya untuk memanggil perintah timer1 ketika timbolnya kita klik
15) Setelah itu,CheckBox1 yg tulisannya telah kita ubah menjadi "Non-Password" kita klik 2 kali
16) Setelah checkbox1 kita klik 2 kali,masukkan code sebagai berikut
If CheckBox1.Checked Then
TextBox2.UseSystemPasswordChar = False
Else
TextBox2.UseSystemPasswordChar = True
End If
17) Setelah itu, komponen "Timer1" kita klik 2 kali
18) Dan kita masukkan code berikut :
If TextBox1.Text = "NAMA" And TextBox2.Text = "PASSWORD" Then
ProgressBar1.Increment(10)
If ProgressBar1.Value = ProgressBar1.Maximum Then
Timer1.Stop()
ProgressBar1.Value = 0
MsgBox("Your Logged", MsgBoxStyle.Information)
Form2.Show()
End If
Else
Timer1.Start()
ProgressBar1.Increment(10)
If ProgressBar1.Value = ProgressBar1.Maximum Then
Timer1.Stop()
ProgressBar1.Value = 0
MsgBox("Login Not Succes", MsgBoxStyle.Critical)
End If
End If
untuk lebih jelasnya.lihat gambar berikut
19) TAPI !,masih akan ada error pada bagian Error List seperti gambar berikut..
itu menandakan bahwa form2 yg kita code kan belum ada,cara mengatasinya adalah dengan cara seperti gambar berikut
20) Setelah "Add New Item..." dipilih,akan ada banyak pilihan menu....pilih yang bertulisan "Windows Form"
untuk lebih jelasnya,lihat gambar berikut..
21. Setelah dipilih.. Windows Form yg kita pilih tadi akan bergambar sebagai berikut
22) Judul Form 2 diatas sudah saya ganti dengan judul "RIEQYNS13 CODER"
23)Setelah "Form2" ditambahkan,error pada kotak "Error List" akan menjadi kosong
24) SELESAI,saya disini akan menambahkan beberapa aksesoris pada form2,yaitu berupa "Label1" yg tulisannya telah kita ubah menjadi "SELAMAT DATANG DI RIEQYNS13 CODER"
25) Setelah itu,tinggal kita coba,dengan menekan tombol "F5" atau dgn mengklik icon hijau bergambar panah seperti gambar berikut
SEMOGA BERMANFAAT
|o|
BalasHapus:>)
BalasHapusthanks atas infonya gan
BalasHapusmampir yah http://projectfamily42.blogspot.com (o)
jngn lupa follow hehehe ...
Maksih gan infonya,
BalasHapus:)