MARMARA BÖTE
  Visual Basic.Net Dersleri-4
 

<<3        5>>

Sayaçlar

 

Düzenli olarak artan (+) veya azalan (-) sayı veya string ifadeler elde etmek için kullanılırlar. Eşitliğin her iki tarafındaki değişken isminin aynı olmasına dikkat edin. Bu durum matematik olarak mümkün olmamasına rağmen, bilgisayar için doğrudur.

 

Genel Kullanılış 1:

[değişken ismi] = [değişken ismi] [işlem] [sayı veya string ifade veya değişken]

 

Genel Kullanılış 2:

[değişken ismi] [işlem] = [sayı veya string ifade veya değişken]

 

Işlem= + veya – veya * veya / veya veya & veya ^ olabilir

 

Visual Basic'te Döngü Komutları

 

Bu komutlar belirli işlemleri belirli sayıda veya herhangi bir şart sağlanana kadar tekrarlamak amacı ile kullanılırlar. Bu komutlar aşağıda verilmiştir.


For - Next Döngüsü

Do - Loop Döngüsü
Do While - Loop Döngüsü
Do Until - Loop Döngüsü
Do - Loop While Döngüsü
Do - Loop Until Döngüsü

For Next Döngüsü


Bütün dillerde bulunan döngü yapısıdır. Genel yazım şekli aşağıdaki şekildeki gibidir.

For sayac=başlangıç To bitiş Step artım

Ara işlemler

Next sayac


Bu döngü, sayac başlangıç değişken değerinden bitiş değerine kadar çalıştırılır. Sayaç başlangıç değerinde iken döngü içindeki satırlar işletilir. Next ifadesine gelindiğinde tekrar For satırına dönülür. Sayaç değeri artım değeri kadar artırılır (veya azaltılır). Eğer Sayaç değeri bitiş değerini geçmiş ise Next satırından sonraki satırlar işletilir. Burada step değerine pozitif veya negatif bir değer verilebilir. Eğer negatif değer verilirse sayac her defasında step değeri kadar azaltılır. Step değeri verilmezse bu değer pozitif 1 (+1) anlamındadır ve her adımda sayaç 1 (bir) artırılacaktır.

 

Örnek: Bu örnekte step değeri verilmediği için, i değişkeni her bir döngüde 1 artacaktır.

 

For i=1 to 10

      Ara işlemler

Next i

 

Örnek: Bu örnekte step değeri -2 verildiği için, i değişkeni her bir döngüde -2 azalacaktır.

 

For i=20 to 1  Step –2 

      Ara işlemler

Next i

 

Örnek:

Bu örnekte programa vermiş olduğunuz pozitif sayının faktoriyeli hesaplanmaktadır.

 
Dim Sayi,i as integer
Dim Fact as Double
Sayi=inputbox(“Faktöriyeli Hesaplanacak Sayıyı Verin”)
Fact=1
For i=1 To Sayi
               Fact= Fact * i
Next i
MsgBox (Sayi & “ Sayısınının Faktöriyeli : “ & Fact)
 

Do Loop Döngüsü

 

Hiçbir kontrol yapılmadan Do ve Loop ifadeleri arasındaki satırların işlem görmesi için kullanılır. Bu yapıda programın terkedilmesi için herhangi bir kontrol olmadığından, döngü içine karar verme komutlarından birisi ile bir kontrol yapısı kurulması gerekir, aksi halde program sonsuz döngüye girer. Genel kullanılışı;

 

Do
  
Ara işlemler

Loop

 

Örnek: Aşağıdaki örnekde ekrana mesajbox penceresi içinde sadece 5 kez “Ahmet” ifadesi yazılır. Çünkü döngüden çıkış için döngünün içine bir if bloğu yerleştirilmiştir.

 

t=0

Do

  t=t+1

  If t=5 then      

        Exit do

     else

        Msgbox (“Ahmet”)

  End if

Loop

 

Do While-Loop Döngüsü

 

Bu döngünün genel yazım şekli şu şekildedir;

 

Do While (koşul veya ifade)

    Ara işlemler

Loop

 

