Bu dersimizde bir forma parola koymayı öğreneceğiz.

Bunu Visual Studio 2008'de yapacağız.

Kullanılacak toolbox'lar:
- 2 tane textbox
- 2 tane label
- 2 tane button

Formumuzun şekli aşağıdaki gibidir:



Bu programı nerede kullanacağız diye düşünüyorsunuzdur. Şu şekilde söyleyeyim: Bir program yaptıgınızda o programın herkes tarafından degil de, sadece sizin ve sizin belirlediğiniz kişiler tarafından girilmesini istiyorsanız bunu kullanabilirsiniz.

Sıra kodlara geldi. Ben burada "if" komutu kullanarak yapacağım. textbox2'nin properties'ten passwordchar= * yapacağız. Çünkü yazdığımız parolanın görünmesini istemiyoruz.

Button1'in içine şu kodları yazalım:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "rıdvan" And textbox2.text= "12345" Then 
            MsgBox("hoşgeldiniz")'kullanıcı bilgisi doğru ise hoşgeldiniz mesajı variyor'
            Form2.Show() ' şifre dogrulanırsa ikinci form' u  acıyor'
        Else
            MsgBox("kayıtlı kullanıcı degil")
        End If
    End Sub

Sonra iki butona temizle olayını yapacağız:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Text = " "
        TextBox2.Text = " "

    End Sub

Kolay gelsin.

Bu dersimizde bir forma parola koymayı öğreneceğiz.

Bunu Visual Studio 2008'de yapacağız.

Kullanılacak toolbox'lar:
- 2 tane textbox
- 2 tane label
- 2 tane button

Formumuzun şekli aşağıdaki gibidir:



Bu programı nerede kullanacağız diye düşünüyorsunuzdur. Şu şekilde söyleyeyim: Bir program yaptıgınızda o programın herkes tarafından degil de, sadece sizin ve sizin belirlediğiniz kişiler tarafından girilmesini istiyorsanız bunu kullanabilirsiniz.

Sıra kodlara geldi. Ben burada "if" komutu kullanarak yapacağım. textbox2'nin properties'ten passwordchar= * yapacağız. Çünkü yazdığımız parolanın görünmesini istemiyoruz.

Button1'in içine şu kodları yazalım:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "rıdvan" And textbox2.text= "12345" Then 
            MsgBox("hoşgeldiniz")'kullanıcı bilgisi doğru ise hoşgeldiniz mesajı variyor'
            Form2.Show() ' şifre dogrulanırsa ikinci form' u  acıyor'
        Else
            MsgBox("kayıtlı kullanıcı degil")
        End If
    End Sub

Sonra iki butona temizle olayını yapacağız:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Text = " "
        TextBox2.Text = " "

    End Sub

Kolay gelsin.