Keskustelu: Ohjelmointikysymykset: QB: Alkeellinen kymysys (qb)

Tähän ei vastattu vielä (Qbasic efekti):

lainaus:

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???

Eli siis millä tavalla "parempi" tilalle. Screen 12 on grafiikkatila ja screen 0 on tekstitila, mutta siinä toimii tekstin värin ja taustavärin asetus. Screen 12 koko kuvan värin saa vaihdettua esim. komennolla "LINE (0, 0)-(639, 479), väritähän, BF"

SCREEN 12:ssa ei voi tietääkseni vaihtaa taustan väriä pysyväksi.Tuo LINE-komento toimii hyvin tai voit kokeilla sitten "PAINT (1,1),väri"

Kyllä grafiikkatilassa voi vaihtaa tekstin taustavärin, mutta se ei ole QB-komento. Se on jossain siinä BIOSin keskeytyksessä 10h mut en muista millä AH:n arvolla..
Öh.. meni jo QB-ohjelmoinnista asm-ohjelmoinniks :D

Tai miten olisi paletin värin vaihtaminen?..

-Grey-

Niin... mutta ei toimi vieläkään:

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
SLEEP 1
SCREEN 0
CLS
PRINT "Tekstiä"

Millä tavalla tuo ei toimi?
Kyllä se ihan toimivalta näyttäisi.

Lanahard halunnee tekstin taustavärin muuksi?
Kun kerran olet grafiikkatilassa, käyppäs kopsimassa koodivinkki 'Print joka ei sotke taustaa' QB-osastolta :)

Kas, kas... toimihan se sittenkin.
Saisikohan ton kuvan päälle jotenkin tekstiä?

Siis:

LOCATE Y,X:PRINT "Tekstiä"

ja jos haluaa maalata tekstin taustan joksikin muuksi niin senhän voi tehdä kait näin:

SCREEN 12
teksti$ = "kahvi"
x = 5
y = 5
tekstinVARI = 4
COLOR 4
LOCATE Y,X:PRINT teksti$

FOR px = x*8 to len(teksti$)*8
  FOR py = y*8 to y+1*8
    IF NOT point(px,py) = tekstinVARI THEN PSET(px,py),2
  NEXT py
NEXT px

en kylläkään muista toimiiko se noin, heitin päästä ja en ole koneella nyt jossa on qb, mutta toivottavasti tajusit suunnilleen mitä toi tekee.

edit: Ajattelin sittenkin kertoa mitä se tekee ;) Eli: Loopataan tekstin alkukohdasta tekstin loppukohtaan, ja joka pikselillä tarkastetaan jos se EI ole tekstinVARI-muuttujan arvoinen piirretään siihen vihreä (2 = vihreä?)

No jopas tuli hieno.
Kiitos kaikille.