Keskustelu: Ohjelmointikysymykset: Data taulukossa olevan kuvan siirtäminen (QB)

Miten Data taulukossa olevan kuvan siirtymään eri paikkaan ku se on siinä vasemmassa ylänurkassa aina ja olen yritelly vaikka minkälaisia koodeja mutta ei tunnu onnistuvan. Oon aika amatööri tässä ohjelmoinnissa. kertokaa siis te viisaammat että miten sen saa siirrettyä sieltä ylänurkasta pois jonnekki muualle. (Kadoksiin sitä ei tarvi pistää koska sen olen tehnyt monta kertaa)

En ole ihan varma, mutta osoittimen paikan saa määrättyä näin:

CLS
LOCATE 3, 10: PRINT "Ja tähän printin paikalle se kuva määräys"
END

Olen sen verran amatööri että kysyn: Mikä määräys.

Kerropa ensin miten yrität piirtää sen data taulukossa olevan kuvan. Käytkö jossain loopissa läpi taulukon piste kerrallaan ja piirrät sen näytölle?

juoppo kirjoitti:

Olen sen verran amatööri että kysyn: Mikä määräys.

Ei sen väliä. Jyri käsitti vain asian väärin, mutta kerropa tosiaan se tapa, millä piirrät DATA-lausekkeilla tallennetun kuvan.

hunajavohveli kirjoitti:

mutta kerropa tosiaan se tapa, millä piirrät DATA-lausekkeilla tallennetun kuvan.

Esim:

screen 13
cls
for y=1 to 8
    for x=1 to 8
        read koloori
        pset(x,y),koloori
    next
next
data 0,1,1,1,1,1,0,0
data 0,1,0,0,0,0,0,0
data 0,1,0,0,0,0,0,0
data 0,1,1,1,1,1,0,0
data 0,1,0,0,0,0,0,0
data 0,1,0,0,0,0,0,0
data 0,1,0,0,0,0,0,0
data 0,1,1,1,1,1,0,0
'E niinku esimerkki ;D

Helppo kun mikä. Pohjattomasta hatusta... :)

Niin, tuo on tietysti se helpoin tapa, ja sitä KemXykin luultavasti arveli. Eli jos tuo on se tapa, mitä, juoppo, käytät niin näin:

px = 160
py = 100

FOR y = 1 TO Korkeus
  FOR x = 1 TO Leveys
    READ koloori
    PSET (x + px, y + py), koloori
  NEXT
NEXT

Eli tuossa koodissasi siis px ja py ovat kohta, johon kuva piiretään (kuvan vasemman ylänurkan koordinaatit). Muuten ihan sama homma, mutta lisätään vain koordinaatit pikselien koordinaatteihin.