Geniş Ekran Modu Otomatik Ekran Boyutu Font Boyutunu Azalt Font Boyutunu Azalt Font Boyutunu Normal Yap Yazdır

SUB Subroutine Kullanımı

Alt Program Kullanımı

Qbasic

Windows Ekran Koruyucu Benzeri Bir Ekran Koruyucu

Subroutine Yazım Ekranı:

SUB Subroutine Kullanımı

DECLARE SUB YAZICI (x!, y!)
CLS

RANDOMIZE TIMER

DO
     
   xRast = INT(RND * 80)
   yRast = INT(RND * 24)


   CALL YAZICI(xRast, yRast)
   SLEEP 1
   CLS

LOOP

SUB YAZICI (x, y)
LOCATE y, x: PRINT "============================"
LOCATE y + 1, x: PRINT "=========MERHABA============"
LOCATE y + 2, x: PRINT "============================"
END SUB

 

 SUB Subroutine Kullanımı

Ekranda Ok Tuşlarıyla Hareket Edebilen Bir Robot

DECLARE SUB Kafa (x!, y!)
DECLARE SUB Govde (x!, y!)
DECLARE SUB AyakSol (x!, y!)
DECLARE SUB AyakSag (x!, y!)
DECLARE SUB KolSol (x!, y!)
DECLARE SUB KolSag (x!, y!)
DECLARE SUB Robot (x!, y!)
CLS


x = 50
y = 10

DO

  SELECT CASE INKEY$

    CASE CHR$(0) + CHR$(77)
      x = x + 1
      CLS
    CASE CHR$(0) + CHR$(75)
      x = x - 1
      CLS
    CASE CHR$(0) + CHR$(72)
      y = y - 1
      CLS
    CASE CHR$(0) + CHR$(80)
      y = y + 1
      CLS

    'Ikinci Robot ve savas

  END SELECT

  CALL Robot(x, y)
  'PRINT x, y


LOOP

SUB AyakSag (x, y)

x = x + 4
CALL AyakSol(x, y)
x = x - 4

END SUB

SUB AyakSol (x, y)

LOCATE y + 5, x - 2: PRINT "▒"
LOCATE y + 6, x - 2: PRINT "▒"
LOCATE y + 7, x - 2: PRINT "▒"
LOCATE y + 8, x - 2: PRINT "▒"
LOCATE y + 9, x - 2: PRINT "▒"

END SUB

SUB Govde (x, y)

LOCATE y, x - 3: PRINT "▒▒▒▒▒▒▒"
LOCATE y + 1, x - 3: PRINT "▒▒▒▒▒▒▒"
LOCATE y + 2, x - 3: PRINT "▒▒▒▒▒▒▒"
LOCATE y + 3, x - 3: PRINT "▒▒▒▒▒▒▒"
LOCATE y + 4, x - 3: PRINT "▒▒▒▒▒▒▒"


END SUB

SUB Kafa (x, y)

LOCATE y - 3, x - 2: PRINT " ▒▒▒ "
LOCATE y - 2, x - 2: PRINT "▒▒▒▒▒"
LOCATE y - 1, x - 2: PRINT " ▒▒▒ "

END SUB

SUB KolSag (x, y)

LOCATE y, x + 4: PRINT "▒"
LOCATE y + 1, x + 5: PRINT "▒"
LOCATE y + 2, x + 5: PRINT "▒"
LOCATE y + 3, x + 5: PRINT "▒"
LOCATE y + 4, x + 5: PRINT "▒"
LOCATE y + 5, x + 5: PRINT "▒"

END SUB

SUB KolSol (x, y)

LOCATE y, x - 4: PRINT "▒"
LOCATE y + 1, x - 5: PRINT "▒"
LOCATE y + 2, x - 5: PRINT "▒"
LOCATE y + 3, x - 5: PRINT "▒"
LOCATE y + 4, x - 5: PRINT "▒"
LOCATE y + 5, x - 5: PRINT "▒"

END SUB

SUB Robot (x, y)

 
 CALL Kafa(x, y)
 CALL Govde(x, y)
 CALL AyakSol(x, y)
 CALL AyakSag(x, y)
 CALL KolSol(x, y)
 CALL KolSag(x, y)

END SUB

 

SUB Subroutine Kullanımı

 

