HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. HEMEN TIKLA!
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...
Bu kodları ne kadar çok çoğaltıp düzenlerseniz o kadar çok kullanıcı olur.
Kolay gelsin.
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 SubBu kodları ne kadar çok çoğaltıp düzenlerseniz o kadar çok kullanıcı olur.
Kolay gelsin.
