Arkadaslar If'in kelime anlamı 'eğer'dir. Koşullarda kullanırız eğer şu olursa şöyle olur gibi Then in Kelime Anlamı 'o zaman'dır.
mesela;
Dim a As Integer = t1.Text
Dim b As Integer = t2.Text
if (a = b) Then
lblsonuc = "a eşittir b"
Else
lblsonuc = "a eşit değildir b "
End if
Burada da diyor ki arkadaslar a ve b diye 2 tane değişkenimiz var Eğer a, b ye eşit ise lblsonuc'a a eşittir b yazar else yani değilse lblsonuc'a a eşit değildir b yazar.
Adınız = <asp:TextBox ID="t1" runat="server" /><br />
Soyadınız = <asp:TextBox ID="t2" runat="server" /><br />
Mail Adresiniz = <asp:TextBox ID="t3" runat="server" /><br />
<asp:Label ID="l4" runat="server" /><br />
<asp:Button ID="b1" runat="server" Text="Gönder" />
Butonun Click Olayındada Su Kodları Yapıştırın :
Dim i As String = t1.Text
Dim j As String = t2.Text
Dim k As String = t3.Text
If (i = "") And (j = "") And (k = "") Then
l4.Text = "Hatalı Giriş ! Adınızı Soyadınızı Ve Mail Adresinizi Giriniz "
'Şu An ki Koşul da 3 kutucuğuda hiç birsey girilmezse Ekrana = Hatalı Giriş ! Adınızı Soyadınızı Ve Mail Adresinizi Giriniz yazdırır.
Else
If (i = "") And (j = "") Then
l4.Text = "Hatalı Giriş ! Adınızı Soyadınızı Giriniz"
'Şu An ki Koşul da i ve j bos ise ekrana = Hatalı Giriş ! Adınızı Soyadınızı Giriniz yazdırır.
Else
If (i = "") And (k = "") Then
l4.Text = "Hatalı Giriş ! Adınızı Mail Adresinizi Giriniz"
'Şu An ki Koşul i ve k bos bırakılır ise ekrana = Hatalı Giriş ! Adınızı Mail Adresinizi Giriniz yazılır.
Else
If (j = "") And (k = "") Then
l4.Text = "Hatalı Giriş ! Soyadınızı Mail Adresinizi Giriniz"
'Şu An ki Koşul j ve k bos bırakılır ise ekrana = Hatalı Giriş ! Soyadınızı Mail Adresinizi Giriniz yazılır.
Else
If (i = "") Then
l4.Text = "Hatalı Giriş ! Adınızı Giriniz"
'Şu An ki Koşul i boş bırakılır ise ekrana = Hatalı Giriş ! Adınızı Giriniz yazılır
Else
If (j = "") Then
l4.Text = "Hatalı Giriş ! Soyadınızı Giriniz"
'Şu An ki Koşul j boş bırakılır ise ekrana = Hatalı Giriş ! Soyadınızı Giriniz yazılır
Else
If (k = "") Then
l4.Text = "Hatalı Giriş ! Mail Adresinizi Giriniz"
'Şu An ki Koşul k boş bırakılır ise Ekrana = Hatalı Giriş ! Mail Adresinizi Giriniz yazılır
Else
l4.Text = "Doğru Giris Yaptınız :)"
'Eğer Bundan Once Yazdığım Kosullardan Hiçbiri sağlamıosa yani tum metin kutucuklarına karakter giriliyorsa Ekrana = Doğru Giris Yaptınız :) yazılır
End If
End If
End If
End If
End If
End If
End If
Arkadaslar önünde tek tırnak olan cümleler yorum satırıdır visual studio tarafından çalıstırılmaz gormezden gelinir orada acıklamaları yaptım yararlı olmuşumdur umarım
Web Tasarım Öğretmenim = http://ozguryaman.com/
Hiç yorum yok:
Yorum Gönder