Daire Çizimi - QBasic-Yön tuşları kullanılarak daireler çizebilen program

Son güncelleme: 09.03.2009 17:19
  • Yön tuşları kullanılarak daireler çizebilen program.

    5 KEY OFF
    10 CLS
    20 X = 0: Y = 0: SIL = 1
    30 SCREEN 1
    40 COLOR 0, 0
    50 PSET (X, Y), 1
    60 IF SIL = -1 THEN PRESET (X, Y)
    70 A$ = INKEY$: A$ = RIGHT$(A$, 1)
    80 X = X - (A$ = CHR$(77) AND X < 319) + (A$ = CHR$(75) AND X > 0)
    90 Y = Y - (A$ = CHR$(80) AND Y < 199) + (A$ = CHR$(72) AND Y > 0)
    100 IF A$ = CHR$(27) THEN SIL = -1 * SIL
    105 IF A$ = "D" OR A$ = "d" THEN 120
    110 GOTO 50
    120 LOCATE 25, 1: INPUT ; "Yari Cap:", R
    130 LOCATE 25, 1: PRINT STRING$(30, 32)
    140 CIRCLE (X, Y), R, 1
    150 GOTO 50
#12.10.2007 01:09 0 0 0
  • tşkler..:)
#12.09.2008 03:11 0 0 0
  • bu proğran nerede?
#09.03.2009 17:19 0 0 0