DO - LOOP Uygulamaları

SELECT CASE, DO-WHILE, DO LOOP

 

 Girilen Metni Ekrana Defalarca Yazan Uygulama

CLS

INPUT "Metin Giriniz"; Yaz$

Y = 2
X = 2

DO

  Y = Y + 1
  X = X + 1


  IF Y > 60 THEN Y = 1

  IF X > 23 THEN X = 1

  COLOR RND * 15, RND * 15

  LOCATE X, Y
  PRINT Yaz$


LOOP WHILE INKEY$ <> CHR$(32)

  

DO - LOOP Uygulamaları

  Basit Yılan Oyunu

CLS

X = 12
Y = 40

DO

BasilanTus$ = INKEY$


SELECT CASE BasilanTus$

   CASE CHR$(27) 'cikis
        EXIT DO

   CASE CHR$(0) + CHR$(72)
        X = X - 1

   CASE CHR$(0) + CHR$(80)
        X = X + 1
 
   CASE CHR$(0) + CHR$(75)
        Y = Y - 1

   CASE CHR$(0) + CHR$(77)
        Y = Y + 1


END SELECT


     COLOR RND * 15, RND * 15

     LOCATE X, Y: PRINT CHR$(219)

LOOP

 

DO - LOOP Uygulamaları

17,740 Okunma Henüz yorum yapılmamış 19/10/2009 20:14:19

Yorumunuzu Ekleyin
Görsel Liste


QBasic ile Yapılmış Sayı Tahmin Oyunu

24,682 okuma,

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

23,280 okuma,

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

Çok Boyutlu Dizilerle İlgili Uygulamalar

19,447 okuma,

Qbasic ve Çok Boyutlu Diziler
Basic ve Diziler

Çok Boyutlu Dizi Uygulama Örnekleri

18,842 okuma,

Basic ve Diziler
DO LOOP Döngüsü

18,600 okuma,

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

18,578 okuma,

FUNCTION Kullanımı
SELECT CASE Uygulaması

18,380 okuma,

SELECT CASE Uygulaması
IF Blok Yapıları

END IF nerelerde kullanılır?

18,000 okuma,

IF Blok Yapıları
DO WHILE - LOOP WHILE

17,675 okuma,

DO WHILE - LOOP WHILE
INPUT Komutu

17,377 okuma,

INPUT Komutu
SUB Subroutine Kullanımı

Alt Program Kullanımı

17,368 okuma,

SUB Subroutine Kullanımı
Basic ve Diziler

Tek Boyutlu Dizi Uygulama Örnekleri

17,349 okuma,

Basic ve Diziler
SELECT CASE Uygulaması

Direnç Renk Kodları

17,035 okuma,

SELECT CASE Uygulaması
ELSEIF Kullanımı

16,927 okuma,

ELSEIF Kullanımı
GOSUB Kullanımı

16,775 okuma,

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

16,708 okuma,

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

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

16,443 okuma,

Şifreli Giriş Uygulaması
IF BLOK YAPILARI

15,984 okuma,

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