İD PASSWORD yapımı

Aug 08,2008 00:00 by RubeNiS
İlk önce 1 form oluşturalim

bu formda

2 label,2 text box , 2 command buton olusturalim.

labellerden birine ıd karsisina text1 koyalim (text box)

labellerden diğerine password karsisina text2 koyalim (text box)

dugmelerden birinin adini login, baglan istediginizi koyun

diğer dugmeyede exit ve ya çikiş adini veya istediginiz bir şey yazin

şimdi sira kodlara geldi

bağlan yazdiğimiz dugmeminin ustune tiklayip bu kodu yazin

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 " Bu kısmı boş bırakamssınız"

Case Is = "Sabote" ’kullanıcı adının Sabote olduğunu tanıttık

If Text2.Text = "Sabote" Then ’Yapılmasını istenen olay yani şifremiz

MsgBox ("Hoşgeldiniz")

End If

Case Else ’Eğer kullanıcı doğru değilse

MsgBox "Böyle bir kullanıcı adı bulunmamaktadır"

End Select ’kapanış

End Sub