MEMBUAT PROGRAM PASSWORD

MEMBUAT PROGRAM PASSWORD

Yang pertama buat FORM1 seperti gambar diatas , Pada FORM1 jika ingin membuat LABEL pada form VISUAL BASIC dengan memilih fungsi dengan icon  .

Setelah mengklik arahkan kursor ke FORM1 ,lalu klik sehingga kursor berubah lalu tarik sesuai yang di butuhkan .

Lalu jika ingin merubah caption ,arahkan kursor pada LABEL yang diinginkan lalu pilih caption di properti . lalu hapus dan ganti .

Setelah itu jika ingin membuat TEXTBOX pilih icon   ,, lalu arahkan kursor ke FORM1 ,dan lakukan seperti membuat LABEL . Jika ingin merubah atau menghapus pada TEXTBOX sama seperti di LABEL .

Dan pilih icon    COMMANDBUTTON untuk membuat fitur tombol pada FORM1 , lalu ikuti seperti membuat LABEL dan TEXTBOX . lau untuk membuat coding pada COMMANDBUTTON . Doubel klik COMMANDBUTTON lalu masukan coding seperti gambar di bawah ini .

CODING berikut  (  If Text1 = "JOHAN KALVIN" And Text2 = "INDONESIA" Then

MsgBox ("ANDA BERHASIL LOGIN")   ) berarti jika TEXT1 terisi sama seperti yang berada dalam petik dua , dan TEXT2 sama seperti yang berada di tanda petik dua maka akan tampil pesan ANDA BERHASIL LOGIN .

Form1.Hide

Form2.Show

Else

MsgBox ("USERNAME/PASSWORD SALAH")

End If

End Sub

FORM1.HIDE berarti jika langkah MsgBox ("ANDA BERHASIL LOGIN") tampil maka FORM1 akan tersembunyi dan FORM2 akan tampil . ELSE  ,  MsgBox ("USERNAME/PASSWORD SALAH")  jika ada lainnya maka akan tampil pesan USERNAME/PASSWORD SALAH . END IF perintah akhir dari IF dan END SUB perintah dari akhir dari SUB .

Untuk membuat FORM2 sama seperti pada FORM1 . dan untuk coding nya .

Private Sub Command1_Click()

Text1.Text = ""

Text2.Text = ""

Label6 = ""

Label7 = ""

Label8 = ""

Perintah tersebut berarti jika COMMANDBUTTON di klik maka TEXT1,TEXT2,LABEL6,LABEL7,LABEL8 AKAN KOSONG karena isi pada tanda petik kosong .

Dan pada COMMANDBUTTON yang ke 2 berisi .

Private Sub Command2_Click()

Dim HASIL As Integer

HASIL = (Int(Text1.Text) + Int(Text2.Text)) / 2    . Yang berarti pada saat COMMAND2 di klik akan menghasilkan dari input TEXT1 + TEXT2 di bagi 2 . (  If HASIL >= 90 Then , Label6 = "A" , Label8 = "LULUS"   ) mengartikan bila HASIL sama dengan lebih besar 90 maka di LABEL6 dan LABEL akan tampil seperti yang di dalam tanda petik . dan seterusnya pada HASIL berikutnya sesuai dengan statement  yang di masukan  . LABEL7 perintah menampilkan HASIL di dalam LABEL7 .

DAN SETELAH PROGRAM DI START

input pada TEXTBOX sesuai codingnya .

jika berhasil login akan tampil pada FORM2 seperti berikut . Input nilai dan klik OK .

Artikel Terkait