FOR NEXT Döngülerine Giriş

  Goto ile Yapılmış Döngü Örneği

basla:
A = A + 1
IF A>20 THEN END
PRINT A
GOTO basla

FOR NEXT Döngülerine Giriş

Yukardaki Döngü FOR NEXT ile aşağıdaki gibi yapılabilir.

FOR N = 1 TO 20
    PRINT N
NEXT N

 

Çeşitli Renklerle Ekrana Yazı Yazan Uygulama

CLS

INPUT "Adiniz Nedir "; Ad$
INPUT "Kac Kez Donsun "; Kez

FOR Sayac = 1 TO Kez

    Renk = Sayac MOD 12
    COLOR , Renk
    PRINT Ad$

NEXT
 

FOR NEXT Döngülerine Giriş

Renklerin Karşılığını Veren Döngü

CLS


FOR Sayac = 1 TO 15        'Sayac 1 den 15 e kadar birer birer artar

    COLOR , Sayac          'Sayactaki degeri Renk olarak tut
    PRINT "Renk "; Sayac   'Sayac degiskeni degerini Renk metni ile ekrana yaz


NEXT                       'Dongu bitene kadar FOR satirina donuyor
 

FOR NEXT Döngülerine Giriş

ASCII Kodlarını Ekrana Yazan Uygulama

 

CLS

FOR Sonsuz = 1 TO 1000

    INPUT "ACII Karakter Araligi Giriniz (x,y) "; Baslangic, Bitis

    IF Baslangic > Bitis THEN Atlama = -1 ELSE Atlama = 1

    FOR Dongu = Baslangic TO Bitis STEP Atlama
       
        PRINT Dongu; CHR$(Dongu)
   
    NEXT

    INPUT "Tekrar icin T ye bas"; Tekrar$
   
    IF Tekrar$ <> "T" THEN END
                              
NEXT
 

 

FOR NEXT Döngülerine Giriş

Faktöriyel Uygulaması

CLS

INPUT "Faktoriyeli Alinacak Sayi"; Sayi#

Tutacak# = 1

FOR Tekrarlayici# = Sayi# TO 1 STEP -1

        Tutacak# = Tutacak# * Tekrarlayici#

NEXT


PRINT Sayi#; " Sayisinin Faktoriyeli "; Tutacak#
 

 

FOR NEXT Döngülerine Giriş

23,279 Okunma Henüz yorum yapılmamış 12/10/2009 20:52:44

Yorumunuzu Ekleyin
Görsel Liste


QBasic ile Yapılmış Sayı Tahmin Oyunu

24,681 okuma,

QBasic ile Yapılmış Sayı Tahmin Oyunu
Qbasic ve Çok Boyutlu Diziler

Çok Boyutlu Dizilerle İlgili Uygulamalar

19,446 okuma,

Qbasic ve Çok Boyutlu Diziler
Basic ve Diziler

Çok Boyutlu Dizi Uygulama Örnekleri

18,842 okuma,

Basic ve Diziler
DO LOOP Döngüsü

18,600 okuma,

DO LOOP Döngüsü
FUNCTION Kullanımı

18,577 okuma,

FUNCTION Kullanımı
SELECT CASE Uygulaması

18,380 okuma,

SELECT CASE Uygulaması
IF Blok Yapıları

END IF nerelerde kullanılır?

17,999 okuma,

IF Blok Yapıları
DO - LOOP Uygulamaları

SELECT CASE, DO-WHILE, DO LOOP

17,740 okuma,

DO - LOOP Uygulamaları
DO WHILE - LOOP WHILE

17,675 okuma,

DO WHILE - LOOP WHILE
INPUT Komutu

17,377 okuma,

INPUT Komutu
SUB Subroutine Kullanımı

Alt Program Kullanımı

17,367 okuma,

SUB Subroutine Kullanımı
Basic ve Diziler

Tek Boyutlu Dizi Uygulama Örnekleri

17,348 okuma,

Basic ve Diziler
SELECT CASE Uygulaması

Direnç Renk Kodları

17,035 okuma,

SELECT CASE Uygulaması
ELSEIF Kullanımı

16,927 okuma,

ELSEIF Kullanımı
GOSUB Kullanımı

16,774 okuma,

GOSUB Kullanımı
Çaprım Tablosu Uygulaması

16,707 okuma,

Çaprım Tablosu Uygulaması
Şifreli Giriş Uygulaması

Yönetici için XYZGünAySaat şeklinde özel şifresi olan

16,442 okuma,

Şifreli Giriş Uygulaması
IF BLOK YAPILARI

15,984 okuma,

IF BLOK YAPILARI
Yükleniyor...
    Yükleniyor...