DO WHILE - LOOP WHILE

 

CLS

RANDOMIZE TIMER
Sayi = INT(RND * 10)
Kez = 1

DO

INPUT "Tuttugum Sayiyi Bil Bakalim (1-10)"; Girilen

DO WHILE (Girilen > 0 AND Girilen < 10)


    IF Girilen = Sayi THEN
   
        PRINT "Bravo"; Kez; ". tahmininizde buldunuz"

        EXIT DO
   
        ELSEIF Kez > 10 THEN
       
                PRINT "10 Tahminde Bilemediniz"
                EXIT DO
    END IF


    IF Girilen > Sayi THEN PRINT "Daha Kucuk Gir" ELSE PRINT "Daha Buyuk Gir"
   
    Kez = Kez + 1
   
    Girilen = 100

LOOP

LOOP WHILE Girilen <> Sayi
 

 

DO WHILELOOP WHILE

DO WHILELOOP WHILE

Şifreli Giriş


CLS
RANDOMIZE TIMER

DO
 
    Renk = RND * 15: COLOR , Renk: CLS
    INPUT "Sifre Nedir"; Sifre$

LOOP WHILE (Sifre$ <> "1453")

 

DO WHILE - LOOP WHILE

 

 


BasaDon:

CLS


LOCATE 20, 30: INPUT "Koordinat Giriniz"; x, y


IF x > 300 THEN

        PRINT "x Degeri 300 den kucuk olmali"

        GOTO BasaDon
END IF

IF y > 200 THEN

        PRINT "y Degeri 200 den kucuk olmali"

        GOTO BasaDon
END IF


LOCATE x, y: PRINT CHR$(219) + CHR$(219) + CHR$(219)


DO WHILE INKEY$ = ""  'Bir tusa basilmasini bekle
LOOP


GOTO BasaDon

 

 

 

DO WHILE - LOOP WHILE

17,695 Okunma Henüz yorum yapılmamış 13/10/2009 21:30:11

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
DO LOOP Döngüsü

18,621 okuma,

DO LOOP Döngüsü
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ı
INPUT Komutu

17,399 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...