Bugün size Visual Basic'te InputBox kullanarak güvenlik sistemi yapmayı göstereceğim.
Şimdi formun üzerine sağ tıklıyoruz ve View Code diyoruz.
Sonra şu kodları yazıyoruz:
Kod:
Sub security(password As String)
Dim d = InputBox("Parolanızı giriniz", "Güvenlik Sistemi")
If d <> password Then
MsgBox("Yanlış parola", MsgBoxStyle.Critical, "Hata")
security(password)
ElseIf d = password Then
MsgBox("Başarıyla giriş yapıldı", MsgBoxStyle.Information, "Başarılı")
Me.Close()
End If
End Sub
En son formun Load koduna şunu yazın ve tamamdır:
Kod:
security("buraya şifrenizi yazın")
Şimdi çalıştıralım.
Çalıştırdığınızda çalıştığını göreceksiniz.
--> iYİ Forumlar Hemosu
Şimdi formun üzerine sağ tıklıyoruz ve View Code diyoruz.
Sonra şu kodları yazıyoruz:
Kod:
Kod:
Dim d = InputBox("Parolanızı giriniz", "Güvenlik Sistemi")
If d <> password Then
MsgBox("Yanlış parola", MsgBoxStyle.Critical, "Hata")
security(password)
ElseIf d = password Then
MsgBox("Başarıyla giriş yapıldı", MsgBoxStyle.Information, "Başarılı")
Me.Close()
End If
End Sub
Kod:
Kod:
security("buraya şifrenizi yazın")
Şimdi çalıştıralım.
Çalıştırdığınızda çalıştığını göreceksiniz.
--> iYİ Forumlar Hemosu