Oktay Şenkan
🌱Yeni Üye🌱
- Katılım
- 21 Tem 2010
- Mesajlar
- 22
- Tepkime puanı
- 0
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...
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...
Kod:
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