Do While döngüsünde önce koşula bakılır. Eğer koşul doğru ise aradaki satırlar Loop satırına kadar çalıştırılır. Loop satırında tekrar While satırına dönülür. Koşul tekrar kontrol edilir. Eğer koşul doğru ise ara satırlar tekrar çalıştırılır, koşul yanlış ise Loop satırından sonraki ilk satırdan program çalismaya devam eder. Içiçe Do While döngüleri de kurulabilir. Bu durumda her Do While döngüsü için mutlaka bir Loop kullanmamız gerekir.

 

Do While Kosul1

     Ara işlemler

     Do While Kosul2

             Ara işlemler

     Loop

Loop

 

Örnek : 
Fact=1
B=2
Do While B<=Sayi
               Fact=Fact * B
               B=B+1

Loop

 

Do-Loop While Döngüsü

 

Bu döngünün genel yazım şekli şu şekildedir;

 

Do
   
Ara işlemler

Loop While (Kosul veya ifade)

 

Bu döngü tipinde ara işlemler en az bir kez mutlaka işlem görür. Daha sonra koşul kontrol edilir. Eğer koşul doğru ise tekrar Do satırına dönülür ve aradaki işlemler (satırlar) tekrar icra edilir. Yanlış ise döngüden çıkılır. Bu yapıyı da iç içe kullanmamiz mümkündür. Do While-Loop döngüsü ile Do-Loop While döngüsü arasındaki en önemli fark: Do While-Loop döngüsünde koşul veya koşullar en başta kontrol edilirken, Do-Loop While döngüsünde en sonda kontrol edilmektedir.

 

Do

  Ara işlemler

  Do

     Ara işlemler

  Loop While Kosul1

Loop While Kosul2

 

Örnek : 
Fact=1
B=1
Do 
    Fact=Fact * B
    B=B+1

Loop While B<=Sayi

 

Do Until-Loop Döngüsü

 

Bu döngünün genel yazım şekli aşağıdaki gibidir.

Do Until (Kosul veya ifade)
  
Ara işlemler

Loop

Do Until döngüsünde önce koşula bakılır. Eğer koşul yanlış ise aradaki satırlar Loop satırına kadar çalıştırılır. Loop satırında tekrar Do Until satırına dönülür. Koşul tekrar kontrol edilir. Eğer koşul yanlış ise ara satırlar tekrar çalıştırılır, koşul doğru ise Loop satırından sonraki ilk satırdan program çalismaya devam eder. Do While-Loop döngüsünden tek farkı koşul yanlış olduğunda ara işlemler çalıştırılırken, Do While-Loop döngüsünde koşul doğru ise ara işlemler çalıştırılır. Içiçe Do Until-Loop döngüleri de kurulabilir. Bu durumda her Do Until döngüsü için mutlaka bir Loop kullanmamız gerekir.

 

Örnek : 
Fact=1
B=Sayi
Do Until B<=1
               Fact=Fact * B
               B=B-1

Loop

 

Do-Loop Until Döngüsü

 

Bu döngünün genel yazım şekli aşağıdaki gibidir.

Do

   Ara işlemler

Loop Until (Kosul veya ifade)

 

Do Loop Until döngüsünde, ara işlemler en az bir kez mutlaka çalıştırılır. Daha sonra Koşul kontrol edilir. Eğer koşul yanlış ise tekrar Do satırına dönülür ve aradaki satır veya satırlar tekrar çalıştırılır. Koşul doğru ise döngüden çıkılır. Bu döngüyü de iç içe kullanmamız mümkündür.

 

Örnek : 
Fact=1
B=1
Do
  Fact=Fact * B
  B=B+1

Loop Until B>Sayi

 

Exit Komutu

Herhangi bir döngü veya yordamın içindeyken, işlem sona ermeden tamamlanmadan, bulunulan döngüyü veya yordamı terk etmek için kullanılır. Bu komut For döngüsünde Exit For, Do döngülerinde (do loop, do while, do  until) Exit Do, herhangi bir yordamın içindeyken Exit Sub şeklinde kullanılır.

 

For A=1 to 5

   If A=2 then

       Exit for

   End if

Next A

 

 

 

 

<<3        5>>

 
  Bugün 1 ziyaretçi (3 klik) kişi burdaydı! @2009 Marmara üniversitesi  
 
Bu web sitesi Bedava-Sitem.com ile ücretsiz oluşturuldu. Siz de kendi web sitenizi ister misiniz?
Ücretsiz kayıt ol