ASP'de Do Loop ve Do While Loop örnek kodu

Ahbap

Harbi Üye
Forum Üyesi
Katılım
29 Mayıs 2019
Mesajlar
8,562
Tepkime puanı
2
Do Loop döngüsü ile Do While Loop yerinde kullanılması halinde yazılımcıya büyük avantaj sağlayacaktır. Yazılımın temelini oluşturan döngüler ve karşılaştırmalar sadece ASP değil tüm yazılım dilleri için en iyi kavranması gereken kodlamalardır.

Do (Yap) komutu ile kuracağımız döngüler iki ayrı türde olabilir: Bu döngü ile bir dizi komutu, bir koşul doğru iken veya doğru oluncaya kadar yaptırabiliriz. Bu yöntemlerden her biri iki ayrı şekilde yazılabilir. Bir koşul doğru iken bazı işlerin biteviye yapılmasını istiyorsak, Do While yöntemini kullanırız:

Do While koşul
koşul doğru iken yapılacak işler
Loop

Bu ifade ile VBScript koşul doğru olduğu sürece istediğimiz işi yapacaktır. Buradaki Loop kelimesi, döngünün başa dönmesini sağlar. Bu yöntemden şu şekilde de yararlanabiliriz:

Do
koşul doğru iken yapılacak işler
Loop While koşul

Burada, Loop komutu şartın hâlâ doğru olup olmadığını sınar ve doğru ise verilen işleri yapar; artık değilse bir sonraki satıra geçer.
Döngünün bir şart gerçekleşinceye kadar bir işi yapmasını ise Do Until yöntemiyle sağlarız. Bu durumda döngü şöyle yazılır:

Do Until koşul
koşul gerçekleşinceye kadar yapılacak işler
Loop

Bu ifade ile VBScript koşul doğru oluncaya kadar istediğimiz işi yapacaktır. Buradaki Loop kelimesi, döngünün başa dönmesini sağlar. Bu yöntemden şu şekilde de yararlanabiliriz:

Do
koşul gerçekleşinceye kadar yapılacak işler
Loop Until koşul

Burada, Loop komutu şartın henüz gerçekleşip gerçekleşmediğini sınar ve henüz gerçekleşmemişse verilen işleri yapar; gerçekleşmişse bir sonraki satıra geçer.


PHP:
<% 
Dim ParaAt, Yazi, Tura, Atis 
Randomize 
Yazi = 0 
Tura = 0 
Atis = 0 
Do While Tura < 3 
Atis = Atis + 1 
ParaAt = Int(Rnd * 2) + 1 
If  ParaAt = 1 Then 
Response.Write (“Yazı!”) 
Yazi = Yazi + 1 
Else 
Response.Write (“Tura!”) 
Tura = Tura + 1 
End If 
Loop 
%> 
3 Tura getirebilmek için parayı <%=Atis%> kere atmak gerekti!


Do Loop döngüsü ile Do While Loop yerinde kullanılması halinde yazılımcıya büyük avantaj sağlayacaktır. Yazılımın temelini oluşturan döngüler ve karşılaştırmalar sadece ASP değil tüm yazılım dilleri için en iyi kavranması gereken kodlamalardır.

Do (Yap) komutu ile kuracağımız döngüler iki ayrı türde olabilir: Bu döngü ile bir dizi komutu, bir koşul doğru iken veya doğru oluncaya kadar yaptırabiliriz. Bu yöntemlerden her biri iki ayrı şekilde yazılabilir. Bir koşul doğru iken bazı işlerin biteviye yapılmasını istiyorsak, Do While yöntemini kullanırız:

Do While koşul
koşul doğru iken yapılacak işler
Loop

Bu ifade ile VBScript koşul doğru olduğu sürece istediğimiz işi yapacaktır. Buradaki Loop kelimesi, döngünün başa dönmesini sağlar. Bu yöntemden şu şekilde de yararlanabiliriz:

Do
koşul doğru iken yapılacak işler
Loop While koşul

Burada, Loop komutu şartın hâlâ doğru olup olmadığını sınar ve doğru ise verilen işleri yapar; artık değilse bir sonraki satıra geçer.
Döngünün bir şart gerçekleşinceye kadar bir işi yapmasını ise Do Until yöntemiyle sağlarız. Bu durumda döngü şöyle yazılır:

Do Until koşul
koşul gerçekleşinceye kadar yapılacak işler
Loop

Bu ifade ile VBScript koşul doğru oluncaya kadar istediğimiz işi yapacaktır. Buradaki Loop kelimesi, döngünün başa dönmesini sağlar. Bu yöntemden şu şekilde de yararlanabiliriz:

Do
koşul gerçekleşinceye kadar yapılacak işler
Loop Until koşul

Burada, Loop komutu şartın henüz gerçekleşip gerçekleşmediğini sınar ve henüz gerçekleşmemişse verilen işleri yapar; gerçekleşmişse bir sonraki satıra geçer.


PHP:
<% 
Dim ParaAt, Yazi, Tura, Atis 
Randomize 
Yazi = 0 
Tura = 0 
Atis = 0 
Do While Tura < 3 
Atis = Atis + 1 
ParaAt = Int(Rnd * 2) + 1 
If  ParaAt = 1 Then 
Response.Write (“Yazı!”) 
Yazi = Yazi + 1 
Else 
Response.Write (“Tura!”) 
Tura = Tura + 1 
End If 
Loop 
%> 
3 Tura getirebilmek için parayı <%=Atis%> kere atmak gerekti!
 

Benzer konular

Nutella

Harbi Üye
Bayan Üye
Özel Üye
Katılım
2 Ocak 2021
Mesajlar
9,432
Tepkime puanı
8
Cinsiyet
  1. Bayan
Takım
Galatasaray
Paylaşım için teşekkürler.
 
İçerik sağlayıcı "paylaşım" sitelerinden biri olan Harbimekan.Com Forum, Eğlence ve Güncel Paylaşım Platformu Adresimizde 5651 Sayılı Kanun’un 8. Maddesine ve T.C.K’nın 125. Maddesine göre TÜM ÜYELERİMİZ yaptıkları paylaşımlardan sorumludur. Harbimekan.Com sitesindeki konular yada mesajlar hakkında yapılacak tüm hukuksal Şikayetler için info@harbimekan.com yada iletişim sayfası üzerinden iletişime geçilmesi halinde ilgili kanunlar ve yönetmelikler çerçevesinde en geç 3 Gün (72 Saat) içerisinde Forum yönetimi olarak tarafımızdan gereken işlemler yapılacaktır.

Bu Site, Bilim ve Sağlık Haber Ajansı Üyesidir.

Yığıntı - 8kez - kaynak mağazam - Uğur Ağdaş