For - Next Döngüsü Nasıl Olur?

[ßyMesMes]

HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. HEMEN TIKLA!

Makine sayıları ekrana acaba nasıl yazar? Bir göz atmaya ne dersiniz?

Size "1'den 10'a kadar bana sayıları söyleyin" desem, hepiniz düşünmeden hemen sayarsınız. Ancak hafızanızdan bu sayıların dilinize nasıl döküldüğünü hiç düşünmezsiniz. İsterseniz gelin beraber bir düşünelim ve sonra da bilgisayarın nasıl düşündüğü ve form ekranına (dil) nasıl döktüğünü bulalım.

Size "sayıları sayın" dediğimde hafızanız "bu sayı da neymiş, ben bunu nereden bileyim" der ve cevabı ilkokul yıllarında bir kara tahtada, öğretmenin "İşte çocuklar, 1, 2, 3, 4... 100.. ve bunların -1, -2, -3.. -100.. olanları birer sayıdır ve bunlara tamsayı denir" diye bulur ve dilinize yollamak üzere hafızanızda bekletir.

Peki, aynı durumu makina (yani bilgisayar) için düşünelim. Form ekranına bir command buton koyuyorum ve "söyle bakalım rakamları" diye ismini değiştiriyorum ve tıklıyorum. Siz tıkladığınız anda tıpkı hafızanızda olduğu gibi, makina düşünüyor, (pardon, makina düşünemez şöyle kendi hafızasına gidiyor ve "ben bunu nereden öğrendim" diye bakıyor. Şöyle bir eskiye gidiyor, Microsoft firmasındaki adamların harıl harıl, tıpkı öğretmen gibi "bak makina, -sonsuzdan +sonsuza kadar olan sayılar birer tamsayıdır, bunu senin dll kütüphanesine yazıyorum, işin olunca ordan bakarsın" diye uyarıyor. Bir de adamlar diyorlar ki: "Birisi senden 1'den 10'a kadar rakam yazmanı isterse benim anlayacağım dilden konuşun, ben Türkçe bilmiyorum, onun için for'la başlarım saymaya, next'le bitiririm, dersin" diye de uyarıyorlar.

Şimdi gelelim işin aslına:

Form ekranına bir command buton koyuyoruz ve adını "yaz bakalım sayıları" diye değiştiriyoruz ve command butonuna çift tıklayıp kodların gizemli dünyasına giriyoruz..

Private Sub Command1_Click()
Dim microsoft As Integer
For microsoft = 1 To 10
Print microsoft
Next
End Sub

Ve insanla makina arasında geçen konuşma:

Soru - Makina, bunları sana kim öğretti? (Microsoft yerine Ahmet, Mehmet, Ayşe, Fatma veya a, b vs. yazabilirsiniz)
Cevap - Microsoft

Soru - Makina bu sayılar nedir?
Cevap - Tamsayıdır (integer)

Soru - Makina bu sayıları bana sayar mısın?
Cevap - for'la başlayıp next'le bitmelisin ki anlayayım ve sayayım. Tamam mı?


Soru - Peki for = 1 to 10 oldu mu, hadi say bakalım şimdi?
Cevap - Sen benimle alay mı ediyorsun? for'dan sonra Microsoft olması lazım, hem sana kim öğretti diyorsun, hem de for'dan sonra Microsoft yazmıyorsun?

Soru - Hımm.. Peki, o zaman for Microsoft = 1 to 10 Şimdi oldu mu makina?
Cevap - Evet

Soru - "Haydi şimdi yazdır Microsoft". Bu doğru mu makina? (print=yazdır)
Cevap - Pardon, "yazdır" ne demek? Ben Türkçe bilmiyorum ki...

Soru - Tamam o zaman, "print Microsoft". Şimdi oldu mu makina?
Cevap - Anladım, bana "yazdır" diyorsun.

Soru - Son döngü deyimini biliyorum makina, next ile döngüden çıkacaksın.
Cevap - Kolay öğreniyorsun.

ve end sub

Eğer sayıları birer birer değil de, ikişer, üçer, dörder vs. şeklinde saydırmak istiyorsak (step: adım):

"1 to 10"dan sonra "step" bir boşluk, 2 veya 3 veya 4 vs. vs. yazıyoruz.

Yani şöyle:

for microsoft= 1 to 10 step 2

Evet, yeni başlayan arkadaşlara umarım bir katkım olmuştur. En güzel öğrenmek eğlenerek öğrenmektir.

Saygılar...

 

[turkmmouser03]

Teşşekurler . Kaliteli Bir Konu Olmuş .

 

[Karcemackers]

Paylasım icin tesekkurler.