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




15 komentar:


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

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



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

    BalasHapus
  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 .

    BalasHapus
  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!!!

    BalasHapus
  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.

    BalasHapus
  5. 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.

    BalasHapus
  6. 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

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

    BalasHapus
  8. Your blogs are really good and interesting. virginia divorce laws It is very great and informative. Function jum(eror) ' fungsi agar dapat menampilkan kesempatan Dim hasil As Integer. Keep sharing more useful blogs...

    BalasHapus
  9. This Article is beneficial for everyone. Today I visited this site when I was researching professional logo designers in Pakistan and read this article and got too much knowledge.

    BalasHapus
  10. Amazing, Your blogs are really good and interesting. It is very great and informative. I got a lots of useful information in your blogs. Function jum(eror) ' fungsi agar dapat menampilkan kesempatan bankcruptcy lawyer near me Keeps sharing more useful information in your blogs..

    BalasHapus
  11. "Interior Design's profile is impressive, emphasizing their dedication to excellence in interior design companies in dubai renovations. The innovative designs and client-centric approach make them a standout choice. For unparalleled interior fit-out services in Dubai, Interior Design is the go-to company for transformative and tailored solutions!"

    BalasHapus
  12. Welcome to dust control Units in Edmonton a distinguished entity under the esteemed umbrella of Arjes Machinery Canada. With a steadfast commitment to excellence, RBS Heavy Machinery has emerged as a trusted leader in the heavy machinery sector

    BalasHapus

  13. Arjes Machinery Canada =the unsung heroes transforming dusty landscapes into emotional sanctuaries of purity. This poignant article beautifully captures the essence of these units, turning particles into whispers of relief. A heartfelt tribute to the silent guardians, infusing Edmonton's air with the emotional touch of clarity and serenity."

    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.