Kamis, 08 November 2012

Tugas 6.2



Ini Gan Tugas Sister 6.2 "if else"

Bagi  yang membutuhkan monggo disimak ......
















Dim eror As Integer

Function jum(eror)  ' fungsi agar dapat menampilkan kesempatan
Dim hasil As Integer
hasil = 0
hasil = hasil + eror
Label5.Caption = "Anda Mempunyai Kesempatan ke-" & hasil
End Function
Private Sub Form_Load()
text1.Text = ""
text2.Text = ""
End Sub

'Ini bagian tombol Kliknya
Private Sub XPButton1_Click()


If text2.Text <> "user" Then ' jika password tidak sama dengan ""user"" akan ditampilkan:
eror = eror + 1  ' menunjukan jumlah eror
jum (eror)
MsgBox "Password Salah" ' menampilkan password salah
Label5.Caption = ""
If eror = 3 Then ' jika eror terjadi 3 kali maka
    Label5.Caption = "Akun Anda Di blokir"  ' akun akan di blokir
text2.Enabled = False ' text disable
XPButton1.Enabled = False ' button disable
End If
Else
MsgBox "Selamat Anda Berhasil Login" '"user" di inputkan
End If
End Sub

Private Sub XPButton2_Click()
End
End Sub

Private Sub XPOption1_Change()
text2.PasswordChar = ""  ' membuat password berkarakter
End Sub

Private Sub XPOption2_Change()
text2.PasswordChar = "X" 'membuat password Berkarakter enkripsi "X"

End Sub







Download Source code ===>>>




Tidak ada komentar:

Posting Komentar

Bagi teman - teman yang menemukan link, yang tidak bisa di download, segera laporkan ya... Supaya bisa di perbaiki.
Laporkan link yang tidak bisa di download ke nomor : 085736497749
Dengan format : Nama Anda - Lapor - Link - Rusak
Contoh : Dian - Lapor - http://materi-it.unpkediri.ac.id/p/blog-page_2.html - Rusak

Terimakasih selamat berkunjung kembali dan semoga bermanfaat.