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 ===>>>
BalasHapusارخص شركة شحن عفش
نقل عفش من جدة الى مكة نقل عفش من جدة الى مكة
شركة نقل عفش من جدة الى الامارات نقل عفش من جدة الى الامارات
افضل شركة نقل عفش من جدة الى الرياض نقل عفش من جدة الى الرياض
شركة نقل عفش من جدة الى الدمام نقل عفش من جدة الى الدمام
شركة نقل عفش من المدينة المنورة الى مكة نقل عفش من المدينة المنورة الى مكة
ارخص شركة نقل عفش
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 .
BalasHapusGood 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