1 <%@pagelanguage="VB"%>
2 <scriptrunat="server">
3 subpage_load(objasobject,easeventargs)
4 'Mesajnyazld ksm
5 metin. text="ASP. NETDünyasnaHogeldiniz"
6 endsub
7 </script>
8 <html><body>
9 <asp: labelid="metin"runat=" server "/>
10 </body></html>
degiskenYaz.aspx
1 <%@pagelanguage="VB"%>
2 <scriptrunat="server">
3 subpage_load(objasobject,easeventargs)
4 dimmerhabaasstring
5 merhaba="Deikenlerilestringifadeleringösterimi
farkldr."
6 response.write("merhaba"&"<br>")
7 response.write(merhaba)
8 endsub
9 </script>
10 <html><body></body></html>
harfDuyarli.aspx
1 <script language="VB" runat="server">
2 subpage_load(objasobject,easeventargs)
3 dimadasstring
4 ad="MEB"
5 response.write(ad&"<br>")
6 response.write(AD&"<br>")
7 response.write(aD&"<br>")
8 response.write(Ad&"<br>")
9 endsub
10 </script>
diziAd.aspx
1 <script language="VB" runat="server">
2 subPage_Load(senderasobject,easeventargs)
3 dimad(4)asstring
4 ad(0)=“Mehmet”
5 ad(1)=“Buse”
6 ad(2)=“Baak”
7 ad(3)=“Burak”
8 ad(4)=“Eser”
9 response.write(ad(0)&"<br>")
10 response.write(ad(1)&"<br>")
11 response.write(ad(2)&"<br>")
12 response.write(ad(3)&"<br>")
13 response.write(ad(4)&"<br>")
14 endsub
15 </script>diziAd.aspx
1 <script language="VB" runat="server">
2 subPage_Load(senderasobject,easeventargs)
3 dimad(4)asstring
4 ad(0)=“Mehmet”
5 ad(1)=“Buse”
6 ad(2)=“Baak”
7 ad(3)=“Burak”
8 ad(4)=“Eser”
9 response.write(ad(0)&"<br>")
10 response.write(ad(1)&"<br>")
11 response.write(ad(2)&"<br>")
12 response.write(ad(3)&"<br>")
13 response.write(ad(4)&"<br>")
14 endsub
15 </script>
2.1.1.If..ThenDeyimi
Ifkomutununkullanmekliaadakigibidir:
ifart then komut
metinKutusuBosMu.aspx
1 <script language="VB" runat="server">
2 subgonderme(senderasobject,easeventargs)
3 iftextbox1.text=""then
4 label2.text="Adnz yazmadnz"
5 endif
6 iftextbox1.text<>""then
7 label2.text="Merhaba"&textbox1.text
8 endif
9 endsub
10 </script>
11 <html><body>
12 <formrunat="server">
13 <asp:labelid="label1"text="Adnz"runat="server"/>
14 <asp:textboxid="textbox1"runat="server"/>
15 <asp:buttonid="button1"text="Gönder"onclick="gonderme"
runat="server"/>
16 <asp:labelid="label2"runat="server"/>
17 </form></body></html>
parola.aspx
1 <script language="VB" runat="server">
2 dimparolaasstring="192025"
3 subonaylama(senderasobject,easeventargs)
4 iftextbox1.text=parolathen
5 label2.text="Parolaonayland"
6 endif
7 iftextbox1.text<>parolathen
8 label2.text="Parolahatas"
9 endif
10 endsub
11 </script>
12 <html><body>
13 <formrunat="server">
14 <asp:labelid="label1"text="Parola"runat="server"/>
15 <asp:textboxid="textbox1"ontextchanged="onaylama"
runat="server"/>
16 <asp:labelid="label2"runat="server"/>
17 </form></body></html>
sifreOnay.aspx
1 <script language="VB" runat="server">
2 subonaylama(senderasobject, easeventargs)
3 iftextbox1.text=textbox2.textthen
4 label3.text="ifreonayland"
5 endif
6 iftextbox1.text<>textbox2.textthen
7 label3.text="ifrehatal girilmitir."
8 endif
9 endsub
10 </script>
11 <html><body>
12 <formrunat="server">
13 <asp:labelid="label1"text="ifreniz"runat="server"/>
14 <asp:textboxid="textbox1"textmode="password"
runat="server"/>
15 <asp:labelid="label2"text="ifrenizitekrargirin"
runat="server"/>
16 <asp:textboxid="textbox2"textmode="password"
runat="server"/><br>
17 <asp:buttonid="buton"text="Onaylyorum"onclick="onaylama"
runat="server"/><br>
18 <asp:labelid="label3"runat="server"/>
19 </form></body></html>
2.1.2.If..Then..ElseDeyimi
Ifdeyimininfarkl birkullanmdr. Else kelimesiTürkçe’de“aksihâlde,aksitakdirde,
deilse”anlamlarnagelir.Budeyimle,belirtilenartngerçeklememesidurumunda
çaltrlacakkomutlarifadeedilir.Budeyiminkullanmekliaadakigibidir:
ifart thenartngerçeklemesidurumundaçaltrlacakkomutlar
elseartngerçeklememesidurumundaçaltrlacakkomutlar
endif
2.1.3.ElseifDeyimi
Ifdeyimininçokartl durumlardakullanlanbirtürüdür.Aadabudeyimin
kullanmeklibelirtilmitir.
ifart1 thenart1’ingerçeklemesidurumundaçaltrlacakkomutlar
elseifart2 thenart2’ingerçeklemesidurumundaçaltrlacakkomutlar
elseifart3 thenart3’ingerçeklemesidurumundaçaltrlacakkomutlar
…..
…..
else
Öncekiartlarngerçeklememesidurumundaçaltrlacakkomutlar
Endif
2.1.4.SelectCaseDeyimi
SelectCasedeyimi,birdeikeninald deerleregörefarkl ilemleryapmay
salar.
SelectCasedeyimininkullanmekliaadakigibidir:
SelectCase(deiken)
Case deer1
Deikeniniçeriideer1 iseçaltrlacakkomutlar
parolaCase.aspx
1 <script language="VB" runat="server">
2 dimparolaasstring="192025"
3 subonaylama(senderasobject,easeventargs
4 selectcasetextbox1.text
5 caseparola
6 label2.text="Parolaonayland"
7 caseelse
8 label2.text="Parolahatas"
9 endselect
10 endsub
11 </script>
12 <html><body>
13 <formrunat="server">
14 <asp:labelid="label1"text="Parola"runat="server"/>
15 <asp:textboxid="textbox1"ontextchanged="onaylama"
runat="server"/>
16 <asp:labelid="label2"runat="server"/>
17 </form></body></html>
3.1.1.For..Next Deyimileminkaçdefatekrarlanacannbilindiidurumlardabudeyimkullanlr.For
deyiminkullanmbiçimiaadakigibidir:
Fordeiken= balangçdeeri to biti deeri [step stepdeeri]
Çaltrlacakkomutlar
Next
3DefaYaz.aspx
1 <script language="VB" runat="server">
2 dimiasinteger
3 subPage_Load(senderasobject,easeventargs)
4 fori=1to3
5 response.write("Türkiye"&"<br>")
6 next
7 endsub
8 </script>
10aKadarYaz.aspx
1 <script language="VB" runat="server">
2 dimiasinteger
3 subPage_Load(senderasobject,easeventargs)
4 fori=1to10
5 response.write(i&"")
6 next
7 endsub
8 </script>
forDiziAd.aspx
1 <script language="VB" runat="server">
2 dimad(4)as string
3 dimiasinteger
4 subPage_Load(senderasobject,easeventargs)
5 ad(0)=“Mehmet”
6 ad(1)=“Buse”
7 ad(2)=“Baak”
8 ad(3)=“Burak”
9 ad(4)=“Eser”
10 fori=0to4
11 response.write(ad(i)&"<br>")
12 next
13 end sub
14 </script>
3.1.3.While..EndWhileDeyimi
Döngününkaçdefagerçekleeceibilinmediindefor…nextdeyimikullanlamaz.
Böylesidurumlardadierdöngükomutlar tercihedilir.BukomutlardanolanWhile…End
Whiledeyimibirartdoruolduusürecebirilemigerçekletirmeyisalar.
whileDiziAd.aspx
1 <script language="VB" runat="server">
2 dimad(4)asstring
3 dimiasinteger=0
4 subPage_Load(senderasobject,easeventargs)
5 ad(0)=“Mehmet”
6 ad(1)=“Buse”
7 ad(2)=“Baak”
8 ad(3)=“Burak”
9 ad(4)=“Eser”
10 whilei<=4
11 response.write(ad(i)&"<br>")
12 i =i+1
13 endwhile
14 endsub
15 </script>
3.1.4.DoWhile..LoopDeyimi
DoWhile..Loopdeyiminin2türkullanm vardr.
1.türkullanm
Dowhileart
Kodlar
Loop
2.tür kullanm
Do
Kodlar
Loopwhileart
Birincitürkullanmdaartkontroledilir,artdoruysakodlar
kodlarçaltrlmadanprogramdevameder.kincitürkullan
çaltrldktansonraartkontrol edilir,artgerçekletiisürecek
devamedilir.kincitürkullanmdaartyanlsabilekodlarbirdefaça
Budeyiminikitürlükullanmn içerenaadakileriörnekl
mantn inceleyiniz.
doWhileDiziAd.aspx
1 <script language="VB" runat="server">
2 dimad(4)asstring
3 dimiasinteger=0
4 subPage_Load(senderasobject,easeventargs
5 ad(0)=“Mehmet”
6 ad(1)=“Buse”
7 ad(2)=“Baak”
8 ad(3)=“Burak”
9 ad(4)=“Eser”
10 dowhilei<=4
11 response.write(ad(i)&"<br>")
12 i=i+1
13 loop
14 endsub
15 </script>
