Keskustelu: Ohjelmointikysymykset: QB: Qbasic efekti

Voisiko joku tehdä/neuvoa miten tehdään sellainen
pieni ympyrä joka isonee koko ajan tietyn kokoiseksi.

Tämä luo hieman "epätäydellisen" ympyrän, mutta tähän tapaan sen voi tehdä:

SCREEN 12
x = 320 ' keskipisteen koordinaatit
y = 240
v = 4   ' Väri
FOR k = 1 TO 200  ' koko
  CIRCLE (x, y), k, v  ' Piirretään ympyrä
  WAIT &H3DA, 8  ' Pieni viive
NEXT k

Siivoaisin myös vanhan ympyrän alta pois vaikka

LINE (X,Y)-(X+jotain, Y+jotain),0

;)

Häh? Siivoaisit vanhan ympyrän pois LINEllä?
Sen vanhan ympyrän poistaminen onnistuu, jos laittaa CIRCLE (x, y), k - 1, 0
ennen CIRCLEä tai WAITin jälkeen.

Pieni virhe tuossa linessä, eli mukana pitää olla bf:

LINE (X,Y)-(X+jotain, Y+jotain),0,bf

Ja myös circlellä tietenkin onnistuu...

Ei se onnistu linellä, ellet sitten tyhjää koko ruutua sillä (cls ajaa saman asian ehkä paremminkin kuin line)
Jos laitat sen tekemään laatikon (x,y):stä johonkin, niin sehän tekisi laatikon keskipisteestä jonnekin ja jättäisi 3/4 ympyrästä pyyhkimättä.

Miksi tämmönen ei toimi?

SCREEN 12
x = 320 ' keskipisteen koordinaatit
y = 240
v = 4   ' Väri
FOR k = 1 TO 200  ' koko
  CIRCLE (x, y), k, v  ' Piirretään ympyrä
  WAIT &H3DA, 8  ' Pieni viive
NEXT k
cls
locate 12
color a, 2
print "           Tekstiä..."

Näyttötilassa 12 ei voi määrittää tekstin taustaväriä, siksi COLOR a,12 ei toimi, eli voit vaihtaa vain tekstin väriä.

lainaus:

Ei se onnistu linellä, ellet sitten tyhjää koko ruutua sillä (cls ajaa saman asian ehkä paremminkin kuin line)
Jos laitat sen tekemään laatikon (x,y):stä johonkin, niin sehän tekisi laatikon keskipisteestä jonnekin ja jättäisi 3/4 ympyrästä pyyhkimättä.

En katsonut sen tarkemmin tuota lineä, kuin vain sen, että puuttui bf. Eli tietysti sen pitäisi pyyhkäistä koko ympyrän alueelta. Muuten, ainakin omalla koneella line on nopeampi tyhjentämään näytön kuin cls (muistaakseni jopa 3-kertainen)

Hmm...
En olekaan kokeillut verrata linen ja cls:n nopeuksia. Aika harvoin tosin joutuu tyhjentämään ruutua esim. 250 kertaa peräjälkeen... ;)

lainaus:

Näyttötilassa 12 ei voi määrittää tekstin taustaväriä, siksi COLOR a,12 ei toimi, eli voit vaihtaa vain tekstin väriä.

Mitenkäs sen saa pois & paremman tilalle???