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ü

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

Yorumunuzu Ekleyin
Görsel Liste


SELECT CASE Uygulaması

Direnç Renk Kodları

20,289 okuma,

IF BLOK YAPILARI

19,106 okuma,

ELSEIF Kullanımı

20,239 okuma,

SELECT CASE Uygulaması

22,115 okuma,

Çaprım Tablosu Uygulaması

19,844 okuma,

INPUT Komutu

20,636 okuma,

IF Blok Yapıları

END IF nerelerde kullanılır?

21,590 okuma,

FOR NEXT Döngülerine Giriş

27,212 okuma,

QBasic ile Yapılmış Sayı Tahmin Oyunu

28,418 okuma,

DO WHILE - LOOP WHILE

21,205 okuma,

Basic ve Diziler

Tek Boyutlu Dizi Uygulama Örnekleri

20,774 okuma,

DO - LOOP Uygulamaları

SELECT CASE, DO-WHILE, DO LOOP

21,163 okuma,

Şifreli Giriş Uygulaması

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

19,666 okuma,

Basic ve Diziler

Çok Boyutlu Dizi Uygulama Örnekleri

22,072 okuma,

Qbasic ve Çok Boyutlu Diziler

Çok Boyutlu Dizilerle İlgili Uygulamalar

23,006 okuma,

SUB Subroutine Kullanımı

Alt Program Kullanımı

20,629 okuma,

GOSUB Kullanımı

20,089 okuma,

FUNCTION Kullanımı

21,964 okuma,

Yükleniyor...
    Yükleniyor...