Rastgele Noktalarda Çiçek Açan Kodlar

DECLARE SUB Buyume5 (x!, y!)
DECLARE SUB Buyume4 (x!, y!)
DECLARE SUB Buyume3 (x!, y!)
DECLARE SUB Buyume2 (x!, y!)
DECLARE SUB Buyume1 (x!, y!)
DECLARE SUB Cicek (x!, y!)
DECLARE SUB Beklet ()
CLS

DO

  XRast = INT(RND * 79) + 1
  YRast = INT(RND * 19) + 5

  CALL Cicek(XRast, YRast)


LOOP WHILE INKEY$ <> CHR$(27)

SUB Beklet
FOR k = 1 TO 1000000
NEXT
END SUB

SUB Buyume1 (x, y)


LOCATE y, x: PRINT "▒▒"


END SUB

SUB Buyume2 (x, y)

LOCATE y - 1, x: PRINT " ▒"
LOCATE y, x: PRINT "▒▒▒"
LOCATE y + 1, x: PRINT " ▒ "

END SUB

SUB Buyume3 (x, y)

LOCATE y - 1, x: PRINT " ▒▒▒"
LOCATE y, x: PRINT "▒   ▒"
LOCATE y + 1, x: PRINT " ▒▒▒"


END SUB

SUB Buyume4 (x, y)

LOCATE y - 2, x: PRINT " ▒▒▒▒"
LOCATE y - 1, x: PRINT "▒    ▒"
LOCATE y, x: PRINT "▒ ▒▒ ▒"
LOCATE y + 1, x: PRINT "▒    ▒"
LOCATE y + 2, x: PRINT " ▒▒▒▒"


END SUB

SUB Buyume5 (x, y)

LOCATE y - 2, x: PRINT "  ▒▒"
LOCATE y - 1, x: PRINT " ▒  ▒"
LOCATE y, x: PRINT "▒    ▒"
LOCATE y + 1, x: PRINT " ▒  ▒"
LOCATE y + 2, x: PRINT "  ▒▒"


END SUB

SUB Cicek (x, y)


CALL Buyume1(x, y)
CALL Beklet
CALL Buyume2(x, y)
CALL Beklet
CALL Buyume3(x, y)
CALL Beklet
CALL Buyume5(x, y)
CALL Beklet
CALL Buyume4(x, y)
CALL Beklet

END SUB

SUB Subroutine Kullanımı
Bu içerikle ilgili henüz herhangi bir yorum yapılmamıştır. Bu içerikle ilgili Yorumunuzu eklemek için burayı tıklayınız.

Qbasic

Qbasic ve Çok Boyutlu Diziler
Çok Boyutlu Dizilerle İlgili Uygulamalar
Basic ve Diziler
Çok Boyutlu Dizi Uygulama Örnekleri
Basic ve Diziler
Tek Boyutlu Dizi Uygulama Örnekleri
Şifreli Giriş Uygulaması
Yönetici için XYZGünAySaat şeklinde özel şifresi olan
DO - LOOP Uygulamaları
SELECT CASE, DO-WHILE, DO LOOP
SELECT CASE Uygulaması
Direnç Renk Kodları
IF Blok Yapıları
END IF nerelerde kullanılır?

    Ödev Gönder | İncelenmeyi Bekleyen Ödevler | Uygulama Resimleri | Uygulama Resmi Gönder | İnternet Üzerinden Sınav | Test Sorusu Gönder | Sınıf Karneleri | Anketler | Linkler
    www.dijitalders.com

    bilgidijitalders.com
    Bu sayfalar en iyi 1024 x 768 ekran çözünürlüğünde görüntülenir.
    Site içerikleri, site kullanıcıları tarafından yollanan içeriklerdir. Her hangi bir içeriğin lisanslı yahut şahsınıza ait olduğunu tarafımıza iletirseniz gerekli düzenlemeyi yapacağız. Kullanılan içerikler, siteyi kullanan öğrenciler ve araştırmacılar için kolaylık sağlamak amacıyla oluşturulmuştur.
    Sayfada HATA! Olduğunu Düşünüyorsanız | Sık Kullanılanlara Ekle | www.dijitalders.com'u Ana Sayfam Yap | Web Tasarımcıya e-Posta
    Bu site 907,590 kişi tarafından ziyaret edilmiştir.