|
|
BLOK KONTROL DEYİMLERİ
1.1. If-Endif Deyimi
IF deyimi, programın akışını IF deyimi ile birlikte verilen koşula bağlı olarak belirlenen işlem bloğuna geçmesini veya söz konusu program bloğunun işletilmeyip atlanılmasını sağlar.
Genel Yazılışı:
if şart Then
Komutlar
Else
Komutlar
End if
Şartın doğru olması halinde
Then deyiminden sonraki satırlar işletilir. Şartın yanlış olması durumunda ise Else deyiminden sonraki satırlar işletilir.Tek satırda şart yazılıyorsa End if deyimi kullanılmaz.
If Şart Then Komutlar Else Komutlar
If Şart Then Komutlar
Örnek:
Private Sub Form_Load()
Dim v,f,ort,b
V=val (InputBox("Not Girişi","Vize Notunuz","50"))
F=val (InputBox( "Not Girişi","Final Notunuz","50"))
Ort=(V*40+F*60)/100
If ( ort < 50 ) OR ( f < 50 ) Then
MsgBox("Bütünlemeye kaldınız")
Else
MsgBox("Dersi geçme notunuz:" & ort )
End if
End Sub
1.2. Select Case Deyimi
Bir değişkenin aldığı her değere göre ayrı komutların çalıştırılması gereken durumlar için
if deyimini kullanmak yerine Case deyimini kullanmak daha avantajlıdır.Genel yazılışı :
Select Case değişken
Case durum1: Komutlar
Case durum2, durum3: Komutlar
Case durum4 to durum7 : Komutlar
Case is<durum8 : Komutlar
Case is> durum9 : Komutlar
........
Case durumN : Komutlar
Case Else Komutlar
End select
Örnek:
Sub Form_Load()
Show
Print "1- Yeni Kayıt Girişi"
Print "2- Kayıt Okuma"
Print "3- Kayıt Düzeltme"
Print "4- Programdan Çıkış "
Secim=InputBox ( " Seçiminizi giriniz " )
Select Case Secim
Case 1 : Kayıt.show
Case 2 : Okuma.show
Case 3 : Duzeltme.show
Case 4 : End
End Select
End Sub
1.3. IIF Deyimi
Bir değişkenin değeri iki durumdan birine göre değer alıyorsa IIF deyimi kullanılabilir.
Genel Yazılışı:
IFF ( Şart , Birinci ifade , İkinci ifade )
Şart doğru ise birinci ifade, yanlış ise ikinci ifade işleme girer.
Örnek:
Private Sub Form_Load()
Not = InputBox ( " Öğrenci notunu giriniz " )
Sonuc = IIF ( Not >= 50 , "Geçer Not" , " Zayıf Not " )
MsgBox sonuc
End Sub
BÖLÜM 7: DÖNGÜ DEYİMLERİ
7.1. Do While-Loop ve Do-Loop While Döngüsü
Şart sağladığı sürece çalışması gereken program bloklarında kullanılır. Her iki döngününde mantığı aynıdır. Şart gerçekleştiği sürece döngüde kalınır.
|
Genel Yazılışı: | |
|
Do While Şart Komutlar Exit Do Komutlar Loop |
Do Komutlar Exit Do Komutlar Loop While Şart |
Do-Loop While döngüsünde verilen şart, döngü sonunda kontrol edilmektedir. Dolayısıyla döngü tipinde döngü koşulu ne olursa olsun döngüde bulunan program satırları en azından bir defa işletilir.
Exit Do ifadesi ise döngüden çıkılmasını sağlar.7.2. For-Next Döngüsü
For döngüsü sayac'ın başlangıç değerinden başlayarak bitiş değerine kadar sayacı birer arttırarak veya Step ifadesi ile verilen artım miktarı kadar arttırarak blok içerisindeki komutları çalıştırır.
Genel Yazılışı:
For sayaç=Başlangıç değeri to Bitiş değeri Step Artım
Komutlar
Exit For
Komutlar
Next sayaç
Exit For komutu, For-Next döngüsünden çıkılmasını sağlar.