- Yasaklandı
- #1
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif]Bugün size Visual Basic'te InputBox kullanarak güvenlik sistemi yapmayı göstereceğim.[/FONT]
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif]Şimdi formun üzerine sağ tıklıyoruz ve View Code diyoruz.[/FONT]
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif]Sonra şu kodları yazıyoruz:[/FONT]
Kod
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif][font='Open Sans', Tahoma, Verdana, Arial, sans-serif]En son formun Load koduna şunu yazın ve tamamdır:[/FONT]
[/FONT]
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif]Kod:[/FONT]
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif]security("buraya şifrenizi yazın")[/FONT]
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif]Şimdi çalıştıralım.[/FONT]
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif][font='Open Sans', Tahoma, Verdana, Arial, sans-serif]Çalıştırdığınızda çalıştığını göreceksiniz.[/FONT][/FONT]
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif][font='Open Sans', Tahoma, Verdana, Arial, sans-serif]Coder x60[/FONT][/FONT]
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif]Şimdi formun üzerine sağ tıklıyoruz ve View Code diyoruz.[/FONT]
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif]Sonra şu kodları yazıyoruz:[/FONT]
Kod
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 [font='Open Sans', Tahoma, Verdana, Arial, sans-serif][font='Open Sans', Tahoma, Verdana, Arial, sans-serif]En son formun Load koduna şunu yazın ve tamamdır:[/FONT]
[/FONT]
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif]Kod:[/FONT]
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif]security("buraya şifrenizi yazın")[/FONT]
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif]Şimdi çalıştıralım.[/FONT]
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif][font='Open Sans', Tahoma, Verdana, Arial, sans-serif]Çalıştırdığınızda çalıştığını göreceksiniz.[/FONT][/FONT]
[font='Open Sans', Tahoma, Verdana, Arial, sans-serif][font='Open Sans', Tahoma, Verdana, Arial, sans-serif]Coder x60[/FONT][/FONT]
allah razi olsun 
