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

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

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...
  • Etiketler;
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

biz bunları işledik bu ders süper ama ben pek fazla bişi bilmiyorum
bu çalışmayı bende okulda yapmıştım emeğine sağlık !
saol hocam ellerıne saglık..
ewt hocam ama bunlar bana zor ama bende sizden öğrenmeye çalışıyorum
harika makina:D:D
peki 10dan geriye nasıl saydırıcaz
değişik ve akılda kalıcı bir anlatım teşekkürler
10 dan geriye de. For microsoft=10 to 1 step -1
çokk sağolunn ya
Beli cox gozel yazmissin tesekkur edirem
bunları çok seviyorum iyi bi yazılımcı olucam ...:D:DD:
gerçekten güzel anlatım eğlenceli =) hocalarımızda böyle anlatsa =)
Yazdır var ama nereye yazacak msgbox a yazabilir mesela böyle yapınca hata veriyor(vb 2005 de)
Yazdır var ama nereye yazacak msgbox a yazabilir mesela böyle yapınca hata veriyor(vb 2005 de)

Yukarı Git