PROGRAM KONTROL VE D

1
PROGRAM KONTROL VE DÖNGÜ DEYIMLERI
2
PROGRAM KONTROL VE DÖNGÜ DEYIMLERI

• PROGRAMLAR NORMALDE SATIR SATIR ÇALISTIRILIRLAR.
• ISTENIRSE BELIRLI SARTLAR ARANARAK PROGRAMIN BIR
  KISMININ ÇALISTIRILMASI VEYA ÇALISTIRILMAMASI
  SAGLANABILIR.
• BUNDAN SONRAKI DERSLERIMIZDE BU TÜR YAPILAR ILE
  ÇALISACAGIZ.

3
IF DEYIMI-1

• BAZI SARTLARIN GERÇEKLESTIRILMESI VEYA
  GERÇEKLESTIRILMEMESI DURUMUNDA AYRI AYRI KODLARI
  ÇALISTIRMAYA YARAR.
• if sart then
• komutlar.....
• else
• komutlar.....
• end if

4
IF DEYIMI

• dim ogrnot
• ogrnotval(text1.text)
• if ogrnotgt50 then
• text2.textgeçti
• else
• text2.textkaldi
• end if

5
IF DEYIMI-2

• If sart1 then
• Komutlar
• Elseif sart2 then
• Komutlar
• Elseif sart3 then
• Komutlar
• Else eger hiçbir sart çalismadiysa...
• Komutlar
• Endif

6
IF DEYIMI-2

• If yaslt5 then
• print anaokula gitmeli
• Elseif yaslt12 then
• prrint ilkokula gitmali
• Elseif yaslt18 then
• print liseye gitmali
• Else
• Print üniversiteye gitmali
• End if

7
IF DEYIMI-3

• If sart then komutlar
• ÖRNEK
• If yasgt12 then msgbox(ilkokul bitmis)

8
IF DEYIMI-4

• If sart then komutlarkomutlarkomutlarkomutlar
• ÖRNEK
• If agt50 then xx1 z5x

9
SELECT CASE DEYIMI

• BIR DEGISKENIN ALDIGI BIRÇOK DEGERE GÖRE AYRI
  KOMUTLARIN ÇALISTIRILMASI IÇIN KULLANILIR.
• select case degisken
• case deger1komutlar
• case deger2,deger3komutlar
• case deger4 to deger5komutlar
• case isgtdeger6komutlar
• case else
• end select

10
ÖRNEK

• dim ogrnot
• ogrnottext1.text
• select case ogrnot
• case islt0, isgt100text2.textnotunuzu yanlis
  girdiniz
• case 1 to 49text2.textkaldi
• case 50 text2.textsinirda bir not aldiniz
• case 51 to 70text2.textiyi
• case elsetext2.textpekiyi
• end select

11
ÖRNEK

• dim aileyard,mks
• mks3315
• select case combo1.text
• case bekar aileyard0
• case esçals aileyard0
• case evli1ç aileyardint(50mks1000)1000
• case evli2ç aileyardint(100mks)1000
• case else
• end select

12
DÖNGÜ DEYIMLERI

• BELIRLI BIR KOMUT GRUBUNUN BELLI BIR SART
  GERÇEKLESINCEYE KADAR DEFALARCA ÇALISMASINI
  SAGLAR.
• ÇALISMA SAYISININ BELLI OLDUGU DURUMLARDA
  FOR-NEXT DÖNGÜSÜ, DIGER DURUMLARDA ISE
  WHILE-WEND YA DA DO-LOOP DÖNGÜLERI KULLANILIR.

13
FOR-NEXT DÖNGÜSÜ

• for sayaçbasldegeri to bitisdegeri step artim
• komutlar......
• next

14
ÖRNEK

• 1DEN 20YE KADAR OLAN SAYILARI YAZDIRAN PROGRAM
• dim i
• for i1 to 20
• print i
• next

15
ÖRNEK

• 1DEN NE KADAR OLAN SAYILARIN TOPLAMINI BULAN
  PROGRAM
• dim i,top,n
• top0
• nval(text1.text)
• for i1 to n
• toptopi
• next
• text2.texttop

16
ÖRNEK

• BIR SAYININ FAKTÖRIYELINI BULAN PROGRAM
• dim i,sayi,fakt
• fakt1
• sayival(text1.text)
• for i2 to sayi
• faktfaktsayi
• next
• text2.textfakt

17
WHILE-WEND VE DO-WHILE DÖNGÜLERI

• BIR DÖNGÜNÜN KAÇ DEFA ÇALISACAGI BILINMIYORSA
  KULLANILIRLAR.
• BELIRTILEN SART GERÇEKLESENE KADAR BELIRTILEN
  KOMUT BLOKLARI ÇALISTIRILIR.

18
WHILE-WEND DÖNGÜSÜ

• while sart
• komutlar..........
• wend

19
ÖRNEK

• while ilt5 burada ilt5 oldugu sürece
• toptopi i degiskeninin degeri top
  degiskeninine atanir.
• wend i5 ise döngüden çikilir.degilse toptopi
  islemi devam eder.

20
DO WHILE-LOOP

• do while sart
• komutlar
• loop

21
ÖRNEK

• dim i,top,n
• do while iltn
• ii1
• toptopi
• loop

22
DO UNTIL-LOOP

• DAHA ÖNCEKI DÖNGÜLER SART GERÇEKLESTIGI SÜRECE
  ÇALISIYORDU. BU ISE SART GERÇEKLESENE KADAR
  ÇALISIR.
• do until sart
• komutlar
• loop

23
ÖRNEK

• dim i,top,n
• do until in
• ii1
• toptopi
• loop

24
DO-LOOP UNTIL

• BU DÖNGÜDE SART BASLANGIÇTA DEGIL SONDA KONTROL
  EDILIR. BU SEKILDE DÖNGÜ IÇERISINDEKI KOD EN AZ 1
  DEFA ÇALISTIRILIR.
• do
• komutlar
• loop until sart

25
ÖRNEK

• GIRILEN NOT 1-100 ARALIGI DISINDA ISE, BU
  ARALIKTA NOT GIRILENE KADAR TEKRAR TEKRAR
  SORULSUN.
• dim nott
• do
• nottinputbox(not girisi, sinav notunuz,50)
• loop until (nottgt0) and (nottlt100)

26
DO-LOOP WHILE

• do
• komutlar
• loop while sart

27
(No Transcript)