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