-Gizle-

Konular
Kısa uygulamalar
Forum
MaxiBlog
MaxiTasarım
Sen de Yaz
MaxiSözlük
Asp scriptleri
Asp programları
Asp hosting
Bileşenler
Kitaplar
Kaynaklar
Pazar alanı
Link diyarı
Destekleyenler
Hakkında
Bize ulaşın
İstatistikler
Reklam
Anasayfa

Linkler
Selim Topaloğlu
AdresMatik.net
MaxiASP.net
SanalCafe
ASP İndir
VBScript II

Döngü Yfadeleri

Döngüler scritp içinde , ko?ul olumsuz olana kadar veya olumlu olana kadar devam etmektedirler.VBScripte kullanylan döngüler ;

• Do ... Loop
• While ... Wend
• For ... Next
• For Each ... Next

Do Loop

Ko?ul do?ru oldu?u sürece tekrarlanan döngü
Bu döngü blok içindeki ifadeleri döngüyü sa?layacak ko?ul do?ru ise veya do?ru olana kadar tekrarlamamyzy sa?lamaktadyr.

<%
Sub dongu_” ( )
Dim sayac, Num
Sayac = 0
Num = 20
Do while Num > 10
Num = Num – 1
Sayac = sayac + 1
Loop
MsgBox “Döngü “ & sayac & “ kere tekrarlandy. “
End sub

Sub dongu_2 ( )
Dim sayac, Num
Sayac = 0
Num = 9
Do
Num = Num – 1
Sayac = + 1
Loop while Num > 10
MsgBox “Döngü “ & sayac & “ kere tekrarlandy. “
End sub
%>


Yukaryda bulunan dongu_1’ de, ko?ul ifadenin ba?ynda kontrol edilmektedir. Dongu_2’ de ise ifadenin sonunda kontrol yapylyyor ve ko?ul gerçekle?medi?i için döngü bir kereye mahsus çaly?yyor.

Ko?ul do?ru olana kadar tekrarlanan döngü

Do ... Loop ifadesinde Until ko?ul kontrol kelimesi kullanylmaktadyr. Bu kontrolü kullanmanyn iki yolu mevcuttur.Bunlar ;
Döngüye girilmeden yapylan kontrol veya döngüye bir sefer girildikten sonra, sonunda yapylan kontroldür.
<%
Sub dongu_1 ( )
Dim sayac, Num
Sayac = 0
Num = 20
Do Until Num = 10
Num = Num – 1
Sayac = Sayac + 1
Loop
MsgBox “Döngü “ & sayac & “ kere tekrarlandy.”
End sub

Sub Dongu_2 ( )
Dim sayac, Num
Sayac = 0
Num = 1
Do
Num = Num + 1
Sayac = Sayac + 1
Loop Until Num = 10
MsgBox “Döngü “ & sayac & “ kere tekrarlandy.”
End Sub
%>


Yukaryda birinci döngümüzde, 10 ko?ulunun kontrolünü, döngünün ba?ynda yapyyoruz.2. döngü de bu kontrol döngünün sonunda yapylyyor.

Sayfalar: 1 2 3 4  

Yazıcı Dostu

cipher 

1 2 3 4 5 6 7 8 9 10
Bu konuya puan vermek için bir puan seçin.

Kullanıcı adı:
Şifre :
Beni Hatırla :
 
Şifremi unuttum
Yeni üye
Yardım

atam izindeyiz...
1) Hazir Site
2) Çoklu Anket
3) angelo-emlak v1.0
4) BySaNCak iletişim Formu
5) E-Ticaret
1) Video Youtube
2) Video Youtube
3) kırıkhan portal
4) HOSTİNG OTOMASYONU (Ücretli)
5) Trc0der Reklam Sistemi v1.0
Kelime:
Sizden başka kimse yok

Alan adı ve bulundurma : Radore
Donanım Sponsoru : Mavi Bilgisayar

© Copyright 2000 - 2004 Tüm hakları saklıdır.

powered by : MaxiASP web team