Keskustelu: Koodit: QB: Pointti-Piirtäjä

' Nimi                 :      Pointti-Piirtäjä
' Tekijä               :              polestar
' E-Mail               :     polestar@mbnet.fi
' Käytin ohjelmaa      :        QuickBasic 4.5
' ********************************************
' Tätä  ohjelmaa  saa muokata niin paljon kuin
' huvittaa... muokkauksen jälkeen on kuitenkin
' tärkeää että poistat TÄSSÄ lukevat teksit...
' Ohjelman voi lopettaa koska tahansa ESCillä!

CLS
SCREEN 13
x = 160          'pisteen paikka x-akselilla max. 320
y = 100          'pisteen paikka y-akselilla max. 200
kolouri = 21     'pisteen väri alussa

DO

aika! = TIMER

kolouri = kolouri + 1
IF kolouri = 30 THEN kolouri = 21
nappi$ = INKEY$

RANDOMIZE TIMER
arvonta = INT(RND * 4 + 1)
IF arvonta = 1 THEN y = y - 2
IF arvonta = 2 THEN x = x - 2
IF arvonta = 3 THEN y = y + 2
IF arvonta = 4 THEN x = x + 2

IF x = 318 THEN x = 316
IF y = 198 THEN y = 196
IF x = 2 THEN x = 4
IF y = 2 THEN y = 4

PSET (x, y), kolouri
CountPisteet = CountPisteet + 1

DO WHILE aika! + 0 > TIMER  ' mitä suurempi luku 0:n tilalla on sitä kauemmin
LOOP                        ' ruudun täyttymisessä kestää

LOCATE 1, 1: PRINT "Sijainti"; x; y

LOOP WHILE nappi$ <> CHR$(27)

IF CountPisteet > 1000000 THEN PRINT "Pisteitä on yli miljoona!": END
PRINT "Ruudulle piirettiin"; CountPisteet; "pistettä."
END