Keskustelu: Koodit: QB: tutka

tässä nyt tämmönen koodi vaihteeks.
saa käyttää vapaasti.

SCREEN 13
' vihreä paletti
OUT &H3C8, 0
FOR c = 0 TO 65
  OUT &H3C9, 0
  OUT &H3C9, INT(c)
  OUT &H3C9, 0
NEXT
k = 200 ' viivojen pituus
lisa = .003 ' paljonko lisätään kulmaa tai jotain
DO
  s = s + lisa
  v = 65
  ' piirretään se "tutka"
  FOR i = 0 TO 65
    LINE (159, 99)-(159 + SIN(s - (lisa * i)) * k, 99 - COS(s - (lisa * i)) * k), v
    v = v - 1
  NEXT
  ' viive
  WAIT &H3DA, 8
LOOP UNTIL INKEY$ = CHR$(27)

kommentteja kiitos

kommentteja kiitos

tässä kommentti, ole hyvä

tässä kommentti, ole hyvä

Älähän nyt peeloile, saasta!

Parempi nimi olisi ehkä "majakka", mutta ihan OK.

Jaa, jaa, eiköhän se nyt ole itsestään selvyys, että kommentteja pitää laittaa tänne, mitään turhia "kommenteja PLIIIIIS!!" viestejä älkää lähetelkö!
Toinen itsestäänselvyys on, että tänne läheteltyjä koodeja saa käyttää vapaasti, senhän takia niitä tänne lähetellään, että muut voi niitä käyttää.

Ihan hyvä.

Jaahas että tällanen tällä kertaa. Ja tuo WAIT &H3DA, 8 on sitten todellakin vain viive eikä oikeaoppinen tapa vertikaaliseen synkronisaatioon.
Vinkki ihan OK :)

ton vois tehdä paletin pyöritykselläkin

Ihan kiva, mutta nurkat bugittaa

annoin kommentin kahdesti koska snakari pyysi kahdesti semmoista ;)

´´vähän´´ ärsyttää ko joskus qbasic mesee sillee jumiin heti runin jälkeen, et ei mitään nappia voi painaa ja ku kirjotta tulee vaan tyhjää. >:(

hieno, mutta se "tutkaruudukko" sais olla...