DO LOOP Döngüsü

  1 sn aralıklarla ekranı rastgele seçilen renk ile boyar:


CLS

DO                        ' Dongu baslangici

   CLS

   Rastgele = RND(15)     ' RND  0 - 1 arasinda kusuratli bir sayi rastgele tutar

   COLOR , Rastgele * 10  ' Rastgele 0.756 ise 10 ile carpinca 7.56 gibi bir deger olur

   PRINT Rastgele         ' Ekrana Rastgele degeri yazilir


   SLEEP 1                ' 1 sn bilgisayar bekletilir


LOOP                      ' Dongu blogunun sonu tekrar DO ya yonlendirir

 

 

Rastgele 1-49 arasında 6 sayı tutan uygulama:

 


CLS

RANDOMIZE TIMER                          ' Her rastgele degerin farkli cikmasi icin

PRINT "6/49 Uygulamasi"

DO                                       ' Dongu baslangici

   Sayac = Sayac + 1                     ' Kac kez DO yapilacagini belirlemek icin
                                   
   RastgeleSayi = INT(RND * 49)          ' 0 - 49 arasinda Rastgele sayi tutulup INT yardimiyla tam sayiya cevriliyor


   PRINT Sayac; ". Sayi "; RastgeleSayi  ' Ekrana Rastgele sayi yaziliyor


   IF Sayac > 5 THEN EXIT DO             ' Eger Sayac 6 ise DO-LOOP dongusu bitiriliyor


LOOP                                     ' Dongu blogunun sonu tekrar DO ya yonlendirir

 

 

DO LOOP Döngüsü

18,620 Okunma Henüz yorum yapılmamış 13/10/2009 20:17:32

Yorumunuzu Ekleyin
Görsel Liste


QBasic ile Yapılmış Sayı Tahmin Oyunu

24,701 okuma,

QBasic ile Yapılmış Sayı Tahmin Oyunu
FOR NEXT Döngülerine Giriş

23,312 okuma,

FOR NEXT Döngülerine Giriş
Qbasic ve Çok Boyutlu Diziler

Çok Boyutlu Dizilerle İlgili Uygulamalar

19,471 okuma,

Qbasic ve Çok Boyutlu Diziler
Basic ve Diziler

Çok Boyutlu Dizi Uygulama Örnekleri

18,865 okuma,

Basic ve Diziler
FUNCTION Kullanımı

18,601 okuma,

FUNCTION Kullanımı
SELECT CASE Uygulaması

18,403 okuma,

SELECT CASE Uygulaması
IF Blok Yapıları

END IF nerelerde kullanılır?

18,026 okuma,

IF Blok Yapıları
DO - LOOP Uygulamaları

SELECT CASE, DO-WHILE, DO LOOP

17,761 okuma,

DO - LOOP Uygulamaları
DO WHILE - LOOP WHILE

17,695 okuma,

DO WHILE - LOOP WHILE
INPUT Komutu

17,398 okuma,

INPUT Komutu
SUB Subroutine Kullanımı

Alt Program Kullanımı

17,394 okuma,

SUB Subroutine Kullanımı
Basic ve Diziler

Tek Boyutlu Dizi Uygulama Örnekleri

17,378 okuma,

Basic ve Diziler
SELECT CASE Uygulaması

Direnç Renk Kodları

17,057 okuma,

SELECT CASE Uygulaması
ELSEIF Kullanımı

16,952 okuma,

ELSEIF Kullanımı
GOSUB Kullanımı

16,800 okuma,

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

16,737 okuma,

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

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

16,466 okuma,

Şifreli Giriş Uygulaması
IF BLOK YAPILARI

16,009 okuma,

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