Keskustelu: Koodit: QB: Lazy Matrix

Lazy Matrix tekee näytölle Matrix tyyliin valuvaa merkityksetöntä(?) tekstiä. Nimi tulee siitä, että ohjelma tekee vain yhtä jonoa kerralaan. Yhden yön ja päivän miettimisen jälkeen oli pakko tunnustaa, että en vielä onnistu tekemään useaa jonoa valumaan samanaikaisesti.

'Lazy Matrix
'By: mikeful

'Asetuksia
viive = 1000 'Suuurenna, jos menee liian lujaa

'Alkuhöpinää
CLS
RANDOMIZE TIMER
SCREEN 13
TYPE jono
        alkuy AS INTEGER
        alkux AS INTEGER
        loppuy AS INTEGER
END TYPE
DIM valu AS jono
DO
'Arvotaan sopivia arvoja
valu.alkux = INT(RND * 40) + 1
valu.alkuy = INT(RND * 24) + 1
DO
        valu.loppuy = INT(RND * 24) + 1
LOOP UNTIL valu.loppuy < 24

'1 mahdollisuus 3:sta, että poistetaan merkkejä
IF INT(RND * 3) = 0 THEN
FOR m = valu.alkuy TO valu.loppuy
        IF m < 24 THEN
        'Etsitään poistojonon seuraava kohta
        LOCATE m, valu.alkux
        'Kirjoitetaan päälle musta neliö
        merkki$ = CHR$(219)
        COLOR 16
        PRINT merkki$
        FOR d = 1 TO viive: NEXT d
        END IF
NEXT m
ELSE
FOR n = valu.alkuy TO valu.loppuy
        IF n < 24 THEN
        LOCATE n, valu.alkux
        'Arvotaan satunnainen merkki
        merkki$ = CHR$(INT(RND * 143) + 33)
        COLOR 10
        PRINT merkki$
        FOR d = 1 TO viive: NEXT d
        LOCATE n, valu.alkux
        COLOR 2
        PRINT merkki$
        END IF
NEXT n
END IF
LOOP UNTIL INKEY$ <> ""
COLOR 15

En oo kokeillu...mut onks toi niinku ampu2?voit käydä hakee www.pelisivut.org

jono(1)
jono(2)
jono(3)
jne...

'matrix koodia.......
'by: Nomic
'tää on vain runko jota saa muokkaa aivan vapaasti...

SCREEN 13
RANDOMIZE TIMER
a = 0
DO
x = INT(RND * 40) + 1 'vaakasuora koodin aloitus
y = INT(RND * 20) + 1 'pystysuora koodin aloitus
DO
y = y + 1
LOCATE y, x 'scrollaa näyttöä
PRINT CHR$(INT(RND * 28) + 224) 'mitä kirjaimia näytetään
IF y = 0 THEN y = 1
IF y = 0 THEN y = 22
IF x = 0 THEN x = 1
IF x = 20 THEN x = 19
a = a + 1
IF a = 1 THEN COLOR 15 'koodin väriä muokkaa mieleiseksi
IF a = 2 THEN COLOR 10
IF a = 3 THEN COLOR 2
IF a = 4 THEN COLOR 2
IF a = 5 THEN COLOR 2
IF a = 6 THEN COLOR 7
IF a = 7 THEN COLOR 7
IF a = 8 THEN COLOR 8
ab = ab + 1 'joka loopin jälkeen +1 ja lopulta
IF a = 8 THEN a = 0 '
IF ab = 10000 THEN END '...ohjelma loppuu
LOOP UNTIL y >= 24
LOOP

'olisikohan tästä apua matrix koodin tekemiseen?
'se onkin sitten eri asia miten saat näytön kulkemaan
'toiseen suuntaan...
'muokkaa mieleiseksi yritin tehdä tästä nytten käytettävän
'pitäisi toimia
'aika kökköö tää mun koodi mutta en jaksanu nytten alkaa
'tehdä tätä kunnolla...

vois parantaa tota mun esimerkkiä tämmöisillä:

tää tulis ton:

if ab= 10000 then end

tilalle:

select case inkey$
       case = chr$(27)
       end
end select

tai yksinkertaisesti:

loop until inkey$ = chr$(27)

jne...

nooh toi ylä puolella oleva esimerkki onkin vain sitä varten että sitä voi muokkaa 8)