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,627 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,711 okuma,

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

23,317 okuma,

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

Çok Boyutlu Dizilerle İlgili Uygulamalar

19,474 okuma,

Qbasic ve Çok Boyutlu Diziler
Basic ve Diziler

Çok Boyutlu Dizi Uygulama Örnekleri

18,876 okuma,

Basic ve Diziler
FUNCTION Kullanımı

18,610 okuma,

FUNCTION Kullanımı
SELECT CASE Uygulaması

18,412 okuma,

SELECT CASE Uygulaması
IF Blok Yapıları

END IF nerelerde kullanılır?

18,033 okuma,

IF Blok Yapıları
DO - LOOP Uygulamaları

SELECT CASE, DO-WHILE, DO LOOP

17,766 okuma,

DO - LOOP Uygulamaları
DO WHILE - LOOP WHILE

17,711 okuma,

DO WHILE - LOOP WHILE
INPUT Komutu

17,406 okuma,

INPUT Komutu
SUB Subroutine Kullanımı

Alt Program Kullanımı

17,403 okuma,

SUB Subroutine Kullanımı
Basic ve Diziler

Tek Boyutlu Dizi Uygulama Örnekleri

17,385 okuma,

Basic ve Diziler
SELECT CASE Uygulaması

Direnç Renk Kodları

17,066 okuma,

SELECT CASE Uygulaması
ELSEIF Kullanımı

16,960 okuma,

ELSEIF Kullanımı
GOSUB Kullanımı

16,806 okuma,

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

16,742 okuma,

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

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

16,469 okuma,

Şifreli Giriş Uygulaması
IF BLOK YAPILARI

16,015 okuma,

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