şifreli giriş ekliyelim

Yaptığınız Programlara Kullanıcı Adı ve Şifre Yazıp Girmek..

Belki görmüşsünüzdür. Bize en yakın örnek: Antivirüs programları. Lisans isterler, ama böyle birşey yapmak için daha acemiyiz .

Ama kullanıcı adı ve şifre ile giriş bölümü yapabiliriz.

İşte bunun için gerekli olanlar: (Program Tarifi)
- 2 Adet Label
- 2 Adet Text
- 1 Command (Botton)

Yukardakileri kendinize göre form yerleştirin... Sonra kod menüsünü açıp aşağıdaki kodları ekleyip kendinize göre düzenleyin...

Private Sub Command1_Click()
Select Case Text1.Text `Bu kısımda kullanıcı adı kısmını tanıtıyoruz
Case Is = "" `Burada ise kullanıcı kısmı boş olduğunda ne yapmak istediğiniz seçersiniz
MsgBox " Biyeri Boş Bırakmışsınız.."
Case Is = "kullanici adi" `kullanıcı adının kullanici adi olduğunu tanıttık
If Text2.Text = "sifreburaya" Then `Kullanıcını Şifresi
MsgBox ("Hoşgeldiniz/Welcome")
End If
Case Else `Eğer kullanıcı adı Dogru Deilse
MsgBox "Üzgünüz.Böyle bir kullanıcı adı bulunmamaktadır."



End Select `kapat
End Sub

Bu kodları ne kadar çok çoğaltıp düzenlerseniz o kadar çok kullanıcı olur.

Kolay gelsin.