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 ===>>>




1 komentar:


  1. ارخص شركة شحن عفش

    نقل عفش من جدة الى مكة نقل عفش من جدة الى مكة
    شركة نقل عفش من جدة الى الامارات نقل عفش من جدة الى الامارات
    افضل شركة نقل عفش من جدة الى الرياض نقل عفش من جدة الى الرياض
    شركة نقل عفش من جدة الى الدمام نقل عفش من جدة الى الدمام
    شركة نقل عفش من المدينة المنورة الى مكة نقل عفش من المدينة المنورة الى مكة



    ارخص شركة نقل عفش

    BalasHapus

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.