Keskustelu: Koodit: QB: Tuulilasin pyyhkijät

CONST pii = 3.141592654#
SCREEN 12
RANDOMIZE TIMER

maara = 2          ' Pyyhkijöiden määrä
nopeus = .0005     ' Pyyhkijöiden nopeus
koko = 300         ' Pyyhkijöiden koko
alkukulma = .6     ' Pyyhkijöiden aloituskulma  (.5 on oikealle, 1 on ylös, 1.5 on vasemmalle)
loppukulma = 1.4   ' Pyyhkijöiden lopetuskulma
sademaara = 200    ' Sateen määrä
pisarakoko = 1     ' Sadepisaran suurin mahdollinen säde


kulma = alkukulma * pii
suunta = 1

DO
  FOR i = 1 TO sademaara
    CIRCLE (RND * 640, RND * 480), RND * pisarakoko, 1     ' Piirtää sinisiä "vesipisaroita"
  NEXT i

  FOR i = 1 TO 50
    IF suunta = 1 THEN kulma = kulma + nopeus
    IF suunta = 2 THEN kulma = kulma - nopeus
    FOR a = 1 TO maara
      IF kulma > loppukulma * pii THEN suunta = 2
      IF kulma < alkukulma * pii THEN suunta = 1
      x(a) = (640 / maara) * (a - .5)
      y(a) = 479
      LINE (x(a), y(a))-(x(a) + SIN(kulma) * koko, y(a) + COS(kulma) * koko), 0   ' Laskee viivojen päätypisteiden paikat
    NEXT a
  NEXT i
LOOP UNTIL INKEY$ = CHR$(27)

CONST pii = 3.14#
SCREEN 12
RANDOMIZE TIMER

maara = 1          ' Pyyhkijöiden määrä
nopeus = .001     ' Pyyhkijöiden nopeus
koko = 250         ' Pyyhkijöiden koko
alkukulma = 1       ' Pyyhkijöiden aloituskulma  (.5 on oikealle, 1 on ylös, 1.5 on vasemmalle)
loppukulma = 360   ' Pyyhkijöiden lopetuskulma
sademaara = 50    ' Sateen määrä
pisarakoko = 0     ' Sadepisaran suurin mahdollinen säde


kulma = alkukulma * pii
suunta = 1

DO
FOR i = 1 TO sademaara
CIRCLE (RND * 640, RND * 480), RND * pisarakoko, 2     ' Piirtää sinisiä "vesipisaroita"
NEXT i

FOR i = 1 TO 25
IF suunta = 1 THEN kulma = kulma + nopeus
IF suunta = 2 THEN kulma = kulma - nopeus
  FOR a = 1 TO maara
      IF kulma > loppukulma * pii THEN suunta = 5
          IF kulma < alkukulma * pii THEN suunta = 10
              x(a) = (640 / maara) * (a - .5)
                  y(a) = 240
                      LINE (x(a), y(a))-(x(a) + SIN(kulma) * koko, y(a) + COS(kulma) * koko), 0   ' Laskee viivojen päätypisteiden paikat
                        NEXT a
                        NEXT i

                        LOOP UNTIL INKEY$ = CHR$(27)