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
MsgBox "Selamat Anda Berhasil Login" '"user" di inputkan
End If
End Sub

Private Sub XPButton2_Click()
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 ===>>>

10 komentar:

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

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

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

  2. It is also a great article to read. I like this type of article.Flyer design service makes extend from modestly copied pamphlets to costly, reflexive, full-shading brochures .

  3. Good morning! If you are not so smart in writing your essay papers, using these tips and techniques will help take your writing to high level. Pro authors at this classy online company (they always write my college essay) will help to reach you the highest stage in study all of your subjects and will make your assignments so much better than ever before!!!

  4. The article is technically great and informative. I have read and also collect information for Editing and Proofreading Services UAE, the whole world a lot of writers also visits these kind of site to get information in their spare time.

  5. Through www.amazon.com/mytv - how you can connect your mobile phone to Amazon Prime. Through amazon.com/mytv, you can watch your favorite TV shows, series movies. You can watch prime videos anywhere on your device. Users need to create an Amazon account if they don’t have an Amazon account and enter the Amazon my TV activation code to watch Amazon prime videos on your device.

    amazon.com/mytv | www.amazon.com/mytv

  6. If you are considering getting assignment help online, you might be wondering, “What is the best custom essay writing service?” Different services have different strengths and shortcomings. Things That Make You an Excellent Designer but you are highly unlikely to find another company that delivers consistent quality and sticks to deadlines like our service.

  7. Information article, it was very helpful! I simply began in this and I’m attractive more familiar with it better! Thanks, keep doing amazing.. visit this: pu leather bag manufacturer

  8. Ah, sudah lama aku mencari ini. Mengapa saya membaca posting Anda sampai sekarang? retro bowl


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.