Cara bikin menu password di VB

          udah lama gk posting-posting gara blog yang di ngeblogs.com gk bsa dibuka,jadi bikin baru deh di blogspot.com,,heeeeheee.

          Posting kali ini ane kasih judul Cara bikin menu password di VB gan.Ane inget dulu disuruh bikin sama Dosen Algoritma & Pemrograman ditempat ane kuliah.
Pertama nya ane gk tau gmna cara bikin nya ,akhirnya dateng suatu ILHAM(bukan ilham anak pak Jayadih,,,hahhahha)tapi ilham beneran di pikiran ane.Ane dapet ilham buat cari di perpus kampus,,dan alhamdulillah ketemu,,"jadi curhat gini dah,,maapinn yeee:)

langsung aja nh gan ane,,

 

pertama ente bikin dlu tuh New Project => Standard EXE ,terus kalo udah muncul Form 1 ,bikin User name pake Label1 , password pake Label2 trus disamping nya bikin 2 buah text box, dan bikin  2 command button.Pasti agan-agan udah tau kan gunanya yang disebut diatas,kalo belum???wahhh ,paaraaabbeeeeuuuttt(parah banget)..

oia ,jangan lupa tuh yang sebelah kanan bawah gambar,ada yang cetak biru,,

Pada saat membuat password,di  alfabetic ,passwodchar nya diganti dengan tanda “*” agar pada saat runing,di penulisan password akan diganti tanda “*”.Ini dinamakan Encript gan..

kl udah kita ketahap masukin Coding nya,, agan bsa klik kanan mouse,pilih view code atau klik langsung 2 x di command1.kodingnya ini nh gan..

Logika program password :

Private Sub Command1_Click()

#awal  dari program

If Text1.Text = "informationsystem" And Text2.Text = "1ka29" Then

Form2.Show

Else

MsgBox " your user name or password invalid", vbInformation, "attention"

#jika text1.text diisi dengan “informationsystem” dan text2.text diisi “1ka29” maka setelah diklik tombol sign in akan langsung muncul form.2(yaitu kalkulator dan warna)

Kemudian jika text1 dan text2 diisi selain itu,maka akan salah dan akan muncul message box" your user name or password invalid", vbInformation, "attention"

End If

#akhir dari perintah if

End Sub

#akhir dari program

terus kl udah tutup jendela coding,klik lagi 2 x pada command2,dan isi coding seperti ini....

Private Sub Command2_Click()

#awal dai program

End

#program akan berakhir atau keluar

End Sub

#akhir dari program

Jika salah memasukkan password atau username akan jadi gini gann..

 

cat: yang tanda "#" jangan ikut di ketik gann,soalnya itu arti dari coding nya,,

okkeeeehh,selesaii,,

selamat mencobaaa ,smoga bisa menambah ilmu  buat kaliann,,

oia,,mohon budayakan comment yahh,,terimakasih,,sering-sering mampirrrr k sni lagii yah,,,:DD