VB De Formlar Arası Şifreli Geçiş

Form1′e yazılacaklar



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


Şifreyi yanlış girdiğimizde label3′de Şifre hatalı yazacaktır.



Aşağıdaki gibi şifreyi doğru girdiğimizde form2 açılacaktır.