Kirjautuminen

Haku

Tehtävät

Kilpailu

Ohjelmoi tekoäly!
Arvostele pelit
15.8. klo 12 mennessä!

Keskustelu: Koodit näytille: QB: 100 tähden tähtitaivas

Sivu 1 / 1

Sivun loppuun

Gwaur [08.11.2002 12:40:46]

#

Tämä tekee yhteensä sadan tähden tähtitaivaan ruudulle. Toiminta on yksinkertainen. Sitä ei tarvitse edes selittää, niin helppoa se on. :)

SCREEN 7
RANDOMIZE TIMER
FOR i = 1 TO 50
        x = INT(320 * RND) + 1
        y = INT(200 * RND) + 1
        PSET (x, y), 15
        PSET (x - 1, y), 8
        PSET (x, y - 1), 8
        PSET (x + 1, y), 8
        PSET (x, y + 1), 8
NEXT i
FOR i = 1 TO 100
        x = INT(320 * RND) + 1
        y = INT(200 * RND) + 1
        PSET (x, y), 8
NEXT i

Gwaur [09.11.2002 17:58:56]

#

tossa tokassa FOR...NEXT -silmukassa tulee siis ne himmeemmät tähdet

HtH [09.11.2002 18:01:12]

#

ei tuo tee sadan tähden tähtitaivasta, vaan 150:n :)

Antti Laaksonen [09.11.2002 18:07:54]

#

Kyllähän noinkin vähällä koodilla ihan OK:n tähtitaivaan saa ;) Kannattaa laittaa sisennysväli pienemmäksi, esim. kolmeen (Options->Display->Tab Stops)

KimmoKM [09.11.2002 19:06:50]

#

Ihan hieno, mutta ei se niin hyödyllinen/opettava tosin ole.

thefox [09.11.2002 19:55:54]

#

Ei kait siinä mitän.. mutta tähdet liikkeelle :) Mistä sainkin idean... ;)

Tumpi [09.11.2002 20:42:46]

#

Ihan tactical

snakari [09.11.2002 21:04:08]

#

ihan toimivahan tääkin on

Anon [11.11.2002 20:09:03]

#

Sontaaaa ja turhaa roskaa riittää! tässä myös pari vikaa:
- saattaa piirtää pisteitä ulos ruudusta
- himmeä saattaa peittää kirkkaan

KimmoKM [12.11.2002 19:32:14]

#

Tee itse parempi. Sitäpaitsi buo eivät ole pahoja vikoja.

Juuzo [15.11.2002 19:14:59]

#

Tuo on aika hauska kun sen pistää silmukan sisälle...

kala [20.11.2002 19:49:15]

#

on kyllä aika paha vika jos joku piirtää ulos ruudusta, jollain toisella kirjastolla se voisi kaataa ohjelman!

ravel [08.01.2003 04:45:56]

#

Onpas yksinkertainen ja hidaskin, kun ei käytetä kokonaislukuja. ;-)

Tatu Peltola [22.04.2003 20:08:55]

#

Parempi:

SCREEN 7
RANDOMIZE TIMER
FOR i = 1 TO 50
        PSET (319 * RND, 199 * RND), 15
NEXT i
FOR i = 1 TO 100
        PSET (319 * RND, 199 * RND), 8
NEXT i

Tatu Peltola [22.04.2003 20:10:09]

#

niin... ja lisää alkuun vielä: DIM i AS INTEGER

comi [08.12.2003 16:24:24]

#

Tässä vieläkin parempi:

SCREEN 13
RANDOMIZE TIMER
CLS
FOR i = 1 TO 150
PSET (319 * RND, 199 * RND), INT(RND * 9) + 15
NEXT


Sivun alkuun

Vastaus

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

Tietoa sivustosta