Öncelikle 4Label 4textbox 2group box 3buton ekleyin.
BUTON İSİMLERİNİ
ÇIKIŞ,KAYIT VE GİRİŞ YAPIN
Buton Kodları
ÇIKIŞ
Me.Hide
Me.Close
End
KAYIT
My.Settings.Giris = TextBox1.Text ( 1kısmına Kayıt group box kısmında ID kısmının karşısındaki TextBox nosunu yazın)
My.Settings.Sifre = TextBox2.Text ( 2kısmına Kayıt group box kısmında Şifre kısmının karşısındaki TextBox nosunu yazın)
My.Settings.Save
GİRİŞ
If TextBox3.Text = My.Settins.Giris ( 3kısmına Giriş group box kısmında ID kısmının karşısındaki TextBox nosunu yazın) and TextBox4.Text = My.Settigs.Sifre (4kısmına Giriş group box kısmında Şifre kısmının karşısındaki TextBox nosunu yazın)
PEKİ BU KODLARI YAZMADAN ÖNCE NAPACAĞIZ ?
Sağ Kısımdan WindowsApplication a sağ tıklayıp Propites seçeneğine tıklayın.
![](http://i.hizliresim.com/zrzDqO.png)
Sonra Settings Kısmına Gelip;
![](http://i.hizliresim.com/pBQDPm.png)
Şeklinde Ayarlayın.
Ardından F5e basıp deneyin.Artık Programınızın Giriş Ve Kayıt Kısmı Oldu !
NOT
Eğer Giriş tuşundan sonra başka bir forma bağlayacaksınız
If TextBox3.Text = My.Settins.Giris and TextBox4.Text = My.Settings.Sifre = TextBox4.Text
Form2.Show (Hangi forma bağlayacaksınız onun nosu veya ısmını Form2 yerıne yazın)
Eğer Girişe Basınca Programın Kapanmasını Istıyorsanız
If TextBox3.Text = My.Settins.Giris and TextBox4.Text = My.Settings.Sifre = TextBox4.Text
Form2.Show
Me.Hide
Eğer Yanlış Girişte Uyarı Gelmesini İstiyorsanız
If TextBox3.Text = My.Settins.Giris and TextBox4.Text = My.Settings.Sifre = TextBox4.Text
Form2.Show
Me.Hide
Else
MsgBox("istediginiz uyari mesaji")
Eğer Mesajdan sonra Programın Kapanmasını Istıyorsanız
If TextBox3.Text = My.Settins.Giris and TextBox4.Text = My.Settings.Sifre = TextBox4.Text
Form2.Show
Me.Hide
Else
MsgBox("istediginiz uyari mesaji")
Me.Hide
Me.Close
End
BU KADAR YARDIMCI OLABİLDİYSEM NE MUTLU BANA !
BUTON İSİMLERİNİ
ÇIKIŞ,KAYIT VE GİRİŞ YAPIN
Buton Kodları
ÇIKIŞ
Me.Hide
Me.Close
End
KAYIT
My.Settings.Giris = TextBox1.Text ( 1kısmına Kayıt group box kısmında ID kısmının karşısındaki TextBox nosunu yazın)
My.Settings.Sifre = TextBox2.Text ( 2kısmına Kayıt group box kısmında Şifre kısmının karşısındaki TextBox nosunu yazın)
My.Settings.Save
GİRİŞ
If TextBox3.Text = My.Settins.Giris ( 3kısmına Giriş group box kısmında ID kısmının karşısındaki TextBox nosunu yazın) and TextBox4.Text = My.Settigs.Sifre (4kısmına Giriş group box kısmında Şifre kısmının karşısındaki TextBox nosunu yazın)
PEKİ BU KODLARI YAZMADAN ÖNCE NAPACAĞIZ ?
Sağ Kısımdan WindowsApplication a sağ tıklayıp Propites seçeneğine tıklayın.
![](http://i.hizliresim.com/zrzDqO.png)
Sonra Settings Kısmına Gelip;
![](http://i.hizliresim.com/pBQDPm.png)
Şeklinde Ayarlayın.
Ardından F5e basıp deneyin.Artık Programınızın Giriş Ve Kayıt Kısmı Oldu !
NOT
Eğer Giriş tuşundan sonra başka bir forma bağlayacaksınız
If TextBox3.Text = My.Settins.Giris and TextBox4.Text = My.Settings.Sifre = TextBox4.Text
Form2.Show (Hangi forma bağlayacaksınız onun nosu veya ısmını Form2 yerıne yazın)
Eğer Girişe Basınca Programın Kapanmasını Istıyorsanız
If TextBox3.Text = My.Settins.Giris and TextBox4.Text = My.Settings.Sifre = TextBox4.Text
Form2.Show
Me.Hide
Eğer Yanlış Girişte Uyarı Gelmesini İstiyorsanız
If TextBox3.Text = My.Settins.Giris and TextBox4.Text = My.Settings.Sifre = TextBox4.Text
Form2.Show
Me.Hide
Else
MsgBox("istediginiz uyari mesaji")
Eğer Mesajdan sonra Programın Kapanmasını Istıyorsanız
If TextBox3.Text = My.Settins.Giris and TextBox4.Text = My.Settings.Sifre = TextBox4.Text
Form2.Show
Me.Hide
Else
MsgBox("istediginiz uyari mesaji")
Me.Hide
Me.Close
End
BU KADAR YARDIMCI OLABİLDİYSEM NE MUTLU BANA !