[font=Calibri, sans-serif]For döngüsü:[/FONT]
[font=Calibri, sans-serif]For komutu programlama dillerinde verilen bir emri belirlenen bir miktar kadar yapmak için kullanilir.[/FONT]
[font=Calibri, sans-serif]Örnegin, For komutu yardimi ile 1’den 10’a kadar sayilari ekrana yazdiralim:[/FONT]
[font=Calibri, sans-serif] [/FONT]
[font=Calibri, sans-serif] Dim sayi As Integer[/FONT]
[font=Calibri, sans-serif] [/FONT]
[font=Calibri, sans-serif] For sayi = 1 To 10[/FONT]
[font=Calibri, sans-serif] TextBox1.AppendText(CStr(sayi) & NewLine)[/FONT]
[font=Calibri, sans-serif] Next[/FONT]
[font=Calibri, sans-serif] End Sub[/FONT]
[font=Calibri, sans-serif] [/FONT]
[font=Calibri, sans-serif] [/FONT]
[font=Calibri, sans-serif]Not1: NewLine komutu için (ImportsMicrosoft.VisualBasic.ControlChars)import etmemiz gerekir.[/FONT]
[font=Calibri, sans-serif]Not2: AppendText metodu TextBox’a bir sayi eklememizi sagliyor.[/FONT]
[font=Calibri, sans-serif] [/FONT]
[font=Calibri, sans-serif]Integer olarak tanimladigimiz ‘sayi’ degiskenimiz 1’den baslayip teker teker 10’a kadar deger aliyor.[/FONT]
[font=Calibri, sans-serif]Peki biz bunu teker teker degil de ikiser ikiser artsin istiyorsak?[/FONT]
[font=Calibri, sans-serif]Bu durumda yapmamiz gereken sey çok basit: ‘Step’ komutu imdadimiza yetisiyor;[/FONT]
[font=Calibri, sans-serif] [/FONT]
[font=Calibri, sans-serif] For sayi = 1 To 10 Step 2[/FONT]
[font=Calibri, sans-serif] TextBox1.AppendText(CStr(sayi) & NewLine)[/FONT]
[font=Calibri, sans-serif] Next[/FONT]
[font=Calibri, sans-serif] [/FONT]
[font=Calibri, sans-serif]For sayi = 1 To 10 Step 2 yerine For sayi = 10 To 1 Step -1 de diyebilirdik. O zaman programimizin çiktisi su sekilde olur:[/FONT]
[font=Calibri, sans-serif] [/FONT]
[font=Calibri, sans-serif]10[/FONT]
[font=Calibri, sans-serif]9[/FONT]
[font=Calibri, sans-serif]8[/FONT]
[font=Calibri, sans-serif]7[/FONT]
[font=Calibri, sans-serif]6[/FONT]
[font=Calibri, sans-serif]5[/FONT]
[font=Calibri, sans-serif]4[/FONT]
[font=Calibri, sans-serif]3[/FONT]
[font=Calibri, sans-serif]2[/FONT]
[font=Calibri, sans-serif]1[/FONT]
[font=Calibri, sans-serif] [/FONT]
[font=Calibri, sans-serif]Yani ilk yaptigi sayma isleminin tam tersi.[/FONT]
[font=Calibri, sans-serif] [/FONT]
[font=Calibri, sans-serif] [/FONT]
[font=Calibri, sans-serif]While döngüsü: [/FONT]
[font=Calibri, sans-serif] [/FONT]
[font=Calibri, sans-serif]Vb.net’te While döngüsü For döngülerinden daha esnektir. Fakat bu esneklik beraberinde risk de getirmekte. Gördük ki eger tekrarin kaç kere yapilmasi gerektigini önceden biliyorsak For komutunu rahatlikla kullanabiliriz. Peki ya ne kadar tekrar olacagini önceden bilemiyorsak?[/FONT]
[font=Calibri, sans-serif] [/FONT]
[font=Calibri, sans-serif] Dim sayi As Integer = 0[/FONT]
[font=Calibri, sans-serif] [/FONT]
[font=Calibri, sans-serif] While sayi < 10[/FONT]
[font=Calibri, sans-serif] sayi += 1[/FONT]
[font=Calibri, sans-serif] TextBox1.AppendText(CStr(sayi) & NewLine)[/FONT]
[font=Calibri, sans-serif] End While[/FONT]
[font=Calibri, sans-serif] [/FONT]
[font=Calibri, sans-serif]Programdan istenen sey su; ‘sayi’ degiskeni eger 10’dan küçük ise döngü içerisinde verilen emirleri yerine getir. Eger ‘sayi’ 10 veya daha büyükse döngüden çikar.[/FONT]
[font=Calibri, sans-serif] [/FONT]
[font=Calibri, sans-serif]Simdi eglenceli birseyler yapalim. Seviye: Amonra_ has much to be proud ofAmonra_ has much to be proud ofAmonra_ has much to be proud ofAmonra_ has much to be proud ofAmonra_ has much to be proud ofAmonra_ has much to be proud ofAmonra_ has much to be proud ofAmonra_ has much to be proud of[/FONT]
[font=Calibri, sans-serif] [/FONT]
[font=Calibri, sans-serif]Satranç oyununu bulan bilge kisinin öyküsü[/FONT]
[font=Calibri, sans-serif]Satranç oyununu bulan bilge kisinin öyküsü Satranç oyununu bulan bilge kisinin öyküsünü biliyor musunuz ?[/FONT]
[font=Calibri, sans-serif]Ödül olarak kraldan satranç tahtasinin ilk karesinin üzerine bir, ikinci karenin üzerine iki,[/FONT]
[font=Calibri, sans-serif]üçüncü karenin üzerine dört pirinç koymasini ve bu biçimde sayilari her seferinde ikiye katlayarak satranç tahtasinin tüm karelerini pirinçle doldurmasini istemis bu bilge.[/FONT]
[font=Calibri, sans-serif]Bizim kiral da meger pek kafasi calisan biri degilmis, önce bu istegi çok alçakgönüllü bulmus ve içinden bilge kisiye gülmüs ama son gülen iyi gülermis! Bir sayiyi on kez ikiye katlarsak o sayiyi 1024 ile çarpmis oluruz; bunu yirmi kez yaparsak bir milyonun üstünde bir sayiyla çarpmis oluruz ve bu böylece sürüp gider.[/FONT]
[font=Calibri, sans-serif]Hadi simdi bunu While yardimi ile hesaplayalim:[/FONT]
[font=Calibri, sans-serif] [/FONT]
[font=Calibri, sans-serif] Dim kare, pirinc, toplam As Double[/FONT]
[font=Calibri, sans-serif] kare = 1[/FONT]
[font=Calibri, sans-serif] pirinc = 1[/FONT]
[font=Calibri, sans-serif] toplam = 1[/FONT]
[font=Calibri, sans-serif] TextBox1.AppendText(CStr(kare) & ". karede " & pirinc & " pirinç var" & NewLine)[/FONT]
[font=Calibri, sans-serif] [/FONT]
[font=Calibri, sans-serif] While kare < 32[/FONT]
[font=Calibri, sans-serif] kare = kare + 1[/FONT]
[font=Calibri, sans-serif] pirinc = pirinc * 2[/FONT]
[font=Calibri, sans-serif] [/FONT]
[font=Calibri, sans-serif] TextBox1.AppendText(CStr(kare) & ". karede " & pirinc & " pirinç var" & NewLine)[/FONT]
[font=Calibri, sans-serif] toplam = toplam + pirinc[/FONT]
[font=Calibri, sans-serif] End While[/FONT]
[font=Calibri, sans-serif] [/FONT]
[font=Calibri, sans-serif] TextBox1.AppendText("toplam: " & CStr(toplam))[/FONT]
[font=Calibri, sans-serif]Ben 64 yerine 10 aldim ki programin çiktisi abartili olmasin. Iste sonuç:[/FONT]
[font=Calibri, sans-serif] [/FONT]
[font=Calibri, sans-serif]1. karede 1 pirinç var[/FONT]
[font=Calibri, sans-serif]2. karede 2 pirinç var[/FONT]
[font=Calibri, sans-serif]3. karede 4 pirinç var[/FONT]
[font=Calibri, sans-serif]4. karede 8 pirinç var[/FONT]
[font=Calibri, sans-serif]5. karede 16 pirinç var[/FONT]
[font=Calibri, sans-serif]6. karede 32 pirinç var[/FONT]
[font=Calibri, sans-serif]7. karede 64 pirinç var[/FONT]
[font=Calibri, sans-serif]8. karede 128 pirinç var[/FONT]
[font=Calibri, sans-serif]9. karede 256 pirinç var[/FONT]
[font=Calibri, sans-serif]10. karede 512 pirinç var[/FONT]
[font=Calibri, sans-serif]toplam: 1023[/FONT]
[font=Calibri, sans-serif] J[/FONT]
[font=Calibri, sans-serif] [/FONT]
[font=Calibri, sans-serif]While döngüsünü özetleyecek olursak:[/FONT]
[font=Calibri, sans-serif] [/FONT]
[font=Calibri, sans-serif]1-) Eger aranan sart mevcutsa döngü devam eder[/FONT]
[font=Calibri, sans-serif]2-) Eger aranan sart yok ise döngü End While komutu ile son bulur.[/FONT]
[font=Calibri, sans-serif][font=Calibri, sans-serif]Buraya kadar Visual Basic.NET’te döngülerin nasil yapildigini ve çalisma mantigini anlatmaya çalistim.[/FONT]
[/FONT]
[font=Calibri, sans-serif]Simdi biraz ayrintiya girip, degisik durumlar için kullanilan diger döngülere bakalim. Mantik ayni oldugu icin kisa örneklerle yetinecegim.[/FONT]
[font=Calibri, sans-serif] [/FONT]
[font=Calibri, sans-serif]Amaç, sayilari 1’den 10’a kadar TextBox’a yazdirmak olsun:[/FONT]
[font=Calibri, sans-serif] [/FONT]
[font=Calibri, sans-serif]Do - While ile:[/FONT]
[font=Calibri, sans-serif] [/FONT]
[font=Calibri, sans-serif] Dim sayi As Integer[/FONT]
[font=Calibri, sans-serif] [/FONT]
[font=Calibri, sans-serif] Do While sayi < 10[/FONT]
[font=Calibri, sans-serif] sayi = sayi + 1[/FONT]
[font=Calibri, sans-serif] TextBox1.AppendText(CStr(sayi) & ", ")[/FONT]
[font=Calibri, sans-serif] Loop[/FONT]
[font=Calibri, sans-serif] [/FONT]
[font=Calibri, sans-serif] [/FONT]
[font=Calibri, sans-serif]Do – Until ile:[/FONT]
[font=Calibri, sans-serif] [/FONT]
[font=Calibri, sans-serif] Do Until sayi >= 10[/FONT]
[font=Calibri, sans-serif] sayi = sayi + 1[/FONT]
[font=Calibri, sans-serif] TextBox1.AppendText(CStr(sayi) & ", ")[/FONT]
[font=Calibri, sans-serif] Loop[/FONT]
[font=Calibri, sans-serif] [/FONT]
[font=Calibri, sans-serif]Do – Loop While ile:[/FONT]
[font=Calibri, sans-serif] [/FONT]
[font=Calibri, sans-serif] Do[/FONT]
[font=Calibri, sans-serif] sayi = sayi + 1[/FONT]
[font=Calibri, sans-serif] TextBox1.AppendText(CStr(sayi) & ", ")[/FONT]
[font=Calibri, sans-serif] Loop While sayi < 10[/FONT]
[font=Calibri, sans-serif] [/FONT]
[font=Calibri, sans-serif]Do – Loop Until ile:[/FONT]
[font=Calibri, sans-serif] [/FONT]
[font=Calibri, sans-serif] Do[/FONT]
[font=Calibri, sans-serif] sayi = sayi + 1[/FONT]
[font=Calibri, sans-serif] TextBox1.AppendText(CStr(sayi) & ", ")[/FONT]
[font=Calibri, sans-serif] Loop Until sayi >= 10[/FONT]
[font=Calibri, sans-serif] [/FONT]
[font=Calibri, sans-serif]Programlarin çiktisi: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10[/FONT]
[font=Calibri, sans-serif] [/FONT]
[font=Calibri, sans-serif][font=Calibri, sans-serif]Not: Karsilastirma operatörlerine (<, >, =, <=, >=,<>) dikkat ediniz![/FONT][/FONT]
[font=Calibri, sans-serif][font=Calibri, sans-serif] UMARIM SİZİNDE İŞİNİZE YARAR ARKADAŞLAR. BANA GÖRE YARARLI BİR KONU. İŞİNİZE YARARYIP YARAMADIĞINI LÜTFEN MESAJ OLARAK ATIN.[/FONT][/FONT]
memoryhackers.org Farkıyla !!
[font=Calibri, sans-serif]For komutu programlama dillerinde verilen bir emri belirlenen bir miktar kadar yapmak için kullanilir.[/FONT]
[font=Calibri, sans-serif]Örnegin, For komutu yardimi ile 1’den 10’a kadar sayilari ekrana yazdiralim:[/FONT]
[font=Calibri, sans-serif] [/FONT]
[font=Calibri, sans-serif] Dim sayi As Integer[/FONT]
[font=Calibri, sans-serif] [/FONT]
[font=Calibri, sans-serif] For sayi = 1 To 10[/FONT]
[font=Calibri, sans-serif] TextBox1.AppendText(CStr(sayi) & NewLine)[/FONT]
[font=Calibri, sans-serif] Next[/FONT]
[font=Calibri, sans-serif] End Sub[/FONT]
[font=Calibri, sans-serif] [/FONT]
[font=Calibri, sans-serif] [/FONT]
[font=Calibri, sans-serif]Not1: NewLine komutu için (ImportsMicrosoft.VisualBasic.ControlChars)import etmemiz gerekir.[/FONT]
[font=Calibri, sans-serif]Not2: AppendText metodu TextBox’a bir sayi eklememizi sagliyor.[/FONT]
[font=Calibri, sans-serif] [/FONT]
[font=Calibri, sans-serif]Integer olarak tanimladigimiz ‘sayi’ degiskenimiz 1’den baslayip teker teker 10’a kadar deger aliyor.[/FONT]
[font=Calibri, sans-serif]Peki biz bunu teker teker degil de ikiser ikiser artsin istiyorsak?[/FONT]
[font=Calibri, sans-serif]Bu durumda yapmamiz gereken sey çok basit: ‘Step’ komutu imdadimiza yetisiyor;[/FONT]
[font=Calibri, sans-serif] [/FONT]
[font=Calibri, sans-serif] For sayi = 1 To 10 Step 2[/FONT]
[font=Calibri, sans-serif] TextBox1.AppendText(CStr(sayi) & NewLine)[/FONT]
[font=Calibri, sans-serif] Next[/FONT]
[font=Calibri, sans-serif] [/FONT]
[font=Calibri, sans-serif]For sayi = 1 To 10 Step 2 yerine For sayi = 10 To 1 Step -1 de diyebilirdik. O zaman programimizin çiktisi su sekilde olur:[/FONT]
[font=Calibri, sans-serif] [/FONT]
[font=Calibri, sans-serif]10[/FONT]
[font=Calibri, sans-serif]9[/FONT]
[font=Calibri, sans-serif]8[/FONT]
[font=Calibri, sans-serif]7[/FONT]
[font=Calibri, sans-serif]6[/FONT]
[font=Calibri, sans-serif]5[/FONT]
[font=Calibri, sans-serif]4[/FONT]
[font=Calibri, sans-serif]3[/FONT]
[font=Calibri, sans-serif]2[/FONT]
[font=Calibri, sans-serif]1[/FONT]
[font=Calibri, sans-serif] [/FONT]
[font=Calibri, sans-serif]Yani ilk yaptigi sayma isleminin tam tersi.[/FONT]
[font=Calibri, sans-serif] [/FONT]
[font=Calibri, sans-serif] [/FONT]
[font=Calibri, sans-serif]While döngüsü: [/FONT]
[font=Calibri, sans-serif] [/FONT]
[font=Calibri, sans-serif]Vb.net’te While döngüsü For döngülerinden daha esnektir. Fakat bu esneklik beraberinde risk de getirmekte. Gördük ki eger tekrarin kaç kere yapilmasi gerektigini önceden biliyorsak For komutunu rahatlikla kullanabiliriz. Peki ya ne kadar tekrar olacagini önceden bilemiyorsak?[/FONT]
[font=Calibri, sans-serif] [/FONT]
[font=Calibri, sans-serif] Dim sayi As Integer = 0[/FONT]
[font=Calibri, sans-serif] [/FONT]
[font=Calibri, sans-serif] While sayi < 10[/FONT]
[font=Calibri, sans-serif] sayi += 1[/FONT]
[font=Calibri, sans-serif] TextBox1.AppendText(CStr(sayi) & NewLine)[/FONT]
[font=Calibri, sans-serif] End While[/FONT]
[font=Calibri, sans-serif] [/FONT]
[font=Calibri, sans-serif]Programdan istenen sey su; ‘sayi’ degiskeni eger 10’dan küçük ise döngü içerisinde verilen emirleri yerine getir. Eger ‘sayi’ 10 veya daha büyükse döngüden çikar.[/FONT]
[font=Calibri, sans-serif] [/FONT]
[font=Calibri, sans-serif]Simdi eglenceli birseyler yapalim. Seviye: Amonra_ has much to be proud ofAmonra_ has much to be proud ofAmonra_ has much to be proud ofAmonra_ has much to be proud ofAmonra_ has much to be proud ofAmonra_ has much to be proud ofAmonra_ has much to be proud ofAmonra_ has much to be proud of[/FONT]
[font=Calibri, sans-serif] [/FONT]
[font=Calibri, sans-serif]Satranç oyununu bulan bilge kisinin öyküsü[/FONT]
[font=Calibri, sans-serif]Satranç oyununu bulan bilge kisinin öyküsü Satranç oyununu bulan bilge kisinin öyküsünü biliyor musunuz ?[/FONT]
[font=Calibri, sans-serif]Ödül olarak kraldan satranç tahtasinin ilk karesinin üzerine bir, ikinci karenin üzerine iki,[/FONT]
[font=Calibri, sans-serif]üçüncü karenin üzerine dört pirinç koymasini ve bu biçimde sayilari her seferinde ikiye katlayarak satranç tahtasinin tüm karelerini pirinçle doldurmasini istemis bu bilge.[/FONT]
[font=Calibri, sans-serif]Bizim kiral da meger pek kafasi calisan biri degilmis, önce bu istegi çok alçakgönüllü bulmus ve içinden bilge kisiye gülmüs ama son gülen iyi gülermis! Bir sayiyi on kez ikiye katlarsak o sayiyi 1024 ile çarpmis oluruz; bunu yirmi kez yaparsak bir milyonun üstünde bir sayiyla çarpmis oluruz ve bu böylece sürüp gider.[/FONT]
[font=Calibri, sans-serif]Hadi simdi bunu While yardimi ile hesaplayalim:[/FONT]
[font=Calibri, sans-serif] [/FONT]
[font=Calibri, sans-serif] Dim kare, pirinc, toplam As Double[/FONT]
[font=Calibri, sans-serif] kare = 1[/FONT]
[font=Calibri, sans-serif] pirinc = 1[/FONT]
[font=Calibri, sans-serif] toplam = 1[/FONT]
[font=Calibri, sans-serif] TextBox1.AppendText(CStr(kare) & ". karede " & pirinc & " pirinç var" & NewLine)[/FONT]
[font=Calibri, sans-serif] [/FONT]
[font=Calibri, sans-serif] While kare < 32[/FONT]
[font=Calibri, sans-serif] kare = kare + 1[/FONT]
[font=Calibri, sans-serif] pirinc = pirinc * 2[/FONT]
[font=Calibri, sans-serif] [/FONT]
[font=Calibri, sans-serif] TextBox1.AppendText(CStr(kare) & ". karede " & pirinc & " pirinç var" & NewLine)[/FONT]
[font=Calibri, sans-serif] toplam = toplam + pirinc[/FONT]
[font=Calibri, sans-serif] End While[/FONT]
[font=Calibri, sans-serif] [/FONT]
[font=Calibri, sans-serif] TextBox1.AppendText("toplam: " & CStr(toplam))[/FONT]
[font=Calibri, sans-serif]Ben 64 yerine 10 aldim ki programin çiktisi abartili olmasin. Iste sonuç:[/FONT]
[font=Calibri, sans-serif] [/FONT]
[font=Calibri, sans-serif]1. karede 1 pirinç var[/FONT]
[font=Calibri, sans-serif]2. karede 2 pirinç var[/FONT]
[font=Calibri, sans-serif]3. karede 4 pirinç var[/FONT]
[font=Calibri, sans-serif]4. karede 8 pirinç var[/FONT]
[font=Calibri, sans-serif]5. karede 16 pirinç var[/FONT]
[font=Calibri, sans-serif]6. karede 32 pirinç var[/FONT]
[font=Calibri, sans-serif]7. karede 64 pirinç var[/FONT]
[font=Calibri, sans-serif]8. karede 128 pirinç var[/FONT]
[font=Calibri, sans-serif]9. karede 256 pirinç var[/FONT]
[font=Calibri, sans-serif]10. karede 512 pirinç var[/FONT]
[font=Calibri, sans-serif]toplam: 1023[/FONT]
[font=Calibri, sans-serif] J[/FONT]
[font=Calibri, sans-serif] [/FONT]
[font=Calibri, sans-serif]While döngüsünü özetleyecek olursak:[/FONT]
[font=Calibri, sans-serif] [/FONT]
[font=Calibri, sans-serif]1-) Eger aranan sart mevcutsa döngü devam eder[/FONT]
[font=Calibri, sans-serif]2-) Eger aranan sart yok ise döngü End While komutu ile son bulur.[/FONT]
[font=Calibri, sans-serif][font=Calibri, sans-serif]Buraya kadar Visual Basic.NET’te döngülerin nasil yapildigini ve çalisma mantigini anlatmaya çalistim.[/FONT]
[/FONT]
[font=Calibri, sans-serif]Simdi biraz ayrintiya girip, degisik durumlar için kullanilan diger döngülere bakalim. Mantik ayni oldugu icin kisa örneklerle yetinecegim.[/FONT]
[font=Calibri, sans-serif] [/FONT]
[font=Calibri, sans-serif]Amaç, sayilari 1’den 10’a kadar TextBox’a yazdirmak olsun:[/FONT]
[font=Calibri, sans-serif] [/FONT]
[font=Calibri, sans-serif]Do - While ile:[/FONT]
[font=Calibri, sans-serif] [/FONT]
[font=Calibri, sans-serif] Dim sayi As Integer[/FONT]
[font=Calibri, sans-serif] [/FONT]
[font=Calibri, sans-serif] Do While sayi < 10[/FONT]
[font=Calibri, sans-serif] sayi = sayi + 1[/FONT]
[font=Calibri, sans-serif] TextBox1.AppendText(CStr(sayi) & ", ")[/FONT]
[font=Calibri, sans-serif] Loop[/FONT]
[font=Calibri, sans-serif] [/FONT]
[font=Calibri, sans-serif] [/FONT]
[font=Calibri, sans-serif]Do – Until ile:[/FONT]
[font=Calibri, sans-serif] [/FONT]
[font=Calibri, sans-serif] Do Until sayi >= 10[/FONT]
[font=Calibri, sans-serif] sayi = sayi + 1[/FONT]
[font=Calibri, sans-serif] TextBox1.AppendText(CStr(sayi) & ", ")[/FONT]
[font=Calibri, sans-serif] Loop[/FONT]
[font=Calibri, sans-serif] [/FONT]
[font=Calibri, sans-serif]Do – Loop While ile:[/FONT]
[font=Calibri, sans-serif] [/FONT]
[font=Calibri, sans-serif] Do[/FONT]
[font=Calibri, sans-serif] sayi = sayi + 1[/FONT]
[font=Calibri, sans-serif] TextBox1.AppendText(CStr(sayi) & ", ")[/FONT]
[font=Calibri, sans-serif] Loop While sayi < 10[/FONT]
[font=Calibri, sans-serif] [/FONT]
[font=Calibri, sans-serif]Do – Loop Until ile:[/FONT]
[font=Calibri, sans-serif] [/FONT]
[font=Calibri, sans-serif] Do[/FONT]
[font=Calibri, sans-serif] sayi = sayi + 1[/FONT]
[font=Calibri, sans-serif] TextBox1.AppendText(CStr(sayi) & ", ")[/FONT]
[font=Calibri, sans-serif] Loop Until sayi >= 10[/FONT]
[font=Calibri, sans-serif] [/FONT]
[font=Calibri, sans-serif]Programlarin çiktisi: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10[/FONT]
[font=Calibri, sans-serif] [/FONT]
[font=Calibri, sans-serif][font=Calibri, sans-serif]Not: Karsilastirma operatörlerine (<, >, =, <=, >=,<>) dikkat ediniz![/FONT][/FONT]
[font=Calibri, sans-serif][font=Calibri, sans-serif] UMARIM SİZİNDE İŞİNİZE YARAR ARKADAŞLAR. BANA GÖRE YARARLI BİR KONU. İŞİNİZE YARARYIP YARAMADIĞINI LÜTFEN MESAJ OLARAK ATIN.[/FONT][/FONT]
memoryhackers.org Farkıyla !!
