Formlar Arası Şifreli Geçiş Vb.Net
Daha fazla bilgi için : www.gorselprogramlama.com
Form1’e yazılacaklar
[code lang=”vbnet”]
Public Class Form1 ‘ Daha fazla bilgi için : www.gorselprogramlama.com
Dim sifre As String
Dim k As String() = {"a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "r", "s", "t", "u", "v", "y", "z", "0", "1", "2", "3", "4", "5", "6", "7", "8", "9"}
Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
If TextBox1.Text = sifre Then
Form2.Show()
Else
Label3.Text = "Şifre hatalı"
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For i As Integer = 0 To 5
Randomize()
sifre += k(Int(Rnd() * 33)) ‘ bunun yerine uzun olarak sifre =sifre+ k(Int(Rnd() * 33)) kullanılabilir.
Next
Label2.Text = sifre
End Sub
End Class
[/code]
Şifreyi yanlış girdiğimizde label3’de Şifre hatalı yazacaktır.
Aşağıdaki gibi şifreyi doğru girdiğimizde form2 açılacaktır.
Daha fazla bilgi için : www.gorselprogramlama.com
bir buton koysak o butona her tıkladığımız da yeni bir şifre yazsa bunu nasıl yapabiliriz.lütfen yardımcı olun…
ikinci bir buton ekleyip click olayına aşağıdaki kodlar yazılır.
Label2.Text = “”
For i As Integer = 0 To 5
Randomize()
sifre += k(Int(Rnd() * 33))
Next
Label2.Text = sifre
biz şifreli geçişi yaptık fakat çalışmıyor ne yapmamız gerekiyo. . .
hata mesajını yazarsan yardımcı oluruz.
bir form1 den form2 ye şifreli geçiş yaptım fakat form 2 de bulunan mesela kaydet butonunu form 1 deki şifreye göre pasif yapmak istiyorum.
Naıl yapabilirim
yardımcı olursanız sevinirim
Şart ile yapabilirsin.
if (sifre1234) Then Button1.Enabled=False
form 1 de yazacam form 2 demi
form 2 de yazmayı denedim fakat form1 de ki şifre textboxına girilen değeri nasıl tanıtacam
mesela form1 de iken form2 deki button1′ pasif yapcaksın.
form1 deki giriş butonuna şunları yazcaksın. Form2 deki button2 yi seçiğ propertiesten Modifers özelliğini Public yapmalısın.
if (sifre=1234) Then Form2.Button1.Enabled=False