Kirjautuminen

Haku

Tehtävät

Keskustelu: Koodit: QB: Mustavalkonen MATRIX demo

HPN [15.07.2003 12:45:15]

#

tää on tällänen pikkunen Matrix systeemi Pienel rivimääräl

Listaus 1

'Matrix Demo BY
' ËÍ»ËÍ»ÉË»ËÍ»Ë  ÉË»
' ÌͼÌÍ  º Ì˼º   º
' Ê  Êͼ Ê ÊÈÍÊ ¸ Ê
SCREEN 13
RANDOMIZE TIMER
DO                            'looppi
x1 = INT(RND * 40) + 1
y1 = INT(RND * 24) + 1 'Arvotaan Korkeus ja leveys
        FOR y = y1 TO 24
        COLOR 19 + y / 2       'vaihdetaan väri
        LOCATE y, x1: PRINT CHR$(INT(RND * 139) + 33)' Kohtaan y,x1 Sat.Merkki
        NEXT y
LOOP UNTIL INKEY$ <> ""       'looppi lopetetaan jos painetaan jotain nappi

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Tietoa sivustosta