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,206 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,612 okuma,

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

Çok Boyutlu Dizilerle İlgili Uygulamalar

19,383 okuma,

Qbasic ve Çok Boyutlu Diziler
Basic ve Diziler

Çok Boyutlu Dizi Uygulama Örnekleri

18,776 okuma,

Basic ve Diziler
DO LOOP Döngüsü

18,537 okuma,

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

18,509 okuma,

FUNCTION Kullanımı
SELECT CASE Uygulaması

18,305 okuma,

SELECT CASE Uygulaması
IF Blok Yapıları

END IF nerelerde kullanılır?

17,935 okuma,

IF Blok Yapıları
DO - LOOP Uygulamaları

SELECT CASE, DO-WHILE, DO LOOP

17,677 okuma,

DO - LOOP Uygulamaları
DO WHILE - LOOP WHILE

17,604 okuma,

DO WHILE - LOOP WHILE
INPUT Komutu

17,302 okuma,

INPUT Komutu
SUB Subroutine Kullanımı

Alt Program Kullanımı

17,286 okuma,

SUB Subroutine Kullanımı
Basic ve Diziler

Tek Boyutlu Dizi Uygulama Örnekleri

17,273 okuma,

Basic ve Diziler
SELECT CASE Uygulaması

Direnç Renk Kodları

16,976 okuma,

SELECT CASE Uygulaması
ELSEIF Kullanımı

16,862 okuma,

ELSEIF Kullanımı
GOSUB Kullanımı

16,710 okuma,

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

16,653 okuma,

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

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

16,366 okuma,

Şifreli Giriş Uygulaması
IF BLOK YAPILARI

15,927 okuma,

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