2 adet Textß0x ve ßir adet ßut0n oLuturalım.
ßuttonumuza tıklayıp kod hanemize girip Şunları tanımıyoruz
Önelikle Textimizi Tanımlıyalım
s1 = text1.text s2 = text2.textßöyLeLikLe napmış olduk diceksiniz
oluşturudğumzuz TextLere İsim verdik Text1.Text Değilde s1 diye tanımlıyacağız.Kodumuza Dewam edeLim.
s1 = text1.Text s2 = text2.Text If s1 = "Stres" and s2 = "123456" Thenßurdada dedikki s1 stres s2 123456 ise o zaman ( Diyelimki form2 yada ßir mesaj yazsın veyatta 2 sini ßirden yapsın )
s1 = Text1.Text s2 = text2.Text If s1 = "Stres" And s2 = "123456" then Form2.show Msgbox "Başarıyla Giriş Yaptın" , vbInformation , "ßurayada ßaşlığımız" End Ifyukarda dedikki kullanıcı adı o ise şifre o ise ßana form2yi açıy0sun ve 0ndan s0nra ßana ßaşarılı Giriş Yaptın Diye vbInformation yani haßer ßilgi Uyarı Ver diy0sun ve 0ndan s0nra ßaşlığımız neyse yaz dedik taßikide ondan sonra açtığımız If'i end ıf olarak ßitiriy0ruz.
Diyelimki ßir Yaratık GeLdi
Hiç ßişi Yazmadı.Onada Sizlerle ßir Çözüm Üretelim.
s1 = Text1.Text s2 = Text2.Text [COLOR="Blue"]If s1 = "" And s2 = "" Then MsgBox "Boş Bıraktın Kamil", vbCritical, "ßaşlık"[/COLOR] ElseIf s1 = "Stres" And "123456" Then Form2.Show MsgBox "Başarıyla Giriş Yaptın", vbInformation, "ßurayada ßaşlığımız" End If0raya ek olarak dedikki eğerki "" "" yani ßoşlık ßırakılırsa "ßoş ßıraktın Kamil" yazdır dedim.
Kolay GeLsin (: