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.
