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

16,252 Okunma Henüz yorum yapılmamış 26/10/2009 21:19:24

IF Blok Yapıları

END IF nerelerde kullanılır?

15,323 Okunma Henüz yorum yapılmamış 06/10/2009 18:39:38

DO - LOOP Uygulamaları

SELECT CASE, DO-WHILE, DO LOOP

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

Basic ve Diziler

Tek Boyutlu Dizi Uygulama Örnekleri

14,569 Okunma Henüz yorum yapılmamış 20/10/2009 21:15:22

Yükleniyor...