GOSUB Kullanımı

 

CLS

GOSUB KARECIZ

PRINT : PRINT

GOSUB KARECIZ

END



KARECIZ:

  FOR ADET = 0 TO 79
    PRINT CHR$(179);
  NEXT

RETURN

 

Ekranda Ok Tuşlarıyla Hareket Eden Çizği

CLS

x = 1: y = 1
Hareket = 1

DO

  SELECT CASE INKEY$

        CASE CHR$(0) + CHR$(75)
           GOSUB SOLOK
        CASE CHR$(0) + CHR$(77)
           GOSUB SAGOK
        CASE CHR$(0) + CHR$(72)
           GOSUB YUKARIOK
        CASE CHR$(0) + CHR$(80)
           GOSUB ASAGIOK
        CASE CHR$(27)
           EXIT DO

  END SELECT


LOOP


END



SOLOK:

  FOR ADET = 0 TO Hareket
    x = x - 1
    GOSUB CIZ
  NEXT

RETURN



SAGOK:

  FOR ADET = 0 TO Hareket
    x = x + 1
    GOSUB CIZ
  NEXT

RETURN


YUKARIOK:

  FOR ADET = 0 TO Hareket
    y = y - 1
    GOSUB CIZ
  NEXT

RETURN


ASAGIOK:

  FOR ADET = 0 TO Hareket
    y = y + 1
    GOSUB CIZ
  NEXT

RETURN


CIZ:
    LOCATE y, x
    PRINT CHR$(219);
RETURN

 

GOSUB Kullanımı

GOSUB KullanımıGOSUB KullanımıGOSUB Kullanımı

16,774 Okunma Henüz yorum yapılmamış 09/11/2009 21:40:24

Yorumunuzu Ekleyin
Görsel Liste


QBasic ile Yapılmış Sayı Tahmin Oyunu

24,681 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,446 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?

17,999 okuma,

IF Blok Yapıları
DO - LOOP Uygulamaları

SELECT CASE, DO-WHILE, DO LOOP

17,740 okuma,

DO - LOOP Uygulamaları
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,367 okuma,

SUB Subroutine Kullanımı
Basic ve Diziler

Tek Boyutlu Dizi Uygulama Örnekleri

17,348 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ı
Çaprım Tablosu Uygulaması

16,707 okuma,

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

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

16,442 okuma,

Şifreli Giriş Uygulaması
IF BLOK YAPILARI

15,984 okuma,

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