Konular

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ı

Yorumunuzu Ekleyin
Basic ve Diziler

Çok Boyutlu Dizi Uygulama Örnekleri

15,683 Okunma 0 Yorum 26/10/2009 21:19:24

IF Blok Yapıları

END IF nerelerde kullanılır?

14,776 Okunma 0 Yorum 06/10/2009 18:39:38

Basic ve Diziler

Tek Boyutlu Dizi Uygulama Örnekleri

14,032 Okunma 0 Yorum 20/10/2009 21:15:22

Yükleniyor...