Döngü anlatımı ve açıklamaları
Tarih
14/04/2012 23:14
Konu Sahibi
DUAYEN
Yorumlar
2
Okunma
2004
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



DUAYEN
Aktif Üye
Kullanici Avatari
Aktif Üye
S.... A....
1.026
13/08/2010
279
Yozgat
Ofis 2007
28/10/2016,11:41
Bir Vba programında belirli bir grup komutu birden fazla çalıştırmak için aşağıdaki döngü komutlarından birini kullanabilirsiniz. Vba bunun için dört farklı program döngüsü sunar:
1· For-Next Döngüsü
2· Do-Loop Döngüsü
3· While-Wend Döngüsü
4· For-Each Döngüsü

Her program döngü tipinin kendine has özellikleri vardır. For Next komutu daha önceden belirlenen bir sayıda ve Do-Loop komutu döngünün sonunda veya başında kontrol edilen şart sağlanana kadar tekrar eder.While Wend ise Do Loop döngüsünün basite indirgenmiş bir halidir.
For Next döngüsü, tekrar sayısının başlangıçta tanımlandığı ve döngü sırasında değiştirilmediği durumlarda kullanılır.
Örneğin;

Kod:
Dim lngSayac As Long
For lngSayac = 1 To 10
Debug.Print "Sayaç = " & lngSayac & "!"
Next lngSayac

Bu basit döngü sırasında sayaç değeri 1'den 10! Kadar teker teker arttırılır ve sonuç direkt olarak yazdırılır.

Do Loop döngüsü ise tekrar sayısının açık olduğu durumlarda kullanılır. Bunun için en iyi örnek bir metin içerisinde kelime aramaktır. Bu kelimenin tam olarak nerede olduğunu bilemediğimiz için tekrar sayısını en başta belirlememiz mümkün değildir. Bilgisayarın döngü içerisindeki komutları sonsuza kadar tekrar etmesi için ifadenin en basit halini kullanabilirsiniz:

Do
' Tekrar edilecek komutlar
Loop
Bu tür sonsuz döngülere çok sık ihtiyaç duyulmadığı için Do Loop komutunun While veya Until parametreleri kullanılarak bir şart ile kontrol edilmesi gereklidir.
örneğin;

Kod:
Do
strWord = KelimeOku
Loop Until strWord = "Office"

Yukarıdaki Do Loop döngüsü okunan kelime "Office" değerini içerene kadar devam edecektir. Buna karşılık While parametresi ile de tersi bir sonuç elde edilir. Döngü bu durumda sonuç olumlu olduğu sürece devam edecektir.

Kod:
Do
strWord = KelimeOku
Loop While strWord = "Office"

VBA'nın While-Wend ifadesini desteklemesinin en önemli nedeni uyum sorunlarıdır. Bu, Do Loop döngüsünün daha basit bir şeklidir.

Kod:
While iSayac < 20
iSayac = isayac + 1
Wend

veya daha modern şekli ile

Kod:
Do While iSayac < 20
iSayac = iSayac + 1
Loop


DUAYEN...

Bizim için zor diye bir şey yoktur, imkansızsa zaman alır...
Cevapla


benremix
Uzman
Kullanici Avatari
Uzman
R.... S....
4.431
17/05/2009
365
Ankara
Ofis 2010
30/11/2016,21:23
Verdiğiniz bilgiler için teşekkürler.
Saygılar.
Bilgi paylaşıldıkça çoğalır....
Her engel, yaşam koşullarınızı daha iyileştirecek bir fırsattır.


Access için her zaman lazım olacak konu başlıkları listesi 


Cevapla


ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.009
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,20:17
Teşekkürler.
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  For Each Anlatımı ve Örnekler DUAYEN 3 1.771 06/12/2015, 20:54 rry0055
  Excelde Düşeyara ile Arama yapma Örnek ürün açıklamaları axikral 7 9.675 13/09/2010, 16:52 assenucler


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya