Merhabalar hani sitelerde üye olurken robot doğrulama kodu yapıyorlar ya ondan yapacağız şimdi.
Gerekenler;
1 adet buton
1 adet textbox
3 adet label
2 adet form oluşturmayı unutmayalım sonuçta geçiş yapacağız değil mi?
Şifreyi yanlış girdiğimizde label3’de Şifre hatalı yazacaktır. Şifreyi doğru girdiğimizde ise form2 açılacaktır.
Kodlar Form1'e
Örnek Form Düzeni;
Alıntıdır.
Gerekenler;
1 adet buton
1 adet textbox
3 adet label
2 adet form oluşturmayı unutmayalım sonuçta geçiş yapacağız değil mi?
Şifreyi yanlış girdiğimizde label3’de Şifre hatalı yazacaktır. Şifreyi doğru girdiğimizde ise form2 açılacaktır.
Kodlar Form1'e
Kod:
Public Class Form1
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Örnek Form Düzeni;
Son düzenleme:
